VBAで検索した結果をコンボボックスに表示する

質問

EXCELデータからある条件で検索した結果をコンボボックスに表示したいのですがやり方が分かりません。どなたか教えていただけますでしょうか？

例)
検索条件 A列「2」 B列「low」
表示項目C列

A列 B列 C列
---- ----- -------
1 high コンボ1
1 high コンボ2
2 high コンボ1
2 high コンボ1
2 low コンボ1
2 low コンボ2
2 low コンボ2
3 high コンボ1
3 high コンボ1

☆コンボボックス表示結果☆
コンボ1
コンボ2

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

回答No.1

imogasi

（１）コンボボックスのプロパティのListFillRangeにC1:C8など指定し検索結果の該当の値ををC1:C8に入れる。
最終行を捉えるのに工夫が必要。
（２）AddItemで検索該当分を１つづつItemに加えていく。
「ListFillRange エクセル」
WEBで照会すれば、用例が出ます。
http://www.geocities.jp/happy_ngi/YNxv98316.html
http://kikitai.teacup.com/kotaeru.php3?q=2203413
参考
Sub test01()
ActiveSheet.DrawingObjects.Delete
nm = ActiveSheet.DropDowns.Add(249.75, 69.75, 31.5, 15).Name
MsgBox nm
With ActiveSheet.DropDowns(nm)
' ActiveSheet.DropDowns (1)
' MsgBox .Name

.AddItem "x"
.AddItem "v"
.AddItem "z"
'.RemoveAllItems
.LinkedCell = ""
.DropDownLines = 8
.Display3DShading = False
End With
End Sub

どちらも検索の結果が出たときに書き換える。