全民一起VBA提高篇 第二十二回 巧用事件实现自动跳转，慎写代码谨防无限级联

 

相关知识点

Change:工作表对象（worksheet）当一个单元格处于编辑状态或者发生变化时会触发包含双击也会触发，可以进行有效性验证；修改格式，合并单元格，排序，增减批注不会触发

避免事件级联：a.使用静态变量加锁（暂不讲）；b.使用Application.EnableEvents属性，True，允许VBA响应Execl事件，False，禁止响应

例1 按照关系图点击关键字，在第二列选中这个关键字(只有第5，7列)

Private Sub worksheet_selectionchange(ByVal Target as Range)

     Dim r as Range,i as long,k as integer

     Set r=Target.cells(1,1)

     If r.row>3 and (r.column=5 or r.column=7) Then

            K=MsgBox(“确定跳转吗？