如何在excel表中的一个单元格中自动显示最后一次保存文档时当天的日期？

Question

我假如9月5日保存的，在9月5日以后的时间打开excel表，那个单元格还是显示9月5日的日期。不用宏，只用公式能不能做到？

Answer 1

如需在一个单元格中自动显示 最后一次保存文档的日期，需要用到 VBA 的 Workbook.BeforeSave 事件程序

示例

本示例在保存工作簿之前询问用户是否保存。

VBA 代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
       Cancel as Boolean) 
   a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
   If a = vbNo Then Cancel = True 
End Sub

针对 “如何在excel表中的一个单元格中自动显示最后一次保存文档时当天的日期” 这个问题，  同样使用BeforeSave 事件代码, 操作方法：

右键单击工作表标签，查看代码，   视图---工程资源管理器，双击  Thisworkbook,

将如下代码 复制到 右边代码窗口：（假设 在Sheet1  A1 单元格记录保存时间)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").[A1] = Date
End Sub

保存工作薄为启用宏文件， 且文件开启宏，  即可 在Sheet1 A1单元格 记录 最后一次保存时间。

开启宏 的方法：

菜单栏-----文件 -----Excel选项---- 信任中心---信任中心设置 ---宏设置  ：  启用所有宏，   保存， 关闭Excel 文件，    再次打开 即已启用宏。

Answer 2

使用公式：用=now()

然后选中此单元格，依次点选：工具---选项--重新计算   把【手动重算】和【保存前自动重算】 勾上

OK!

追问

这个方法挺好的，日期是改好了，但是表格内的其它公式也要到保存的时候才计算。能有办法解决吗？

本回答被提问者采纳

Answer 3

按CTRL+;键输入当前日期就不会变了。

Answer 4

按F5，定位，引用位置选择你要修改的位置就可以了，比如引用位置为C40，就会直接定位到C40，但是单元格不会解除隐藏效果很好。

Answer 5

用now函数，在需要显示的单元格内输入“=now()”