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

分享给朋友:
您可能感兴趣的文章:
随机阅读: