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

假设我们有一个场景，需要知道列表中某个值的最后更新日期，并希望记录最后更新日期。这个过程可以使用 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

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

步骤 2

现在将工作簿另存为启用 VBA 的模板，然后使用 Alt + Q 命令关闭 VB 应用程序，每当我们在单元格 B 中更新值时，日期将自动插入到单元格 A 中，如下图所示。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中单元格相邻单元格更新时自动填充单元格中的日期。

更新于：2023年1月11日

1K+ 次浏览

启动您的 职业生涯

完成课程获得认证

开始学习
广告