VBA代码实例：自动录入“√”，让你的工作快如闪电！

实现的效果演示

代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range

Application.EnableEvents = False

'如果选择的区域是整行或者整列，不运行下面的程序，直接退出。

If Target.Rows.Count = Me.Cells.Rows.Count Or Target.Columns.Count = Me.Cells.Columns.Count Then Exit Sub

For Each Rng In Target

If Rng.Row > 2 And Rng.Column = 9 Then '如果单元格行号大于2 并且 列号等于9 (I列)

Rng = IIf(Rng = '√', '', '√') '如果这个单元格原来是'√'，改为空，否则，输入'√'

End If

Next

Application.EnableEvents = True

End Sub

注意：