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

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，是不是很方便好用！