Excel：强制在保存上重新计算

Question

我有一个简单的宏，可以返回当前文档的最后保存日期：

Function LastSavedTimeStamp() As Date
  LastSavedTimeStamp = INT(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"))
End Function

当我手动强迫单元重新计算时，这可以正常工作，但是当我保存工作表时该单元格不会重新计算 - 这就是什么我想。是否有一种方法可以确保每次保存文档时都可以运行上面的宏，以便自动更新最后的保存日期。

PS。这只有在启用宏时才起作用。很好。

---

即这就是我想要的

---

尝试2：受皮肤启发

Answer 1

正如我所看到的，您要使用最后保存的值保存文档。这是一个鸡肉和鸡蛋问题。在保存之前，您不会得到最后保存的值...！

首先，我建议将application.volatile添加到您当前功能...

Function LastSavedTimeStamp() As Date
    Application.Volatile
    
    LastSavedTimeStamp = Int(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"))
End Function

..这样，当保存文档并随时计算运行时，它将迫使重新计算。

然后，在您的thisworkbook对象中，添加以下代码...

Public DO_NOT_CALCULATE As Boolean

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Dim objWorksheet As Worksheet

    If Not DO_NOT_CALCULATE Then
        For Each objWorksheet In ThisWorkbook.Worksheets
            objWorksheet.Calculate
        Next
        
        DO_NOT_CALCULATE = True
        
        ThisWorkbook.Save
    Else
        DO_NOT_CALCULATE = False
    End If
End Sub

将在初始保存之后再次保存工作簿，强迫重新计算以确保您的单元格具有正确的值。

有点丑陋，但应该对您有用。

Answer 2

您只需要在工作簿模块的Beforesave事件子过程中调用此功能即可。

这是粘贴的代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    LastSavedTimeStamp
End Sub