excel - Worksheet_change 事件处理程序更改单元格；如何阻止它自己触发？

Question

我怎样才能使下面的代码工作？问题是，当事件处理程序更改工作表上的任何一个值时，它会再次被触发。

代码:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dd As String
dd=0

If IsEmpty(Target) Then Exit Sub
If Target.Name Like "*.colName" Then           
  ActiveWorkbook.Names("CN\" & dd & "\CNA.").RefersToRange.Value =  Range("CNS").Value
  ActiveWorkbook.Names("CN\" & dd & "\CNJ.").RefersToRange.Value =  Format(Now(),"MM/DD/YYYY")
End If

End Sub

请帮忙

Answer 1

如果您有 Worksheet_Change事件处理程序本身会更改工作表上的值，然后它将在该步骤再次触发工作表更改事件，再次运行事件处理程序，并以递归调用循环结束。这通常不是你想要发生的!

为避免这种情况，请设置 Application.EnableEvents至False在事件处理程序的开头。这可以防止您的代码触发任何其他事件:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  On Error GoTo ErrHandler

  'Your code here

  Application.EnableEvents = True
  Exit Sub
ErrHandler:
  Application.EnableEvents = True
End Sub

注意需要设置 EnableEvents返回 True在事件处理程序的末尾，并且在错误处理程序中执行此操作也是一个好习惯，以便即使 sub 由于任何原因失败，它也设置为 true。