Execl中实现点击单元格一次自动累计加1

1、从将【开发工具】调至菜单栏，操作步骤：【文件】－【选项】－【自定义功能区】－【主选项卡】－【开发工具】－【确定】。

2、设置【宏】状态。操作步骤：【宏安全性】－【宏设置】－【禁用无数字签署的所有宏】－【确定】。

3、1.    重要核心步骤：按"ALT"+"F11"键进入宏编辑状态，双击sheet1（根据实际选择），把以下代码复制到窗体内保存。如此一来，即可实现双击sheet1上的任意单元格，该单元格的值就会自动加1，如下示意图。

代码：

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

End Sub