|
▼ねろろ さん:
If A <> Selection.Offset(1, 0) And A <> -1 Then tmp(1)=1
If B <> Selection.Offset(2, 0) And B <> -1 Then tmp(2)=1
・
・
・
If J <> Selection.Offset(10, 0) And B <> -1 Then tmp(10)=1
For i=1 To 10
tmp = tmp + tmp(i)
Next i
If tmp=0 then 一致
ではダメなんでしょうか?
>完全に行き詰っております。良いお知恵をお願いします。
>ユーザーホーム上に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の表現がわかりません。
>どなたかお分かりになる方、よろしくお願いします。
|
|