Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74085 / 76732 ←次へ | 前へ→

【7117】Re:複数条件による検索
質問  渡航隊長  - 03/8/22(金) 23:14 -

引用なし
パスワード
   説明が下手で申し訳ありません。
ユーザーフォームは使用していません。
以下の形でシートに入力しています。

    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の値のみ検索する)
以上です。
よろしくお願い致します。
0 hits

【7035】複数条件による検索 渡航隊長 03/8/20(水) 23:41 質問
【7042】Re:複数条件による検索 INA 03/8/21(木) 8:22 回答
【7076】Re:複数条件による検索 渡航隊長 03/8/21(木) 21:14 お礼
【7079】Re:複数条件による検索 渡航隊長 03/8/21(木) 23:55 質問
【7081】Re:複数条件による検索 INA 03/8/22(金) 8:33 回答
【7117】Re:複数条件による検索 渡航隊長 03/8/22(金) 23:14 質問
【7119】Re:複数条件による検索 INA 03/8/23(土) 2:04 回答
【7133】Re:複数条件による検索 渡航隊長 03/8/23(土) 20:46 質問
【7135】Re:複数条件による検索 INA 03/8/23(土) 21:09 回答
【7142】Re:複数条件による検索 渡航隊長 03/8/23(土) 23:41 お礼

74085 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free