Excel ユーザーフォームのオプションボタンを配列にする方法

ユーザーフォームに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 ベストアンサー 回答者： tom04 回答日時： 2017/06/17 22:15

こんばんは！

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｣を使って代入する事が出来ました。

お礼日時：2017/06/17 22:59

No.1 回答者： tatsu99 回答日時： 2017/06/17 22:03

Controlsプロパティを使えば、配列のようにあつかえます。

以下のマクロは、
OptionButton１ がtrueの時１、
OptionButton２がtrueの時２、
OptionButton３がtrueの時３を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

この回答へのお礼

ありがとうございます。配列を作ることが出来ました。まとまった記述が出来そうです。

お礼日時：2017/06/17 22:58