时间戳更新时Excel崩溃

Question

我开发了一个代码，用于在对任何工作表进行更改时更新时间戳，但是在我的合作伙伴excel-365上它崩溃了。这是我的sheet8的代码，其他代码也一样：

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet8.Cells(2, 3).Value = Format(Now(), "yyyy-MM-dd hh:mm:ss")
End Sub

Answer 1

如果要更新同一工作表上的单元格，则需要暂停事件，否则在编写时间戳时将要重新触发事件。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False  '<< turn off events
    Me.Cells(2, 3).Value = Format(Now(), "yyyy-MM-dd hh:mm:ss")
    Application.EnableEvents = True   '<< re-enable events
End Sub

请注意，您还可以在工作表代码模块中使用Me来引用工作表。