Microsoft VBA UserForm ToggleButton1点击后值无法更改求助

问题根源 #

• UserForm.Show 默认以模态方式显示窗体，代码会暂停在这一行，直到窗体关闭后才继续执行。你点击ToggleButton1的操作，在窗体关闭前不会被后续代码捕获。
• 窗体关闭后，你立刻执行 UserForm.ToggleButton1.Value = False，直接覆盖了用户点击后的状态，导致后续判断永远返回False。

解决方案 #

方案1：获取窗体关闭后的ToggleButton状态 #

删除强制设置Value为False的代码，直接读取用户操作后的状态：

Sub ssk()
    UserForm.Show
    If UserForm.ToggleButton1.Value = True Then
        MsgBox "true_"
    Else
        MsgBox "false_"
    End If
    Unload UserForm ' 用完卸载窗体，避免内存残留
End Sub

方案2：点击按钮时即时响应 #

在UserForm的代码模块中添加ToggleButton的点击事件，用户点击时立刻触发逻辑：

' 以下代码放在UserForm的代码模块里
Private Sub ToggleButton1_Click()
    If Me.ToggleButton1.Value = True Then
        MsgBox "true_"
    Else
        MsgBox "false_"
    End If
End Sub

然后调用窗体的代码简化为：

Sub ssk()
    UserForm.Show
End Sub

额外检查点 #

• 确保ToggleButton1的Enabled属性为True（未被禁用），否则点击不会生效。
• 检查是否有其他VBA代码在修改ToggleButton1的Value值，导致状态被覆盖。

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