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

質問

A1をA2に、B1をB2に、C1をC2に･･･
A1に入力したらA2に更新日付が入るという様に行いたいのですが、
----------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
For Each r In Target
If r.Column = 1 Then
r.Offset(0, 1).Value = Format(Now, “yyyy/mm/dd”“ ”“hh:mm:ss”)
End If
Next r
End Sub
----------------
これをどのように改編したらいいのでしょうか？

回答No.3

kkkkkm · ベストアンサー

元は入力が一列目対象でしたが、それを元のコードのまま一行目を対象に変更したいのでしたら

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
Application.EnableEvents = False
For Each r In Target
If r.Row = 1 Then
r.Offset(1, 0).Value = Format(Now, “yyyy/mm/dd”“ ”“hh:mm:ss”)
End If
Next r
Application.EnableEvents = True
End Sub

For Each～Nextが不要な気もしますが…
もし不要でしたら

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

お礼

ありがとうございます。
できました。

回答No.5

kkkkkm

No.3の補足です。

現状だとデータを削除した時にも更新日付が変更されます。
もし、削除したときは変更したくないのでしたら

前者だと
If r.Row = 1 Then
を
If r.Row = 1 And r.Value <> "" Then

後者だと
If Target.Row = 1 Then
を
If Target.Row = 1 And Target.Value <> "" Then

に変更してください。

お礼

ありがとうございます。
完璧です。

回答No.4

hi-ball

こんな感じどうでしょう？

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Integer
For c = 1 To 3
If Target.row = 1 And Target.Column = c Then
Cells(Target.row, Target.Column).Offset(1).Value = Format(Now, "yyyy/mm/dd"" ""hh:mm:ss")
End If
Next
End Sub

回答No.2

imogasi

Sheet1限定としてよいだろう、そのシートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(0, 1) = Now
End Sub
でどうか？これで正しいとは思わないが。こんな質問のニーズは想像しにくいから。
Ｔａｒｇｅｔセル（A1,B1,C1など、入力するセル）の場所に何か限定でもあると思うが、質問が不明確ではないか？
書式に注文はあるか？
など後続の回答のために、補足しておいたらどうかな？

補足

A1に入力したらA2に入力日付を自動表示（更新含む）させる
B1に入力したらB2に入力日付を自動表示（更新含む）させる
以下、CDE・・・というVBAです。

書式に注文はありません。

回答No.1

hi-ball

A1を入力したらA2に更新日付なら下記みたいな感じです。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.row = 1 And Target.Column = 1 Then
Cells(Target.row, Target.Column).Offset(1).Value = Format(Now, "yyyy/mm/dd"" ""hh:mm:ss")
End If
End Sub

補足

すいません。
これだとA1に入力したらA2に反映はされますが、
B1に入力したらB2に反映されません。
初心者ですいません。