Excel：在行上添加上次修改的date

我正在尝试使用以下VBA脚本将上一次修改行的date和时间添加到该行的特定列：

Private Sub Worksheet_Change(ByVal Target As Excel.Range) ThisRow = Target.Row If Target.Row > 1 Then Range("K" & ThisRow).Value = Now() End Sub 

但它一直抛出以下错误：

运行时错误“-2147417848（80010108）”：

对象“范围”的方法“值”失败

任何人都可以解释为什么这是发生？

Answer 1

您正在通过更改Worksheet_Change事件中的值而不先禁用事件来创build无限循环。 当我做类似的事情时，我会首先从Out of stack space错误Method Range failed...到Method Range failed...

做这个，而不是：

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ThisRow = Target.Row If Target.Row > 1 Then Range("K" & ThisRow).Value = Now() Application.EnableEvents = True End Sub 

相关文章： 运行vba代码时MS Excel崩溃