Question

我希望记录对记录行进行任何更改的那些lastUpdatedDate和LastModifiedUser。我似乎无法让2一起工作，它总是导致Excel冻结。

以下是我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row > 1 Then
    Cells(Target.Row, "E") = Date()
    Cells(Target.Row, "F") = Environ("username")

End Sub

任何人都知道如何解决这个问题？谢谢！

Answer 1

当你回到excel表时，你需要关闭events。没有它你会得到无限循环（你翻转到excel，再次触发事件＆gt;＆gt;写入excel＆gt;＆gt;再次触发事件＆gt;＆gt;等等......）。更改后的代码如下所示：

Private Sub Worksheet_Change(ByVal Target As Range)

application.EnableEvents = false
    If Target.Row > 1 Then
        Cells(Target.Row, "E") = Date()
        Cells(Target.Row, "F") = Environ("username")
    End if
application.EnableEvents = true
End Sub

Excel Vba - 添加LastModified用户和LastUpdated日期

1 个答案: