Excel之实现鼠标点击完成自动累加功能

有时我们需要做一个混淆矩阵或者统计系统，在处理实验数据时希望点击某个单元格即可完成数据累加。

1.按"ALT"+"F11"键进入宏编辑状态，双击你要处理的表名。

2.把以下代码复制到窗体内，保存。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, 
Cancel As Boolean) 
Target = Target + 1 
End Sub

3.右上角关闭，即可实现双击任意单元格（防止误点，对同一单元格多次累加时中间需要先点击一下其他单元格，否则会进入编辑状态），该单元格的值就会自动加1.

如果你想要单击即可加一，则复制以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Target + 1
End Sub