excelのコンボボックスで教えてください。

質問

地方
****
関東
中部
関西

都道府県
***********
関東　東京
関東　埼玉
関東　神奈川
中部　愛知
中部　岐阜
中部　静岡

といったデータがあります。

まず、『地方』をコンボボックス１で選択し、
それに該当する『都道府県』のみコンボボックス２で表示させる。

過去の内容を見たのですが、いまいち理解できなくって。

よろしくお願い致します。

回答No.1

nishi6 · ベストアンサー

コントロールツールボックスのコンボボックスを使っている場合です。(シート上)

　　Ａ　　　　Ｂ　　　Ｃ
１　地方　　都道府県　
２　****　　*******　
３　関東　　関東　　　東京
４　中部　　関東　　　埼玉
５　関西　　関東　　　神奈川
６　　　　　中部　　　愛知
７　　　　　中部　　　岐阜
８　　　　　中部　　　静岡
９　　　　　関西　　　大阪
10　　　　　関西　　　京都

上のようにSheet1にデータをセットします。
Sheet1上にComboBox1とComboBox2をセットし、ComboBox1のListFillRangeはA3:A5です。

ComboBox1のChangeイベントに下記のように書きます。
ComboBox1でリストを選択する都度、ComboBox2のリストが変更されます。

Private Sub ComboBox1_Change()
　　Dim rw As Integer　　　　　　'// 行カウンタ

　　ComboBox2.Clear
　　With Range("B3")
　　　　While .Offset(rw, 0) <> ""
　　　　　　If .Offset(rw, 0) = ComboBox1.Text Then
　　　　　　　　ComboBox2.AddItem .Offset(rw, 1)
　　　　　　End If
　　　　　　rw = rw + 1
　　　　Wend
　　End With
End Sub

お礼

なんとなくわかりました。

有難う御座います。