通过按 F9 显示文件上次更新时间的时间戳（仅编辑不够）

Posted 2023-02-24

【中文标题】通过按 F9 显示文件上次更新时间的时间戳（仅编辑不够）

【英文标题】：Time stamp to show when file was last updated by pressing F9 (just editing not sufficient)

【发布时间】：2016-02-03 21:30:02

【问题描述】：

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

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

    Range("D13") = Now()

Application.EnableEvents = True
End Sub

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

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

【问题讨论】：

查看 worksheets_calculate 事件

【参考方案1】：

您可以创建一个公共布尔值，当有修改时将其设置为True，并使用Worksheet_Calculate 事件来更新时间戳 布尔值是 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

【讨论】：

效果很好！非常感谢！！非常感谢您的帮助！

@Jekapeka ：很高兴我能帮上忙！ ;) 由于您是 SO 新手，请提供一些提示：当您的问题解决后，您可以通过单击上/下投票箭头下方的勾号来验证答案。对您认为有用/无用（或质量差）的每个帖子（Q 或 A）使用赞成/反对票。看看：***.com/help/how-to-ask 和 ***.com/help/mcve（即使这个问题很好，了解这些总是有用的）