エクセル VBA セルに値を入力したら入力日を表示

質問

エクセルに不慣れなため、質問が分かりづらかったら申し訳ありませんがご回答をお願いいたします。

エクセルファイルにある項目を入力したら、入力日を自動表示させたいと考えています。

セルB2に何かを入力したら、4行下のB6に入力日が自動表示
セルB10に何かを入力したら、6行下のB20に入力日が自動表示
セルB20に何かを入力したら、6行下のB26に入力日が自動表示
下記のサイトでB2に対する処理は出来ましたが、
B10・B20に対して処理が行えません。

B2に対するコードは下記の通りとしていますが、このコードにB10・B20に対するコードを追加するにはどうしたらよいでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "B2" Then Exit Sub
Application.EnableEvents = False
Target.Offset(4, 0).Value = Now
Application.EnableEvents = True
End Sub

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1413855689

回答No.1

kkkkkm · ベストアンサー

以下のような感じで試してみてください

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2,B10,B20")) Is Nothing Then
Exit Sub
End If
Application.EnableEvents = False

Select Case Target.Address(0, 0)
Case "B2"
Target.Offset(4, 0).Value = Now
Case "B10", "B20"
Target.Offset(6, 0).Value = Now
End Select

Application.EnableEvents = True
End Sub

お礼

早速のご回答ありがとうございました😊 こちらの想定通りに実行できました。 ありがとうございました。

Powered by GRATICA