录入过程中，为了反复录入符号“√”，让不少人心烦。

解决的办法可以使用数据有效性，也可以使用VBA，方法很简单。

假如I列要输入“是否三好学生”，如果是，录入一个“√”，因为第1、2行为标题行，从第3行开始，点击鼠标，显示一个“√”。

鼠标右键点击工作表标签，选择“查看代码”，将如下代码粘贴到光标处：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Application.EnableEvents = False 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 = TrueEnd Sub

返回工作表，即可使用该功能。