Excel中点击按钮无法切换状态以修改单元格值的问题求助

你使用的普通CommandButton（命令按钮）本身不具备状态持久特性，它的Value属性在点击事件触发后会立即重置为False，无法用来记录“点击状态”，所以每次点击都会执行Else分支，导致单元格始终被设为"0"。

方法1：改用ToggleButton（切换按钮） #

切换按钮天生支持True/False状态切换，是实现这类需求最直接的方式：

1. 删除原有CommandButton，在「开发工具」→「控件」→「插入」→「ActiveX控件」中选择ToggleButton添加到工作表
2. 双击ToggleButton进入代码编辑器，替换为以下代码（注意控件名要匹配）：

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Range("H9").Value = "5"
    Else
        Range("H9").Value = "0"
    End If
End Sub

点击ToggleButton时，它会自动在选中/未选中状态间切换，代码会根据当前状态同步设置H9的值。

方法2：用CommandButton+状态变量（不换控件） #

如果坚持使用CommandButton，可以通过模块级变量手动维护状态：

1. 在工作表代码模块的最顶部（所有过程之外）声明状态变量：

Private btnState As Boolean

2. 修改按钮点击事件代码：

Private Sub CommandButton1_Click()
    ' 翻转当前状态
    btnState = Not btnState
    
    If btnState Then
        Range("H9").Value = "5"
    Else
        Range("H9").Value = "0"
    End If
End Sub

每次点击按钮时，变量btnState会在True/False间切换，以此控制单元格值的变化。

方法3：用单元格存储状态（支持保存状态） #

如果需要关闭Excel后再次打开仍保留状态，可以用一个隐藏单元格来记录状态：

Private Sub CommandButton1_Click()
    ' 初始化状态（首次点击时）
    If Range("Z1").Value = "" Then
        Range("Z1").Value = False
    End If
    
    ' 切换状态
    Range("Z1").Value = Not Range("Z1").Value
    
    ' 根据状态设置单元格值
    Range("H9").Value = IIf(Range("Z1").Value, "5", "0")
End Sub

可以把Z1单元格设置为隐藏（右键单元格→「设置单元格格式」→「保护」勾选隐藏，再保护工作表），避免误操作。

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