OptionButton1～40真偽の分岐をループでまわす

質問

オプションボタンをループで回したいのですがエラーになってしまいます。
環境はExcel2000とExcel2002のVBAです。

---------------------------------------
Dim i as integer
Dim a as integer

for i = 1 To 40
if OptionButton & i & .value Then
a = i - 1
End if
Next
----------------------------------------

といった感じにしたいのですが、上記の場合エラーになってしまいます。
Else ifでひとつひとつ書いていくのもコードが長くなって避けたいです…
あとオプションボタンが40個というのはユーザインターフェースとして
使いにくいというのはここではおいといてください…
OptionButtonや.valueを"でくくったりしてみましたが
それもエラーになります。
OptionButtonみたいな複数のオブジェクトを
ループでまわすのは不可能なのでしょうか？
もし可能であれば何かうまい方法を教えて頂けないでしょうか？
よろしくお願い致します。

回答No.1

myRange · ベストアンサー

OptionButtonをどこに配置しているかで違います。

●シート上に配置している場合

If ActiveSheet.OLEObjects("OptionButton" & i).Object.Value Then

●ユーザーフォー上に配置している場合

If Me.Controls("OptionButton" & i).Value Then

以上です。

お礼

教えて頂いたコードでできました！
ありがとうございました！