エクセル 複数のComboBoxの連携

質問

エクセルでフォームを使い、社内各部署での案件の一覧の検索データベースを作成中です。
その際、ComboBoxを３つ使い、１「支店名」２「課名」３「チーム名」を選択するようにしたいのですが、支店により課名やチーム名が異なるため、１で選択した支店名と合致する課やチーム名が選べるようにしたく、以下のようなマクロを組みました。が、実行すると、支店名は表示されるものの、何故か選択できません。また、2つ目（課）の結果から３つ目（チーム名）も得る方法もいまいちよくわかりません。ご教示お願いいたします。

Option Explicit
Private Sub ComboBox5_Change()
Dim si As Integer
With UserForm1
.ComboBox5.Text = ""
si = .ComboBox5.ListIndex
Select Case si
Case 0

.ComboBox6.AddItem "A課"
.ComboBox6.AddItem "B課"
.ComboBox6.AddItem "C課"
以下必要分続く
’ComboBox６の結果から７を得るには？

End Select
End With
End Sub
Private Sub UserForm_Initialize()
' ComboBox がアクティブの時の処理
With UserForm1
.ComboBox5.AddItem "A支店"
.ComboBox5.AddItem "B支店"
.ComboBox5.AddItem "C支店"
.ComboBox6.AddItem "A課"
.ComboBox6.AddItem "B課"
.ComboBox6.AddItem "C課"
.ComboBox7.AddItem "Aチーム"
.ComboBox7.AddItem "Bチーム"
.ComboBox7.AddItem "Cチーム"
End With
End Sub

回答No.1

watabe007 · ベストアンサー

参考に
Private Sub UserForm_Initialize()
With UserForm1
.ComboBox5.AddItem "A支店"
.ComboBox5.AddItem "B支店"
.ComboBox5.AddItem "C支店"
End With
End Sub

Private Sub ComboBox5_Change()
Me.ComboBox6.Text = ""
Me.ComboBox7.Text = ""
Me.ComboBox7.Clear
Select Case Me.ComboBox5.ListIndex
Case 0
'A支店の課
Me.ComboBox6.List = Array("AA課", "AB課", "AC課")
Case 1
'B支店の課
Me.ComboBox6.List = Array("BA課", "BB課", "BC課")
Case 2
'C支店の課
Me.ComboBox6.List = Array("CA課", "CB課", "CC課")
End Select
End Sub

Private Sub ComboBox6_Change()
Me.ComboBox7.Text = ""
Select Case ComboBox5.ListIndex
Case 0
Select Case ComboBox6.ListIndex
Case 0
'A支店のAA課
Me.ComboBox7.List = Array("AAAチーム", "AABチーム", "AACチーム")
Case 1
'A支店のAB課
Me.ComboBox7.List = Array("ABAチーム", "ABBチーム", "ABCチーム")
Case 2
'A支店のAC課
Me.ComboBox7.List = Array("ACAチーム", "ACBチーム", "ACCチーム")
End Select
Case 1
Select Case ComboBox6.ListIndex
Case 0
'B支店のBA課
Me.ComboBox7.List = Array("BAAチーム", "BABチーム", "BACチーム")
Case 1
'B支店のBB課
Me.ComboBox7.List = Array("BBAチーム", "BBBチーム", "BCCチーム")
Case 2
'B支店のBC課
Me.ComboBox7.List = Array("BCAチーム", "BCBチーム", "BCCチーム")
End Select
Case 2
'・・・
'・・・
'・・・
End Select
End Sub

補足

早速の回答ありがとうございます。
実行してみたところ、コンパイルエラーで「メソッドまたはデータメンバが見つかりません」と出ます。

該当箇所はComboBox5の課を選択するところです。どうやら項目名が違っていると発生するようですが、何度見直しても誤りが見当たりません。他にどのような要因があるのでしょうか？

回答No.2

watabe007

No.1です。
>実行してみたところ、コンパイルエラーで「メソッドまたはデータメンバが見つかりません」と出ます。
新規ブックにユーザーフォームを設けフォーム上にComboBox5、ComboBox6、ComboBox7設け
私が提示したコードをユーザーフォームモジュールに丸ごと貼り付けて試してください。

お礼

お礼が遅くなってすみません。試したところ無事に成功しました。どうやらコンボボックスをフレーム内に設置していたことが原因だったようです。
ありがとうございました。