エクセル セルデーター変更の自動更新日入力

質問

過去に質問がありましたが分らないので教えてください。
私の場合は、D列にのセルが変更されるとA列に更新日が自動で入力されるようにしたいのですが、恐れ入りますがお教えください。
因みに行は500行あります。

No.788307 質問：エクセルについて詳しい人教えてください。
質問者：yukkokun 行ごとで処理をしています。その行のデータの変更があった場合、その行のみ更新日を変更するようにしたいのですが、どうすればいいのですか。例えばA1～C1のいづれかを変更した場合、D1（更新日のセル）が自動的に変わるようにしたいのです。どなたかわかりやすく教えてください。関数等は初心者です。
）

回答No.1

Wendy02 · ベストアンサー

こんにちは。
コメントを入れておきましたので、読んでみてください。多少、自分の思ったように直せるはずです。

入力するシートのシートタブを右クリックすると、[コードの表示]というのがありますから、それをクリックして、現れた画面に、以下のコードを貼り付けてください。なお、日付の書式は、メニューの書式で直してください。

'---------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim myRow As Long
　'イベントをOffにする
　Application.EnableEvents = False
　With Target
　　'セルが空なら何もしない
　　If IsEmpty(Target) Then Exit Sub
　　'選んだセルが複数なら何もしない
　　If .Count > 1 Then Exit Sub
　　'セルの列が4列目(D)でなければ何もしない
　　If .Column <> 4 Then Exit Sub
　　'D列の変更した行数を取る
　　myRow = .Row
　　'500行以上だったら、何もしない
　　If myRow > 500 Then Exit Sub
　　'A列の同じ行に日付を入れる
　　Cells(myRow, 1).Value = Format$(Date, "mm/dd")
　End With
　　'イベントをオンにする。
　　Application.EnableEvents = True
End Sub
'---------------------------------------------------

お礼

早速、ご返答ありがとうございます。
問題なく作動しました、また、コメント行もついているので今後はある程度自分でも変更できそうです。
どうもありがとうございました。
今後とも宜しくお願いします。
ATY