|
説明が下手で申し訳ありません。
ユーザーフォームは使用していません。
以下の形でシートに入力しています。
A B C D E F
1
2 100 200 300 400 500 ←ここが検索条件です
3 ここの値をすべて入力しないと
4 検索結果が表示されませんでした。
5
6 1 100 200 300 400 500
7 2 110 210 310 410 510
8 3 100 210 300 410 500
マクロは以下とおりです。
Sub Macro1()
Range("B5:F5").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Range("B2").Value
Selection.AutoFilter Field:=2, Criteria1:=Range("C2").Value
Selection.AutoFilter Field:=3, Criteria1:=Range("D2").Value
Selection.AutoFilter Field:=4, Criteria1:=Range("E2").Value
Selection.AutoFilter Field:=5, Criteria1:=Range("F2").Value
End Sub
検索条件に空白があっても検索結果を表示したいと思っています。
(例 B2の100の値のみ検索する)
以上です。
よろしくお願い致します。
|
|