Question

Excel中，随便选一个单元格，执行一下宏，该单元格数值增加1。求此宏。

Answer 1

代码如下

Sub 自动加1()
Selection.Value = Selection.Value + 1
End Sub

这个是运行一次，选择单元格数值加1

如果你想自动+1的话就需要写在 Worksheet_Change下，如果需要的话请在追问

追问

自动加一，什么概念？如何实现？谢谢

追答

现在这个宏是需要你选中一个单元格后，手动运行后才能+1

自动+1的话就是说，只要你选中单元格，不需要手动运行宏，就可+1

附件中的文件你可以看下，相应的代码写在了Worksheet_SelectionChange事件下，同时设置了一个按键控制是否启的开启和关闭

 

代码如下

Private Sub onoff_Click()
If onoff.Caption = "宏已关闭" Then
    onoff.Caption = "宏已开启"
Else
    onoff.Caption = "宏已关闭"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If onoff.Caption = "宏已开启" Then
    If Application.WorksheetFunction.IsNumber _
    (Cells(Target.Row, Target.Column)) = False And Target.Value <> "" Then
        MsgBox ("所选单元格内容非数字，请重新选择")
        Exit Sub
    End If
    Target.Value = Target.Value + 1
End If
End Sub

附件中的文件共参考