ユーザーフォームに3つのオプションボタンを配置し、CommandButton1を押すと、オプションボタンの選択により、セルa1に”aaa","bbb","ccc"のいずれかを書き込むようにしました。
このようにOptionButton1~OptionButton3と、それぞれ記述するのではなく、オプションボタンを配列にして一つにまとめる方法はありますか。よろしくお願いします。
Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Range("a1") = "aaa"
End If
If OptionButton2 = True Then
Range("a1") = "bbb"
End If
If OptionButton3 = True Then
Range("a1") = "ccc"
End If
End Sub
No.2ベストアンサー
- 回答日時:
こんばんは!
Private Sub CommandButton1_Click()
Dim i As Long, myAry As Variant
myAry = Array("aaa", "bbb", "ccc")
For i = 1 To 3
If Controls("OptionButton" & i) = True Then
Range("A1") = myAry(i - 1)
Exit For
End If
Next i
End Sub
こんな感じでループができると思います。m(_ _)m
ありがとうございます。セルに入力する文字を配列にする方法があったのですね。また、OptionButtonの後ろに1から3の数値を「i」を使って代入する事が出来ました。
No.1
- 回答日時:
Controlsプロパティを使えば、配列のようにあつかえます。
以下のマクロは、
OptionButton1 がtrueの時1、
OptionButton2がtrueの時2、
OptionButton3がtrueの時3をA1に設定します。
-------------------------------------------
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 3
If Controls("OptionButton" & i).Value = True Then
Range("A1").Value = i
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
えエクセルで○は1とし△は0.5で...
-
EXCELで2つの数値のうち大きい...
-
エクセルで二つの数字の小さい...
-
Excelで隣のセルと同じ内容に列...
-
PowerPointで表の1つの列だけ...
-
エクセルで、2種類のデータを...
-
エクセルでオートフィルタのボ...
-
エクセルで最初のスペースまで...
-
エクセルのオートフィルタで最...
-
エクセル 時間帯の重複の有無
-
エクセルで時刻(8:00~20:00)...
-
文字列に数字を含むセルを調べたい
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
SUMIFとCOUNTIFを合わせたよう...
-
VBAで文字列を数値に変換したい
-
Excelで中央揃えが出来ない?
-
桁の違う数値での並び替え
-
ピボットテーブル 0個の行を...
-
エクセルでの複数条件下での標...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
えエクセルで○は1とし△は0.5で...
-
Excel 英大文字小文字を区別せ...
-
VBAで組み合わせ算出やCOUNTIFS...
-
数IIBの数列の問題、、、
-
急いでいます。論文での数式の...
-
数学Ⅲ
-
不正アクセスされているようです。
-
エクセル 特定の文字のみカウント
-
Excel ユーザーフォームのオプ...
-
UWSCのCALLで呼び出すファイル...
-
VBA スタック容量が足りない・...
-
EXCELで
-
この問題の解き方と答えを教え...
-
OM-4の今の値段
-
直交補空間に関する問題です。
-
1次システムのゲイン特性について
-
線形代数の次元の問題です。 ぜ...
-
ゴルフのティーチングプロにな...
-
Excel 関数ifについて
-
サンダーバードの移行ツール
おすすめ情報