excel如何自动执行vba程序（ExcelVBA自动录入一个）

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

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

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

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

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2. Dim Rng As Range
3. Application.EnableEvents = False
5. For Each Rng In Target
6. If Rng.Row > 2 And Rng.Column = 9 Then '如果单元格行号大于2 并且 列号等于9 (I列)
7. Rng = IIf(Rng = "√", "", "√") '如果这个单元格原来是"√"，改为空，否则，输入"√"
8. End If
9. Next
11. Application.EnableEvents = True
12. End Sub

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