|
また悩んでしまいました。。
CheckBox1を選択して、ComboBox1で”バラ”を選択するとComboBox2の選択肢はバラの種類のみ表示。ComboBox1で”ガーベラ”を選択するとComboBox2の選択肢はガーベラの種類のみ表示。ComboBox1にはCheckBox2を選択したときに使用する木の種類も入っているので、それを選択した場合はMsgを出すようにしたいのですが、下記のでやるとComboBox2が表示されません。
どこが間違っているのでしょうか?
Private Sub CheckBox1_Click()
Me.ComboBox2.Clear
If Me.CheckBox1 And UserForm1.ComboBox1 = "バラ" Then
Me.ComboBox2.AddItem "赤のバラ"
Me.ComboBox2.AddItem "黄色のバラ"
ElseIf Me.CheckBox1 And UserForm1.ComboBox1 = "ガーベラ" Then
Me.ComboBox2.AddItem "赤のガーベラ"
Me.ComboBox2.AddItem "黄色のガーベラ"
Else
MsgBox "選択が間違っています"
End If
End Sub
|
|