时间戳显示文件上次更新时按F9（只是编辑不够）

我想添加一个时间戳到我的Excel工作表，当文件上次更新时显示给我。 我用这个代码：

Private Sub Worksheet_Change(ByVal target As Range) Application.EnableEvents = False Range("D13") = Now() Application.EnableEvents = True End Sub 

这个代码的问题是，它显示了最后一次添加值的时间，但是这个值可能不是真实的，因为公式没有被计算 （没有按F9，禁用了自动计算）。 而不是显示上次添加值时，我想显示公式上次更新。

是否可以添加一个时间戳，显示上次重新计算 Excel表单的时间？

Answer 1

您可以创build一个公共布尔值 ， 在修改时将其设置为True， 如果该布尔值为True，则使用Worksheet_Calculate 事件更新时间戳 ：

 Public HasChanged As Boolean Private Sub Worksheet_Calculate() Application.EnableEvents = False If HasChanged Then Range("D13") = Now() HasChanged = False Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) HasChanged = True End Sub