温习一下VBA的Worksheet_SelectionChange事件：当活动单元格发生变化时触发，也就是说，鼠标点击活动单元格以外的任一单元格，这时活动单元格发生了变化，就会触发事件，但点击活动单元格，这时活动单元格没有发生变化，就不会触发。

提出问题：如果要实现这样的功能----连续点击某一单元格时另一单元格的值发生开关性变化，比如点一次显示“√”，点第二次显示空，第三次显示√”，第四次显示空，以此类推。显然，利用SelectionChange事件的既有特性无法实现这样的功能，VBA也没有提供类似的方法。

提出设想：根据SelectionChange事件的特性我们可以推想----如果能在事件过程中（事件被触发时所执行的代码中）把活动单元格挪开，也就是通过代码选择另外一个单元格为活动单元格（要保证此次活动单元格的变化不会重复触发事件），那么连续点击同一单元格就会连续触发事件，这样不就达到单击事件的效果了吗？

关键问题的解决：在事件过程中选择另外一个单元格为活动单元格很容易做到，例如：range(“A1”).select。如何保证此次活动单元格的变化不会重复触发事件呢？代码开头加上一句：Application.EnableEvents = False（使启动它的事件失效），代码最后恢复：Application.EnableEvents = True 这样就可以圆满解决了。

这是实例代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 类似单击事件

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 If

Application.EnableEvents = True

End Sub

右击工作表标签--查看代码--将以上代码复制到代码窗口中。

这是实例效果：

示例文档下载地址：http://pan.baidu.com/s/1mgJvK9a