在Excel中输入数据时如何自动添加时间戳

当我们在Excel中输入或更新数据时，有时我们需要自动添加时间戳以指示当前数据的最新更新时间。如下图所示，当在C列中更新数据时，更新时间将自动添加到D列中。

可以用VBA代码实现，实现步骤如下：

按Alt + F11打开VBA编辑器。在“项目”窗口中双击“ ThisWorkBook”，然后将以下代码粘贴到右侧的代码窗口中：

Private Sub Workbook_SheetChange（ByVal Sh作为对象，ByVal目标作为范围）

如果ActiveSheet.Name为“ Sheet1”，则退出Sub

如果Target.Column = 3，则Target.Offset（0，1) =现在

结束子

这样，当“ Sheet1”的C列中单元格的内容发生更改时，Excel将自动将时间添加到D列同一行中的单元格。

如果要将目标区域指定为C2：C20，则可以使用以下代码：

Private Sub Workbook_SheetChange（ByVal Sh作为对象，ByVal目标作为范围）

如果ActiveSheet.Name为“ Sheet1”，则退出Sub

有目标

如果.Column = 3和.Row> 1和.Row

结尾为

结束子

应注意，当目标区域中任何单元格的内容发生更改（包括删除或更新数据）时，都会触发Worksheet.SelectionChange事件。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shumachanpin/article-317957-1.html