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

ms excelmicrosoft technologiescomputers更新于 2024/10/6 10:20:17

假设我们想知道列表中某个值的上次更新日期，并且您想记录上次更新的日期。此过程可以使用 VBA 应用程序完成，因为它无法直接使用公式完成。阅读本教程，了解如何在 Excel 中当调整单元格更新时自动填充单元格日期。

当相邻单元格更新时自动填充单元格日期

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

步骤 1

假设我们有一个与下图所示数据类似的名称列表。

现在打开 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