如何在單元格變更時自動記錄日期和時間？

我們手動插入靜態日期和時間，或者使用公式插入隨系統時間變化的動態日期都很簡單。如果您希望在更改或輸入值時自動記錄日期和時間，這個問題可能就有些不同了。但是，在本文中，您可以按照以下步驟解決此任務。

使用VBA代碼在單元格變更時自動記錄日期和時間

使用VBA代碼在單元格變更時自動記錄日期和時間

例如，我有一系列的值，現在當我在B列中更改或輸入新值時，我希望C列能像以下截圖所示那樣自動記錄當前日期和時間：

您可以通過以下VBA代碼完成此任務。請按以下步驟操作：

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 然後從左側的項目資源管理器中選擇您使用的worksheet，雙擊它以打開模組，然後將以下VBA代碼複製並粘貼到空白模組中：

VBA代碼：在單元格變更時自動記錄日期和時間

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

3. 然後保存並關閉此代碼返回工作表，現在當您更改B列中的單元格值或輸入新數據時，日期和時間將自動記錄在C列中。

注意：

1. 在上述代碼中，您可以將“B:B”修改為您希望在此腳本中更改單元格值的任何其他列：Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)。

2. 使用此xOffsetColumn = 1 腳本，您可以將日期和時間插入並更新到更改值列旁邊的第一列，您可以將數字1更改為其他數字，如2、3、4、5…這意味著日期將被插入到更改值列旁邊的第二、第三、第四或第五列。

3. 當您刪除更改列中的某個值時，日期和時間也會被刪除。