Excel2007のVBAで質問があります。
シート上に複数(90個)のオプションボタンが設置しているシートが有りコマンドボタンが押されたときに
どのオプションボタンが選択されているか判断したいのですが、
IF文で一つ一つ下記のように書くと個数が多いたムダに長いロジックになります。
If Worksheets("Sheet1").OptionButton1.Value Then
chk_f = 1
end If
If Worksheets("Sheet1").OptionButton2.Value Then
chk_f = 2
end If
:
:
ユーザーフォームに設置しているオプションボタンは、下記のようにFor文で回せるのは判っているのですが、
For i = 1 To 90
If Me.Controls("OptionButton" & i).Value Then
chk_f = i
exit for
End If
Next
シート上のオプションボタンでも同様の事は可能でしょうか?
もしなければオプションボタンとセルをリンクさせてそのセルをFor文で回して確認していく方法が出来るかなと考えています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
スクロールしてもボタンを常に...
-
押したボタンの位置取得(共通の...
-
コマンドボタンを押すたびに大...
-
Excel:コマンドボタンの移動
-
Excel VBA --- コマンドボタ...
-
ShowAllDataのエラーを回避したい
-
エクセルVBA シート上にあるコ...
-
PPTのコマンドボタンがクリック...
-
ワードにタイマーを設定したい
-
エクセルVBA
-
Wordでドラッグした文字列を括...
-
エクセルのコマンドボタンの位...
-
EXCELでNo.を変えて印刷したい
-
エクセルVBAでOptionButtonのオ...
-
Accessのコマンドボタンの立体...
-
Accessユーザーフォームでコマ...
-
エクセルの罫線
-
ROCKET MOUSEの使い方
-
エクセルでコマンドボタンを押...
-
エクセルのマクロでスライドシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
スクロールしてもボタンを常に...
-
押したボタンの位置取得(共通の...
-
コマンドボタンがあるかどうか...
-
エクセルVBAでOptionButtonのオ...
-
エクセルVBA シート上にあるコ...
-
Excel VBA --- コマンドボタ...
-
エクセルVBA
-
Accessのコマンドボタンの立体...
-
PPTのコマンドボタンがクリック...
-
コマンドボタンで「終了ボタン...
-
EXCELでNo.を変えて印刷したい
-
エクセルのコマンドボタンの位...
-
ShowAllDataのエラーを回避したい
-
[ExcelVBA] コマンドボタンを押...
-
実行中の作業を中止させるコマンド
-
Wordでドラッグした文字列を括...
-
Accessユーザーフォームでコマ...
-
マクロ登録ボタンに色をつける
おすすめ情報