嘿，很高兴Jeeped的答案帮到了你！针对你想要两个按钮分别控制数值增减的需求，我特意整理了两个简单的VBA宏，还有绑定按钮的步骤，这样就能完美实现你要的功能啦：

首先，我们需要写两个独立的宏：一个负责向上计数（加1，到7后回到1），另一个负责向下计数（减1，到1后就不再生效）。假设你要操作的目标单元格是A1，工作表是Sheet1，你可以根据自己的实际情况修改代码里的参数。

向上计数宏（点击加1，到7自动回到1） #

Sub IncreaseValue()
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 这里改你的工作表和单元格
    
    ' 如果单元格是空的，默认设为1
    If targetCell.Value = "" Then
        targetCell.Value = 1
    Else
        ' 数值小于7就加1，等于7就跳回1
        If targetCell.Value < 7 Then
            targetCell.Value = targetCell.Value + 1
        ElseIf targetCell.Value = 7 Then
            targetCell.Value = 1
        End If
    End If
End Sub

向下计数宏（点击减1，到1后不再变化） #

Sub DecreaseValue()
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 这里改你的工作表和单元格
    
    ' 只有当数值大于1时才减1，避免减到0或负数
    If targetCell.Value > 1 Then
        targetCell.Value = targetCell.Value - 1
    End If
    ' 空单元格默认设为1（可选，不需要的话可以删掉这段）
    If targetCell.Value = "" Then
        targetCell.Value = 1
    End If
End Sub

把宏绑定到按钮的步骤 #

1. 先打开Excel的【开发工具】选项卡（如果没看到这个选项，去Excel选项里的“自定义功能区”勾选它就行）
2. 点击【插入】，选择表单控件里的【按钮（窗体控件）】
3. 在工作表上拖出一个按钮，松开鼠标后会弹出“指定宏”窗口，选IncreaseValue，点确定，然后把按钮文字改成“向上计数”
4. 再重复一次步骤2-3，画第二个按钮，指定DecreaseValue宏，文字改成“向下计数”

这样设置好之后，点击“向上计数”按钮，数值就会从1到7循环增加；点击“向下计数”按钮，数值会从当前值减1，到1之后就不再变化啦，必须点向上按钮才能继续调整数值。

内容的提问来源于stack exchange，提问作者SCSR