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