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

ワークシートで作業する場合、次のスクリーンショットに示すように、列Aにデータを入力するときに、現在の日付と時刻を列Bに自動的に入力する必要があります。 Excelで、この仕事を簡単かつ迅速な解決策で解決するにはどうすればよいでしょうか。

データがVBAコードの列に入力されたときに日付を自動的に入力します

データがVBAコードの列に入力されたときに日付を自動的に入力します

たぶん、Excelでこのジョブを処理する直接的な方法はありませんが、次のVBAコードが役立ちます。次のようにしてください。

1。 日付を自動的に挿入するシートタブを選択し、右クリックして、 コードを表示 テキストメニューから、それからええと飛び出しました アプリケーション向け Microsoft Visual Basic ウィンドウで、次のコードをコピーしてモジュールに貼り付けてください。

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の対応するセルに現在の日付と時刻が一度に自動的に入力されます。

Note：上記のコードでは、 A2：A15 値を入力するセルです。