![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
作業ブックのシートに下記のコードを設定しております。
このコードは指定セルに("地番調査", "許可証")のどちらかの文字が表示された場合に
文字が表示された右横のセルに「後日図書の提出をお願いいたします。」
と表示されます。
このコードを変更して
指定セルに不特定な文字が表示された場合に
右横のセルに「後日図書の提出をお願いいたします。」
と表示出来る方法を教えてください。
現状のコード
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("C26:C31")) Is Nothing Then Exit Sub
Dim arr1, arr2
arr1 = Array("地番調査", "許可証")
Dim i As Long
For i = 0 To UBound(arr1)
If Target.Value = arr1(i) Then
Target.Offset(, 3).Value = "後日図書の提出をお願いいたします。"
Exit Sub
End If
Next i
End Sub
以上です。
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
>不特定な文字
https://detail.chiebukuro.yahoo.co.jp/qa/questio …
こういう事ね
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("C26:C31")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value <> "" Then
Target.Offset(, 3).Value = "後日図書の提出をお願いいたします。"
Else
Target.Offset(, 3).Value = ""
End If
Application.EnableEvents = True
End Sub
No.1
- 回答日時:
>不特定な文字
"地番調査", "許可証" 以外と解釈
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("C26:C31")) Is Nothing Then Exit Sub
Dim arr1
Dim Result
arr1 = Array("地番調査", "許可証")
Result = Filter(arr1, Target.Value, True)
If UBound(Result) = -1 Then
Target.Offset(, 3).Value = "後日図書の提出をお願いいたします。"
Exit Sub
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2024/03/18 17:57
- Excel(エクセル) VBA Private Sub Worksheet_Changeで 1 2024/05/01 16:59
- Visual Basic(VBA) シートモジュールを複数作成することはできるのでしょうか? 2 2023/08/30 18:48
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/06 13:07
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
vba 削除
Visual Basic(VBA)
-
-
4
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
5
VBA listBoxから
Visual Basic(VBA)
-
6
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
7
エクセルVBAについて
Visual Basic(VBA)
-
8
VBAなくなるの?
Visual Basic(VBA)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
11
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
12
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
13
vba アクティブシートの名前変更について教えてください
Visual Basic(VBA)
-
14
エクセルVBAコードで教えて下さい!
Visual Basic(VBA)
-
15
VBA UserFormからの転記で
Visual Basic(VBA)
-
16
VB.netのADOってなんですか?
Visual Basic(VBA)
-
17
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
18
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
エクセルのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel UserForm の表示位置
-
【VBA】【ユーザーフォーム_Lis...
-
VBAマクロ実行時エラーの修正に...
-
昨日、質問した件『VBA にて、...
-
excelで結合セルの場合にエラー...
-
関数の引数でrangeを指定したとき
-
HTMLのテーブルのセルの値をPHP...
-
EXCELのフォーム上でリアルタイ...
-
Excel VBAでCheckboxの名前を変...
-
エクセルVBA 配列からセルに「...
-
EXCEL VBA 1つのセル内の文字に...
-
オートフィルタの結果をコピー...
-
VBA にて、条件付き書式で背景...
-
EXCEL VBA 文中の書式ごと複写...
-
VB.netでのExcelデータの読み込み
-
エクセルVBAで、セル内のテキス...
-
Excel VBAにて、セルのコピー範...
-
【ExcelVBA】値を変更しながら...
-
VBAでユーザーフォームにセル値...
-
Excel VBA IF文がうまく動作し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
Excelで空白セル直前のセルデー...
-
【VBA】写真の貼り付けコードが...
-
VBAコードについて教えてくださ...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel 範囲指定スクショについ...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
Excel VBA IF文がうまく動作し...
-
エクセルのカーソルを非表示に...
-
入力規則のリスト選択
-
VBA 複数条件の分岐処理の上手...
おすすめ情報