有时我们在Excel中制作的工作表需要反复修改,并保存为多个版本。修改的次数多了,很容易混淆。如果能把工作簿的最后保存日期和时间显示在工作表的某个单元格或页眉页脚中,查看起来就非常方便了。用VBA代码就能够轻松地实现这一点,方法如下:

1.按Alt+F11,打开VBA编辑器。

2.在“工程”窗口中,双击“ThisWorkBook”,在右侧的代码窗口中输入下列代码:

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Range("G3").Value = Format(Now, "yyyy年m月d日 hh:mm:ss")
End Sub

说明:上述代码将工作簿保存的日期和时间保存在活动工作表的“G3”单元格中,需根据实际进行修改。如果要将保存的时间放到页眉或页脚中,可以改为类似下面的代码,下例中将工作簿的保存日期和时间放到页脚右侧:

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "修改时间:" & Format(Now, "yyyy年m月d日 hh:mm:ss")
End Sub

3.关闭VBA编辑器,回到Excel界面中。以后每次单击工具栏中的“保存”按钮,G3单元格或页眉页脚中就会显示当前保存的日期和时间。

版权声明

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

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

发表评论

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

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

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

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

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