关于书上的一个例子

jeremyffw

书上在讲enableevents属性时，讲到了下面一个例子，

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Target.Value = Target.Address
   
3.     Application.EnableEvents = False
   
4.     Target.Offset(1, 0).Select
   
5.     Application.EnableEvents = True
   
6. End Sub
   

复制代码

小弟不明白禁用事件那行代码是针对哪个事件的，我理解的是针对

1. Target.Offset(1, 0).Select
   

复制代码

但是，运行之后，被改变单元格的下一个单元格还是能被选中，这是咋回事儿呢？谢谢！

hehex

其实很简单，

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Target.Value = Target.Address
   
3.   '  Application.EnableEvents = False
   
4.     Target.Offset(1, 0).Select
   
5.   '  Application.EnableEvents = True
   
6. End Sub

复制代码

你把相关语句注释一下，运行一次代码，就发现是干啥用的了。
是target.value=target.address 后防止 SelectionChange 再次激活，让
Target.Offset(1,0).Select 能正常运行。

jeremyffw

hehex 发表于 2012-10-18 10:50
其实很简单，
你把相关语句注释一下，运行一次代码，就发现是干啥用的了。
是target.value=target.addres ...

哦。。也就是说application.enableevents 这个属性针对的其实是worksheet_selectionchange?

hehex

这个属性是针对所有事件，包括worksheet_selectionchange, 还有worksheet_change 等。
本例是针对worksheet_selectionchange 事件。
你可以试验一下在立即窗口将
Application.EnableEvents = False 设定，然后暂时不恢复为True, 会发现所有事件程序都停止响应。
包括workbook_open 之类的。
这个是Application 级的，是所有excel 对象的集合，包括工作薄以下的所有事件。
如果我理解有误，请纠正。

jeremyffw

hehex 发表于 2012-10-18 11:00
这个属性是针对所有事件，包括worksheet_selectionchange, 还有worksheet_change 等。
本例是针对workshee ...

非常感谢，我自己再体会一下

ggsmart

同 hehex   说的一样，你把那两句代码注释掉和不注释掉来对比一下程序的运行状况，感受一下  

jeremyffw

ggsmart 发表于 2012-10-18 12:09
同 hehex   说的一样，你把那两句代码注释掉和不注释掉来对比一下程序的运行状况，感受一下

我感受过了。。主要是不明白application.enableevents管哪些代码

ggsmart

jeremyffw 发表于 2012-10-19 11:27
我感受过了。。主要是不明白application.enableevents管哪些代码

它不是管代码的，而是管事件的。控制是否启用事件。
如果执行application.enableevents=false，禁用事件后，任何在Excel中的操作都不会引发事件。即：任何事件过程都不起作用。

如果执行application.enableevents＝true，启用事件后，在Excel中的操作就会引发事件。当引发事件后，相应的事件过程就会自动执行

jeremyffw

ggsmart 发表于 2012-10-19 12:59
它不是管代码的，而是管事件的。控制是否启用事件。
如果执行application.enableevents=false，禁用事件 ...

OK, 明白了，谢谢！