技巧12 禁止触发相关Excel事件

2020-10-22 来源：步旅网

工作表Change事件代码:

Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target.AddressEnd Sub

Public Sub EnabledEvent() Range(\"A1\") = \"Excel VBA\"End Sub

Public Sub DisableEvents()

Application.EnableEvents = False Range(\"A1\") = \"Excel VBA\"

Application.EnableEvents = TrueEnd Sub

触发Change事件

不触发Change事件

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文