B列になにか記入したら、A列に今日の日付が入る【VBA】

経緯

タイトルのままですが、B列になにか記入したら、A列に今日の日付が入るようにしたくて、

今回勉強しました。

「Worksheet_Change」イベントを使う

まず、コードを書きます。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Intersect(Target, Me.Range("B:B"))
    
    If rng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    
    Dim cell As Range
    For Each cell In rng
        cell.Offset(0, -1).Value = Date
    Next cell
    
    Application.EnableEvents = True
End Sub

という感じでできました。

このコードでは、B列の任意のセルが変更された場合に、そのセルの左隣（つまりA列）に今日の日付が自動的に挿入されます。

重要な注意点として、このコードを使用すると、B列のセルの内容が変更されるたびにA列の日付も更新されます。つまり、B列のセルを編集すると、対応するA列の日付はその日の日付に更新されます。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。