|
完全に行き詰っております。良いお知恵をお願いします。
ユーザーホーム上にListBoxを10個用意して、それぞれの戻り値で対象リストを検索し、完全に合致した行の先頭番号を、別のリストに表示するという、絞込みマクロです。
悩ましいのは、戻り値-1(選ばれない)が発生するからです。
戻り値-1は、いくつ発生するかわかりません。
Dim A, B....
With ListBox1
A = .List(.ListIndex)
End With
With ListBox2
B = .List(.ListIndex)
End With
......
Application.Range("c3").Select
If A = Selection.Offset(1, 0) And B = Selection.Offset(2, 0)....
というような条件式を考えてみましたが、これで戻り値-1の時も表現するなら、1,023もの式を書かなければならなくなってしまいます。
フィルタオプションやピボットテーブル、Much関数を使うことも考えましたが、やはり戻り値-1の表現がわかりません。
どなたかお分かりになる方、よろしくお願いします。
|
|