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

重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生

当我们在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 事件。

重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生
版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/814.html

发表评论

评论列表(0人评论 , 44人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯

Honor accompaniments. theme qk_xmh