エクセルでデータ入力された日付と時間を自動入力する

質問

前回ご質問にて
1行目に何か入力したら2行目に日付と時間を自動入力する
というVBAを教えて頂きました。
------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Target.Row = 1 Then
Target.Offset(1, 0).Value = Format(Now, "yyyy/mm/dd"" ""hh:mm:ss")
End If
Application.EnableEvents = True
End Sub
------------------------
これを1行目に何か入力したら2行目に日付と時間ではなく
セル指定を行いたいのです。
例）F13～P13に何か入力したら、その下のセルの
F14～P14に日付と時間が自動入力される
という作りです。

よろしくお願いします。

回答No.1

kkkkkm · ベストアンサー

F13～P13を変更したらでしたら

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("F13:P13")) Is Nothing Then
Target.Offset(1, 0).Value = Format(Now, "yyyy/mm/dd"" ""hh:mm:ss")
End If
Application.EnableEvents = True
End Sub

になりますが、削除しても日付が変更されてしまいます。

削除した場合日付を変更しないのでしたら
(複数一度に削除した場合の事を考えたらFor Each～Nextはあった方が良かったです)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
Application.EnableEvents = False
For Each r In Target
If Not Intersect(r, Range("F13:P13")) Is Nothing And r.Value <> "" Then
r.Offset(1, 0).Value = Format(Now, "yyyy/mm/dd"" ""hh:mm:ss")
End If
Next r
Application.EnableEvents = True
End Sub

お礼

ありがとうございます。
勉強になります。

回答No.2

kkkkkm

No.1の追加です。

入力するセルのデータを削除した時に日付も削除したい場合です。
(念のために日付を削除するかどうか確認します)
「r」一文字だと見落としそうなので「mRng」に変更しています。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim mRng As Range
Application.EnableEvents = False
For Each mRng In Target
If Not Intersect(mRng, Range("F13:P13")) Is Nothing Then
If mRng.Value = "" Then
If MsgBox("日付も削除しますか？", vbYesNo + vbDefaultButton2) = vbYes Then
mRng.Offset(1, 0).Value = ""
End If
Else
mRng.Offset(1, 0).Value = Format(Now, "yyyy/mm/dd"" ""hh:mm:ss")
End If
End If
Next mRng
Application.EnableEvents = True
End Sub

お礼

ありがとうございました。
すごく助かりました。