如何在Excel中另一个单元格的数据更改时插入当前时间戳？

假设你收到一个工作表，需要你修改某一列中的数据。在修改完工作表后，你需要插入修改后的时间戳，让其他人知道哪些单元格已更改。该如何处理呢？本文将展示在Excel中当另一个单元格的数据更改时插入当前时间戳的方法，如下图所示。

使用VBA代码在另一个单元格的数据更改时插入当前时间戳

使用VBA代码在另一个单元格的数据更改时插入当前时间戳

如下图所示，如果C列中的相应单元格发生更改，则需要在E列中生成时间戳。请按照以下步骤操作。

1. 在需要修改并标记时间戳的工作表中，右键单击工作表标签，然后从右键菜单中点击“ 查看代码”。

2. 然后复制并将以下VBA代码粘贴到Microsoft Visual Basic for Applications窗口的代码窗口中。见截图：

VBA代码：在另一个单元格的数据更改时插入当前时间戳

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

注意：在代码中，数字3表示您将要修改C列中的数据，而5表示时间戳将被填充到E列中。请根据您的需求进行更改。

3. 按下Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

从现在开始，当更改C列中的数据时，时间戳将填充到E列中的相应单元格中，如下图所示。

相关文章：

• 如何在Excel中插入或显示上次保存的时间戳？
• 如何在Excel中运行宏时将时间戳插入特定单元格？