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

如何在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.VolatileLST = Format(Now, "yyyy-mm-dd hh:mm:ss")End Function

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

=LST()

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

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