当单元格更改时，如何自动记录日期和时间？

我们手动插入静态日期和时间或者使用公式插入随系统时间变化的动态日期都很简单。如果希望在更改或输入值时自动记录日期和时间，这个问题可能就有些不同了。不过，在本文中，您可以按照以下步骤解决此任务。

使用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. 当您删除更改列中的某个值时，日期和时间也会被删除。