如何在Excel工作表中添加最后保存时间

如何在Excel工作表中添加最后保存时间

有时我们在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单元格或页眉页脚中就会显示当前保存的日期和时间。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。