如何防止添加或删除行时运行Worksheet_Change事件？

在编程方面，我是一个总的新手。 我正在制作一个电子表格来捕获培训信息。 下面列出的代码input用户名（从一个模块的定义用户名作为窗口用户名），date和时间。 我的问题是，当行被添加或删除时，它会导致子运行。 我能做些什么来防止呢？ 先谢谢您的帮助！

Private Sub Worksheet_Change(ByVal Target As Range) Set Rng = Range("D11:D88") If Not Intersect(Target, Rng) Is Nothing Then Application.EnableEvents = False Target(1).Offset(0, 1).Value = Environ$("username") Target(1).Offset(0, 2).Value = Date Target(1).Offset(0, 3).Value = Time Application.EnableEvents = True End If End Sub 

Answer 1

尝试这个：

 Private Sub Worksheet_Change(ByVal Target As Range) Set Rng = Range("D11:D88") If Target.Count = 1 Then If Not Intersect(Target, Rng) Is Nothing Then Application.EnableEvents = False Target(1).Offset(0, 1).Value = Environ$("username") Target(1).Offset(0, 2).Value = Date Target(1).Offset(0, 3).Value = Time Application.EnableEvents = True End If End If End Sub