☰

在 Excel 中，根据单元格值使单选按钮处于活动/非活动状态

tag-icon • tag-icon microsoft-excel vba
在 Excel 中，根据单元格值使单选按钮处于活动/非活动状态

我想根据另一个单元格的值使 Excel 单选按钮处于活动/非活动状态。

我做了以下尝试：

Sub test()
If ActiveSheet.Cells(9, 3).Text = 3 Then
    ActiveSheet.OptionButton20_Click.Active = False
Else
    ActiveSheet.OptionButton20_Click.Active = True
End If
End Sub

在 VBA 宏窗口中，但我收到以下错误消息：

"Object doesn't support this property or method"

请问我该如何修复它？（Excel Mac 2011）

需要澄清的是，当我说“不活动”时，我的意思是灰色的 - 我不仅仅是指它没有被选择。

例如：

第一组单选按钮：男性 o 女性 o

第二组单选按钮：眼镜 o 耳环 o 胡须 o

在这种情况下，如果选择了“女性”，我希望“胡须”变得不可选择。

我的“模块 1”中现在有以下文本：

Sub hide_group_box()
ActiveSheet.GroupBoxes.Visible = False
End Sub

Sub disable_radio()
If ActiveSheet.Cells(3, 3).Text = 3 Then
    ActiveSheet.OptionButton65.Enabled = False
End If
End Sub

第一件事，隐藏组框，工作正常。第二件事似乎不起作用。我还是错了吗？

答案1

碰巧我前几天也在处理这个问题，也遇到了同样的问题。

我有三个选项，喜欢、不喜欢、无。由于它们是单选按钮，因此只能选择一个。

您要做的是按如下方式设置变量：

子 doSelectedTest()

    暗淡形状喜欢形状
    暗淡形状不喜欢的形状
    昏暗形状无形状


    设置 shapeLikes = Worksheets("picks").Shapes("选项按钮 6")
    设置shapeDislikes = Worksheets（“picks”）。Shapes（“选项按钮7”）
    设置 shapeNone = Worksheets("picks").Shapes("选项按钮 8")

    如果 shapeLikes.ControlFormat.Value = xlOn 那么
        MsgBox“喜欢”
    万一
    如果 shapeDislikes.ControlFormat.Value = xlOn 那么
        MsgBox“不喜欢”
    万一
    如果 shapeNone.ControlFormat.Value = xlOn 则
        消息框“无”
    万一
子目录结束

因此就你的情况而言：

将 myShape 调暗为形状
设置 myShape = Worksheets("picks").Shapes("选项按钮 65")

如果 ActiveSheet.Cells(3, 3).Text = 3 则
    myShape.ControlFormat.Value = xlOff
万一

或者如果希望在此场景中禁用按钮 65，则 myShape.ControlFormat.Enabled = False 或 .Visible = False

相关内容