|
まず、ユーザーフォームの初期化の所で、大カテゴリのコンボボックスのみ値をセット。
大カテゴリの値によって中カテゴリが決まるため値は入れないでおく。
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "大カテゴリ1"
Me.ComboBox1.AddItem "大カテゴリ2"
End Sub
コンボ1の入力が終わったら、コンボ2の値をセットできる。
その際、コンボ1の値で条件分岐する。
Private Sub ComboBox1_AfterUpdate()
If Me.ComboBox1.Text = "大カテゴリ1" Then
Me.ComboBox2.AddItem "中カテゴリ1-1"
Me.ComboBox2.AddItem "中カテゴリ1-2"
ElseIf Me.ComboBox1.Text = "大カテゴリ2" Then
Me.ComboBox2.AddItem "中カテゴリ2-1"
Me.ComboBox2.AddItem "中カテゴリ2-2"
End If
End Sub
同じようにコンボ2の値が決まったら、ラベルに値を入力。
これもコンボ2の値で条件分岐。
Private Sub ComboBox2_AfterUpdate()
If Me.ComboBox2.Text = "中カテゴリ1-1" Then
Label1.Caption = "小カテゴリ1-1-1"
Label2.Caption = "小カテゴリ1-1-2"
Label3.Caption = "小カテゴリ1-1-3"
ElseIf Me.ComboBox2.Text = "中カテゴリ1-2" Then
Label1.Caption = "小カテゴリ1-2-1"
Label2.Caption = "小カテゴリ1-2-2"
Label3.Caption = "小カテゴリ1-2-3"
'---
'---
'---
End If
End Sub
流れとしては、こんな感じ。
|
|