| |
超初心者の質問で申し訳ありませんが
どなたか助けて下さい。
質問は コンボックスにデータを追加するマクロで
ちょっとつまずいてしまったので今回ここにアップ
させていただきました。
条件としては、コンボックス１と２があり、その
コンボックス１のなかにはあるリストを追加します。
このコンボックス１で選択した時、その中のデータに
応じてコンボックス２のリストを変化させるマクロです。
データ
│ １ │ ２ │ ３
─┼───┼───┼─────────
│コン１│ │コン２
１│ Ａ店│ Ａ │りんご
２│ Ｂ店│ Ａ │みかん
３│ Ｃ店│ Ａ │すいか
４│ Ｄ店│ Ａ │かき
５│ Ｅ店│ Ｂ │いちご
６│ Ｆ店│ Ｂ │めろん
７│ Ｇ店│ Ｂ │ぱいん
８│ │ Ｂ │もも
９│ │ │
10│ │ │
コンボックス１ →→ コンボックス２
Ｂ店 いちご
めろん
ぱいん
もも
上のようなデータで例えばコンボックス１で
Ｂ店を選択すると コンボックス２ではＢ店でのみ
扱っているリストを表示（コンボックスのアイテム）に
させたいのですが、コンボックスにデータを入力させる
為に、Find メソッドで始めの行数を取得し、 FindNextを
使って最後の行数を取得して、その間のデータを取り込もうと
考えているのですが、FindNextを使うとうまく行かないので
どなたかアドバイスの方、宜しくお願いします。
長々と書いてしまい申し訳ありません。
With Worksheets("Sheets１").Range("D2:D400")
KENSAKU = お店ComboBox.Value
Set 検索 = .Find(KENSAKU)
If Not 検索 Is Nothing Then
firstAddress = 検索.Address
KAZU = Range(firstAddress).Row
お店コード = Worksheets("Sheets１").Cells(KAZU, 3).Value
End If
End With
With Worksheets("Sheets1").Range("G2:G9000")
KENSAKU = お店コード
Set 検索 = .Find(KENSAKU)
If Not 検索 Is Nothing Then
firstAddress = 検索.Address
KAZU = Range(firstAddress).Row
End If
End With
With Worksheets("Sheets1").Range("G2:G9000")
EKAZU = 0
Set 検索 = .Find(KENSAKU)
If Not 検索 Is Nothing Then
firstAddress = 検索.Address
Do
Set 検索 = .FindNext(KENSAKU)←ここでエラーになります。
LastAddress = 検索.Address
If KAZU = EKAZU Then
Exit Do
Else
EKAZU = Range(LastAddress).Row
End If
Loop
End If
End With
For i = KAZU To EKAZU
If Worksheets("Sheets1").Cells(i, 9).Value = "" Then
Else
売物ComboBox.AddItem Worksheets("Sheets1").Cells(i, 9).Value
End If
Next
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
