在VBA中，编写事件程序代码自动计算投票次数

1、如图下面是一个三好学生选举投票统计表，我们要达到的效果是：每点击一下姓名下面的单元格，会自动加1。

3、会进入VBA编辑界面！双击左侧栏中的要使用的工作表！

5、在事件程序界面里的左下拉菜单中选择【worksheet】,右下拉菜单中选择【SelectionChange】。

6、在事件程序窗口，输入以下代码：Private Sub Worksheet_Sele罕铞泱殳ctionChange烫喇霰嘴(ByVal Target As Range)k = Cells(2, Columns.Count).End(xlToLeft).ColumnFor i = 1 To k If Target.Address = Cells(3, i).Address Then Target.Value = Target.Value + 1 End IfNextEnd Sub