| |
まず、ユーザーフォームの初期化の所で、大カテゴリのコンボボックスのみ値をセット。
大カテゴリの値によって中カテゴリが決まるため値は入れないでおく。
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "大カテゴリ1"
Me.ComboBox1.AddItem "大カテゴリ2"
End Sub
コンボ１の入力が終わったら、コンボ２の値をセットできる。
その際、コンボ１の値で条件分岐する。
Private Sub ComboBox1_AfterUpdate()
If Me.ComboBox1.Text = "大カテゴリ1" Then
Me.ComboBox2.AddItem "中カテゴリ1-1"
Me.ComboBox2.AddItem "中カテゴリ1-2"
ElseIf Me.ComboBox1.Text = "大カテゴリ２" Then
Me.ComboBox2.AddItem "中カテゴリ2-1"
Me.ComboBox2.AddItem "中カテゴリ2-2"
End If
End Sub
同じようにコンボ２の値が決まったら、ラベルに値を入力。
これもコンボ２の値で条件分岐。
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
流れとしては、こんな感じ。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
