excel如何在工作表的页眉或页脚中显示最后修改时间

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

有时需要在工作表的页眉或页脚中显示最后修改的日期和时间,在Excel中可以用下面的VBA代码来实现,步骤如下:

例如在页眉的中部显示工作簿最后保存时间,按Alt+F11打开VBA编辑器,双击“工程”窗口中的“ThisWorkbook”,然后在代码窗口中粘贴下列代码:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "最后修改时间:" + Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub

这样,每次保存工作簿,该代码会在当前活动工作表的页眉中显示最后修改的日期和时间。

如果要在单元格中显示最后修改时间,可用下面的自定义函数,方法是在VBA编辑器中单击菜单“插入→模块”,在代码窗口中输入下面的代码:

Function LST()
Application.Volatile
LST = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Function

然后保存工作簿,在单元格中输入公式:

=LST()

将返回最后保存的日期和时间。Application.Volatile语句将该自定义函数标记为易失性函数,其作用是当任意单元格进行计算时,该自定义函数都将重新进行计算。

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

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

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

发表评论

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

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

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

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

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

Honor accompaniments. theme qk_xmh