EXCEL点击一次，数值自动加一

步骤：

1 首先得调出 开发工具，然后可以正常使用VBA
文件-选项-自定义功能区-勾选开发工具
然后如下图所示

2然后选择需要实现功能的sheet页，
编辑代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

    If Target.Address = "$D$3" Or Target.Address = "$D$4" Then

        Target.Value = Target.Value + 1

    End If

End Sub

这里的$D$3 就是代表第D列的第三行，Target.Value 指的是值。

3 保存之后，再返回excel中进行操作，发现就实现了D3 D4处点击自增1了