Excel VBA 怎么清空所有选项按钮？

Question

Sub 开始问卷()
Sheets("Sheet3").Shapes("Graph 1").Visible = False
Sheets("Sheet3").OptionButton178.Value = False
End Sub

这段代码的第三行会报错“对象不支持该属性或方法”。

谢谢各位！

Answer 1

这段代码的第三行会报错“对象不支持该属性或方法”。这是因为OptionButton178是一个控件，而不是一个属性。如果您想要清空所有选项按钮，您可以使用以下代码：

Dim opt As OptionButton
For Each opt In Sheets("Sheet3").OptionButtons
    opt.Value = False
Next opt

这将循环遍历所有选项按钮并将其值设置为False。