VBA的Worksheet_SelectionChange事件类似单击事件，但与单击事件不完全一样。比如：连续单击同一单元格不会触发事件。本文介绍如何解决这一问题。
工具/原料
excel/VBA
方法/步骤
1、温习一下VBA的Worksheet_SelectionChange事件：当活动单元格发生变化时触发，也就是说，鼠标点击活动单元格以外的任一单元格，这时活动单元格发生了变化，就会触发事件，但点击活动单元格，这时活动单元格没有发生变化，就不会触发。
2、提出问题：如果要实现这样的功能----连续点击某一单元格时另一单元格的值发生开关性变化，比如点一次显示“√”，点第二次显示空，第三次显示√”，第四次显示空，以此类推。显然，利用SelectionChange事件的既有特性无法实现这样的功能，VBA也没有提供类似的方法。
3、提出设想：根据SelectionChange事件的特性我们可以推想----如果能在事件过程中（事件被触发时所执行的代码中）把活动单元格挪开，也就是通过代码选择另外一个单元格为活动单元格（要保证此次活动单元格的变化不会重复触发事件），那么连续点击同一单元格就会连续触发事件，这样不就达到单击事件的效果了吗？
4、关键问题的解决：在事件过程中选择另外一个撮劝丛食单元格为活动单元格很容易做到，例如：range(“A1”).select。如何保证此次活动单元格的变姝耒匝揎化不会重复触发事件呢？代码开头加上一句：Application.EnableEvents=False（使启动它的事件失效），代码最后恢复：Application.EnableEvents=True这样就可以圆满解决了。
5、这是实例代码：Pri箪滹埘麽vateSubWorksheet_SelectionChange(ByValTargetAsRange)刻八圄俏9;类似单击事件Application.EnableEvents=FalseIfTarget.Column=1AndTarget.Row>=2AndTarget.Row<=9AndTarget.Cells.Count=1ThenIfCells(Target.Row,2)="√"ThenCells(Target.Row,2)=""Cells(Target.Row,2).SelectElseCells(Target.Row,2)="√"Cells(Target.Row,2).SelectEndIfEndIfApplication.EnableEvents=TrueEndSub右击工作表标签-->查看代码-->将以上代码复制到代码窗口中。
6、这是实例效果：
