vba - Excel VBA 选项按钮 - 如何取消选择它们？

Question

我正在尝试取消选择单选按钮，但我不知道如何操作。我最近的尝试如下所示:

Sheet1.Shapes("STCT" & strNumbers).ControlFormat.Value = xlOff

其中单选按钮的名称为STCT04(或05、或06，或...您得到的模式)，名称的数字部分为存储在字符串变量中。我也尝试过这个

Sheet1.Shapes("STCT" & strNumbers).Value = False

没有运气。我用谷歌搜索了很多，在 95% 的情况下，评论者建议采用上述两种方法之一，而问题发布者总是说它有效。这不适合我。

那我该怎么办？

编辑:我有一个选项列表可供选择，每个选项都有一个指定的按钮。我有大约 10 个选项，但用户有时只能从这 10 个选项中选择 5 个。(这取决于我工作簿中的其他内容。)在这些情况下(如果选项不适用)我想将按钮的“value”或“enabled”属性设置为 False。当我这样做时(更改两个属性之一)，也会取消选择所有先前存在的选择。 (就像单击了宏调用者按钮一样。)我希望这是有道理的。

例如:假设选择了选项 2。该决定不是最终决定，但我已经选择了。然后发生了一些变化，并从选项列表中删除了选项 3。当我更改 Button3 的两个上述属性之一时，选项 2 也会更改为未选中。

Answer 1

使用Value属性。

通过 ActiveX 选项按钮:

Dim ole As OLEObject
Set ole = Sheet1.Shapes("STCT" & strNumbers).OLEFormat.Object

Dim op As MSForms.OptionButton
Set op = ole.Object
op.Value = False

按表单选项按钮:

Dim op As OptionButton
Set op = Sheet1.Shapes("STCT" & strNumbers).OLEFormat.Object
op.Value = False