如何使得选中excel单元格,数值自动加1

Question

在excel2007中,如何使得选中(或单击/其他事件)后,单元格数值自动加1?需要用到宏?代码怎么写?

Answer 1

按"ALT"+"F11"键进入宏编辑状态，双击sheet1，把以下代码复制到窗体内，保存。即可实现双击sheet1上的任意单元格，该单元格的值就会自动加1.
代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target + 1
End Sub

Answer 2

按"ALT"+"F11"键进入宏编辑状态，双击sheet1，把以下代码复制到窗体内，保存。即可实现双击sheet1上的任意单元格，该单元格的值就会自动加1.
代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target + 1
End Sub

Answer 3

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