1、温习一下VBA的Worksheet_SelectionChange事件：当活动单元格发生变化时触发，也就是说，鼠标点击活动单元格以外的任一单元格，这时活动单元格发生了变化，就会触发事件，但点击活动单元格，这时活动单元格没有发生变化，就不会触发。
4、关键问题的解决：在事件过程中选择另外一个撮劝丛食单元格为活动单元格很容易做到，例如：range(“A1”).select。如何保证此次活动单元格的变姝耒匝揎化不会重复触发事件呢？代码开头加上一句：Application.EnableEvents = False（使启动它的事件失效），代码最后恢复：Application.EnableEvents = True 这样就可以圆满解决了。
5、这是实例代码：Pri箪滹埘麽vate 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 IfApplication.EnableEvents = TrueEnd Sub右击工作表标签-->查看代码-->将以上代码复制到代码窗口中。
6、这是实例效果：
