1、如图下面是一个三好学生选举投票统计表，我们要达到的效果是：每点击一下姓名下面的单元格，会自动加1。
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！双击左侧栏中的要使用的工作表！
4、会弹出事件程序代码编辑窗口！
5、在事件程序界面里的左下拉菜单中选择【worksheet】,右下拉菜单中选择【SelectionChange】。
6、在事件程序窗口，输入以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
k = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 1 To k
If Target.Address = Cells(3, i).Address Then
Target.Value = Target.Value + 1
End If
Next
End Sub
7、保存VBA代码，返回工作簿中的工作表，如图所示。我们每点击一下姓名下面的单元格，皆会自动加1，是不是很方便好用！
