Vba 通过公式（Excel）更改单元格时的时间戳

我需要一种方法来给一个相邻的单元格加时间戳，它的值通过公式改变。例如，我需要在第1页A1附近的单元格上标记单元格值更改的日期和时间

我上面链接的示例在单元格值通过公式更改时启动一个消息框（当工作表\u更改事件包含的公式的值因其他地方的单元格更改而更改时，它似乎无法识别单元格值的更改）。我不想要消息框，但我想要一个时间戳

为了简单起见，我将在此处的链接问题上发布说明，对于此特定问题的任何其他帮助，我们将不胜感激

在表1单元格A1中，输入以下公式

=Sheet2!A1+1

现在在模块中粘贴此代码

Public PrevVal As Variant

Private Sub Workbook_Open()
    PrevVal = Sheet1.Range("A1").Value
End Sub

将其粘贴到图纸代码区域

Private Sub Worksheet_Calculate()
    If Range("A1").Value <> PrevVal Then
        MsgBox "Value Changed"
        PrevVal = Range("A1").Value
    End If
End Sub

将

MsgBox“值已更改”

更改为：

Range("B1").Value = Format(Now, "dd/mm/yyyy hh:mm:ss")

---

或者你需要的任何东西

哇，谢谢你的快速回复。这非常有效。可以修改它以适应一系列单元格吗，比如A1:A10？@Andy您需要将以前的值保留在一个数组中-更改您当前拥有的代码并不困难，但它肯定是不同的，您应该问一个新问题。：）我了解到，开始一个与现有问题密切相关的新问题就像穿越地雷，但我会抓住这个机会；）