使用快捷键alt+F11,打开这个界面,并点击视图
进入代码窗口,将下面代码粘贴进去即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 Then
Target.Value = Target.Value + 1
End If
End Sub
代码中的Target.Column = 4限定了代码的生效范围,如D列就是4,A列就是1.
行的范围同理,使用Target.Row = 4约束即可。
这一列中的每个单元格都可以分别单独点击加一。