- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：OptionButton1～40真偽の分岐をループでまわす）
Excel2000とExcel2002のVBAでオプションボタンをループで回す方法
このQ&Aのポイント
- Excel2000とExcel2002のVBAを使用して、オプションボタンをループで回したい場合、エラーが発生することがあります。以下のコードを使用してループを実装しようとすると、エラーが発生します。
- OptionButtonや.valueをダブルクォーテーションでくくるなどの対策を試みましたが、エラーは解消されませんでした。ループで複数のオブジェクトを回すことはできないのでしょうか？
- オプションボタンの数が40個というのは使いにくいですが、ユーザインターフェースの改善は別の機会に検討してください。
- matthew_mu
- お礼率81% (111/137)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
OptionButtonをどこに配置しているかで違います。 ●シート上に配置している場合 If ActiveSheet.OLEObjects("OptionButton" & i).Object.Value Then ●ユーザーフォー上に配置している場合 If Me.Controls("OptionButton" & i).Value Then 以上です。
お礼
教えて頂いたコードでできました！ ありがとうございました！