ＶＢＡでオプションボタン変更によって・・・

質問

エクセルVBAのユーザーフォーム内にあるコンボボックス３つを選択することによりデータ入力を行っています。
この度選択肢を増やすことになり、オプションボタンを２つ追加しようと思っています。
オプションボタンはどちらかを決定することで、コンボボックスの選択内容を変更する予定です。
コンボボックスは大中小分類としており、シート２から抽出したものをシート１に落としている現状をオプションボタン新設により、ボタン１は従来通りシート２から、ボタン２選択時はシート３にあるリストからコンボボックスへ繁栄させようとしたいのですが、方法が分かりません。
どなたか、教えていただけると助かります。
よろしくお願いします。
現在のコードを下記に記します。

Private Sub UserForm_Activate()
With UserForm3
.OptionButton1 = True
＊この段階でボタン２を選択時は、シート３にあるリストよりコンボボックスの内容を抽出したい。
以下中小分類も同様としたい。
.ComboBox1.RowSource = "シート２!A3:A15"
.ComboBox1.SetFocus
End With
End Sub

Private Sub ComboBox1_Change()
Dim myLlist As String
myLlist = ComboBox1
With UserForm3
.ComboBox2.Text = ""
.ComboBox3.Text = ""
Select Case myLlist
Case "大１"
.ComboBox2.RowSource = "シート２!B21:B26"
Case "大２"
.ComboBox2.RowSource = "シート２!B27:B28"
End Select
End With
End Sub

Private Sub ComboBox2_Change()
Dim myMlist As String
myMlist = ComboBox2
With UserForm3
.ComboBox3.Text = ""
Select Case myMlist
Case "中１"
.ComboBox3.RowSource = "シート２!C101:C111"
Case "中２"
.ComboBox3.RowSource = "シート２!C121:C124"
End Select
End With
End Sub

Private Sub OKボタン_Click()
With UserForm3
ActiveSheet.Unprotect
行 = ActiveCell.Row
列 = ActiveCell.Column
Cells(行, 列) = UserForm3.ComboBox1.Value
Cells(行, 列 + 1) = UserForm3.ComboBox2.Value
Cells(行, 列 + 2) = UserForm3.ComboBox3.Value
ActiveSheet.Protect
End With
End Sub

回答No.1

mesihuro

OptionButtonのClickiイベントでComboBoxの値を再設定すれば良いのでは？

お礼

早々のご回答、ありがとうございます。
手間の無い動作を再検討してみます。