如何在Excel中输入数据时自动加入一个时间戳
时间:2022-08-21 12:37:46
当我们在Excel中输入或更新数据时,有时需要自动添加一个时间戳,表示当前数据的最新更新时间。如下图所示,当在C列更新数据时,在D列自动加入更新时的时间。
可以用VBA代码来实现,实现步骤如下:
按Alt+F11,打开VBA编辑器。在“工程”窗口中双击“ThisWorkBook”,在右侧的代码窗口中粘贴下列代码:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
If Target.Column = 3 Then Target.Offset(0, 1) = Now
End Sub
这样,当“Sheet1”表C列单元格中的内容发生改变时,Excel会自动在D列同一行中的单元格中添加时间。
如果要将目标区域指定为C2:C20,可以用下面的代码:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
With Target
If .Column = 3 And .Row > 1 And .Row < 21 Then .Offset(0, 1) = Now
End With
End Sub
需要注意的是,当目标区域中的任意单元格内容发生改变,包括删除或更新数据时,都将触发Worksheet.SelectionChange 事件。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
word 2007如文档中的修订功能如何使用?
![](https://img.aspxhome.com/file/2023/9/24389_0s.jpg)
如何为 excel的图表添加误差线
Word怎么批量制作专属邀请函?
![](https://img.aspxhome.com/file/2023/2/22892_0s.jpg)
Word动画教程:将Word2003的文档打印成小册子
![](https://img.aspxhome.com/file/2023/2/20912_0s.gif)
Win10应用商店没了怎么办?应用商店重新安装方法详解
![](https://img.aspxhome.com/file/2023/1/48931_0s.jpg)
Excel中EOMONTH函数的语法和用法
![](https://img.aspxhome.com/file/2023/6/a155666_0s.png)
microsoft excel设置打印区域的方法步骤
excel表格里怎么在框框里打钩
错误图表的好例子:来自令人惊讶的来源的图表垃圾-excel表格
Excel2010教程之巧妙处理折线图表中的断裂问题
对于excel下拉菜单怎么做应该没有什么问题了
word怎样把英文视频字幕改为中文 word中文视频字幕设置方法
word 2010 纵向文字的选择技巧
![](https://img.aspxhome.com/file/2023/2/24752_0s.jpg)
word中表格行高调整详细图文教程
![](https://img.aspxhome.com/file/2023/1/29151_0s.png)
word如何添加不同页眉页脚
![](https://img.aspxhome.com/file/2023/8/21768_0s.jpg)
Win7系统安装office提示“内部错误2908”的解决方法
![](https://img.aspxhome.com/file/2023/9/15389_0s.jpg)
笨死了!Word表格中输入序号,你还在一个个敲...
![](https://img.aspxhome.com/file/2023/6/24416_0s.gif)
Excel设置条件格式的方法步骤
excel怎么根据百分比排序
Win10注册表关闭自动更新方法分享
![](https://img.aspxhome.com/file/2023/0/46420_0s.png)