エクセル、文字を入力すると横のセルに日付が張り付く

Ｂの列に文字を入力するとＡの列に入力時間が張り付かせます

シートを右クリック、コードを表示

以下の文字を貼り付けます

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, -1).Value = Now
Application.EnableEvents = True
End Sub

Ｂの列に文字を入力するとＡの列に入力時間が張り付きます
Now()　とかToday()　ではないので時間が経過しても日時は変化しません


ではＡの列に文字を入力するとＣの列に入力時間が張り付くには

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub　2を1に変更
Application.EnableEvents = False
Target.Offset(, -1).Value = Now　-1を2に変更
Application.EnableEvents = True
End Sub