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