列にデータを入力したときに日付を自動的に挿入するにはどうすればよいですか？

ワークシートで作業しているとき、次のスクリーンショットに示すように、列Aにデータを入力すると、列Bに現在の日時が自動的に入力されるようにしたいとします。Excelでは、このタスクを簡単かつ迅速に解決するにはどうすればよいでしょうか？

VBAコードを使用して、列にデータが入力されたときに日付を自動的に挿入する

VBAコードを使用して、列にデータが入力されたときに日付を自動的に挿入する

おそらく、このタスクをExcelで直接処理する方法はありませんが、次のVBAコードが役立つかもしれませんので、以下の手順を行ってください：

1. 日付を自動的に挿入したいシートタブを選択し、右クリックして「表示 コード」を選択します。表示されたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードをモジュールにコピーして貼り付けてください：

VBAコード：別の列にデータを入力したときに日付を自動的に挿入する：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

2. その後、このコードウィンドウを保存して閉じ、ワークシートに戻ります。これで、列Aにデータを入力すると、列Bの対応するセルに現在の日時が自動的に即座に入力されます。

注釈: 上記のコードでは、A2:A15は値を入力したいセルです。