UC知道如何使得选中excel单元格,数值自动加1
来源：百度知道 编辑：UC知道 时间：2024/06/08 22:20:28
在excel2007中,如何使得选中(或单击/其他事件)后,单元格数值自动加1?需要用到宏?代码怎么写?
按"ALT"+"F11"键进入宏编辑状态，双击sheet1，把以下代码复制到窗体内，保存。即可实现双击sheet1上的任意单元格，该单元格的值就会自动加1.
代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target + 1
End Sub
按"ALT"+"F11"键进入宏编辑状态，双击sheet1，把以下代码复制到窗体内，保存。即可实现双击sheet1上的任意单元格，该单元格的值就会自动加1.
代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target + 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = Val(ActiveCell) + 1
End Sub