录入过程中,为了反复录入符号“√”,让不少人心烦。
解决的办法可以使用数据有效性,也可以使用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 = True
- End Sub
返回工作表,即可使用该功能。
,