通过组框解析（窗体控件）

Question

我已经在StackOverflow和整个互联网上搜索了几个小时，找不到任何东西。

我正在尝试解析大约100个表单控制组框。每个组框内有5个选项框。我正在尝试对问卷进行“重置”，因此我试图将每个选项框的“组框”设置为最终选项框。

如何查看是否选中了组框中的每个选项框，然后将每一行设置为第五个选项框？

Answer 1

据我了解，您希望选中所有组框中的最后一个选项按钮。然后我认为您不必“明确”编写所有组框的循环，而只需遍历选项按钮并将值设置为1。

Dim Option_Button As OptionButton

For Each Option_Button In Worksheets("Sheet1").OptionButtons
    Option_Button.Value = 1
Next Option_Button

不确定它是否是最好的方法，但希望对您有所帮助。