Excel VBA怎么遍历表格中的单选按钮
Excel VBA如何遍历表格中的单选按钮
各位大侠，
小弟最近在学Excel VBA编程，现在有一个问题一直解决不了，希望得到大侠们的指点。
如上图所示，我做了一份调查问卷，以单选的形式显示，不过我希望在后台加一个功能，就是一旦点击这个过程，就将所有已选择的单选按钮的value都清空，但我不清楚这个for each循环需要怎么写，下面是我自己写的代码，但一直运行不行起来，请各位大侠指教，万分感谢
Sub test()
With Sheets("测试")
For i = 1 To 132
.Shapes("Option Button" & i).Value = False
Next i
End With
End Sub
------解决方案--------------------
各位大侠，
小弟最近在学Excel VBA编程，现在有一个问题一直解决不了，希望得到大侠们的指点。
如上图所示，我做了一份调查问卷，以单选的形式显示，不过我希望在后台加一个功能，就是一旦点击这个过程，就将所有已选择的单选按钮的value都清空，但我不清楚这个for each循环需要怎么写，下面是我自己写的代码，但一直运行不行起来，请各位大侠指教，万分感谢
Sub test()
With Sheets("测试")
For i = 1 To 132
.Shapes("Option Button" & i).Value = False
Next i
End With
End Sub
excel vba
------解决方案--------------------
Sub SetOptionbutton()
Dim myOLEObject As OLEObject
For Each myOLEObject In Sheet1.OLEObjects
If myOLEObject.Name Like "OptionButton*" Then
myOLEObject.Object.Value = True
End If
Next
End Sub