更新时间戳时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来引用工作表。