エクセルVBAでユーザーフォーム

質問

エクセルVBAでユーザーフォーム上にオプションボタンが2つ、コンボボックスが6つあります。
OptionButton1をクリックした場合のComboboxの動きの制御について以下のように書いてみました。
これでも期待通りCombobox1~3は動き4~6は動かなくなります。
ただ、もっと別の簡単な書き方があるのではないかと思い質問しました。
宜しくお願いします。
Private Sub OptionButton1_Click()
ComboBox1.Enabled = True
ComboBox1.ListIndex = 0
ComboBox2.Enabled = True
ComboBox2.ListIndex = 0
ComboBox3.Enabled = True
ComboBox3.ListIndex = 0
ComboBox4.Enabled = False
ComboBox4.ListIndex = 0
ComboBox5.Enabled = False
ComboBox5.ListIndex = 0
ComboBox6.Enabled = False
ComboBox6.ListIndex = 0
End Sub

回答No.1

kkkkkm · ベストアンサー

以下のような書き方もあります。
Dim i As Integer
For i = 1 To 3
Me.Controls("ComboBox" & i).Enabled = True
Me.Controls("ComboBox" & i).ListIndex = 0
For i = 4 To 6
Me.Controls("ComboBox" & i).Enabled = False
Me.Controls("ComboBox" & i).ListIndex = 0
Next

お礼

こんな素晴らしい方法があったのですね！
助かります。ありがとうございました。

回答No.2

imogasi

参考にしてください。質問者の場合に使えるかな。
Sub UserForm_Click()
For Each cl In UserForm1.Controls
cl.RowSource = "a1:A3" 'リストするデーター＞シートのセルの場合
cl.ListIndex = 0 '当初は一番上
i = Val(Replace(cl.Name, "ComboBox", "")) 'コントロールの名前の部分は省く
If i < 4 Then
cl.Enabled = True
Else
cl.Enabled = False
End If
Next
End Sub
ーー
ComboBoxのＢは大文字。

お礼

ありがとうございます。