在工作表的页眉或页脚中显示最后修改时间
10-15 21:47:25
来源:http://www.qz26.com Excel教程 阅读:8190次
导读:例如在页眉的中部显示工作簿最后保存时间,按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() Applica
在工作表的页眉或页脚中显示最后修改时间,标签:Excel学习,excel视频教程,http://www.qz26.com
例如在页眉的中部显示工作簿最后保存时间,按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.Volatile
LST = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Function
然后保存工作簿,在单元格中输入公式:
=LST()
将返回最后保存的日期和时间。Application.Volatile语句将该自定义函数标记为易失性函数,其作用是当任意单元格进行计算时,该自定义函数都将重新进行计算。
Tag:Excel教程,Excel学习,excel视频教程,电脑培训学习 - 办公软件学习 - Excel教程