VBA：可讀取大量的 OptionButtom值

Private Sub CommandButton1_Click()

a = 1

For Each i In Me.Controls

MsgBox a ' 查看運作情況

If TypeName(i) = "OptionButton" Then


If i.Value = True Then MsgBox i.Caption

End If

a = a + 1

Next i

End Sub