vba - 通过按 F9 显示文件上次更新时间的时间戳(仅编辑不够)

Question

我想在我的 Excel 工作表中添加一个时间戳，以显示文件上次更新的时间。我使用了这段代码:

Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False

    Range("D13") = Now()

Application.EnableEvents = True
End Sub

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

是否可以添加一个时间戳来显示上次 Excel 工作表是 的时间？重新计算 ?

Answer 1

您可以创建一个公共(public) bool 值 有修改时设置为 True 并使用 Worksheet_Calculate如果该 Boolean 为 True 则更新时间戳的事件:

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