体验零代码搭建

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

网友投稿  ·  2023-05-06 19:05  ·  在线excel  ·  阅读 1342


Excel是许多职场人士常用的烦恼之源,学习相关技巧需耗费大量时间。简道云作为一款办公神器,能很好地替代Excel。它是一个在线表单和数据管理工具,支持PC端和手机微信浏览器操作。除此之外,简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理,满足不同需求。

有时我们在Excel中制作的工作表需要反复修改,并保存为多个版本。修改的次数多了,很容易混淆。如果能把工作簿的最后保存日期和时间显示在工作表的某个单元格或页眉页脚中,查看起来就非常方便了。用VBA代码就能够轻松地实现这一点,方法如下: 1.按Alt+F11,打开VBA编辑器。 2.在“工程”窗口中,双击“ThisWorkBook”,在右侧的代码窗口中输入下列代码: Sub Workbook_Bef

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


excel利用VBA生成无重复无空值的数据有效性下拉列表 << 上一篇
2023-05-06 19:05
合并会计报表 excel(合并会计报表excel)
2023-05-06 19:05
下一篇 >>

相关推荐