Excel 相邻单元格更新时在单元格中自动填充日期

让我们假设有这样一种情况：我们想知道一个列表中某个值的最后更新日期，你想记录最后更新的日期。这个过程可以使用VBA应用程序来完成，因为它不能直接用公式完成。阅读本教程，了解如何在Excel中当其调整单元格被更新时，在单元格中弹出日期。

当相邻单元格被更新时，自动在单元格中填入日期

这里我们将在工作表中插入VBA代码来完成任务。让我们看看一个简单的过程，了解我们如何在Excel中使用VBA代码调整单元格时自动填充日期。

第1步

让我们考虑一下，我们有一个类似于下图所示数据的名字列表。

如何在Excel中相邻单元格更新时在单元格中自动填充日期？

现在打开VBA应用程序，右击工作表名称，选择查看代码，然后点击插入，然后在文本框中输入程序，如下图所示。

示例

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Nirmal
   Dim xRg As Range, xCell As Range
   On Error Resume Next
   If (Target.Count = 1) Then
      If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
         Target.Offset(0, -1) = Date
      Application.EnableEvents = False
      Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
      If (Not xRg Is Nothing) Then
         For Each xCell In xRg
            xCell.Offset(0, -1) = Date
         Next
      End If
      Application.EnableEvents = True
   End If
End Sub

在代码中，”B:B “代表单元格 “B “中的数据，”-1 “描述其左侧单元格中的更新日期；如果我们将其改为 “1”，日期将显示在单元格 “C “中。

如何在Excel中相邻单元格更新时在单元格中自动填充日期？