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 回答日時： 2009/10/27 22:55

　

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

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

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

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

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

以上です。
　

この回答へのお礼

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

お礼日時：2009/10/28 01:01