Excel VBA質問箱 IV

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

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


74075 / 76738 ←次へ | 前へ→

【7133】Re:複数条件による検索
質問  渡航隊長  - 03/8/23(土) 20:46 -

引用なし
パスワード
   ありがとうございました。
すごく助かりました。(大感謝です)

すみませんがもう一つお願いがあります。
今のプログラムは検索開始を実行するマクロ(Macro1)と
オートフィルターを解除するマクロ(Macro2)を使用していますが、
追加したいマクロが以下の2つあります。

1.Macro1を2回連続で使用するとエラーとなる。(エラー表示もする)
2.Macro1を実行する前にMacro2を実行するとエラーとなる。(エラー表示もする)

現在のマクロは

Sub Macro1()

   Range("B14:L14").Select
  Selection.AutoFilter
  
  If Range("B4").Value <> "" Then
 Selection.AutoFilter Field:=1, Criteria1:=Range("B4").Value
End If
  
  If Range("C4").Value <> "" Then
 Selection.AutoFilter Field:=2, Criteria1:=Range("C4").Value
End If

  If Range("D4").Value <> "" Then
 Selection.AutoFilter Field:=3, Criteria1:=Range("D4").Value
End If

  If Range("E4").Value <> "" Then
 Selection.AutoFilter Field:=4, Criteria1:=Range("E4").Value
End If

  If Range("F4").Value <> "" Then
 Selection.AutoFilter Field:=5, Criteria1:=Range("F4").Value
End If

  If Range("G4").Value <> "" Then
 Selection.AutoFilter Field:=6, Criteria1:=Range("G4").Value
End If

  If Range("H4").Value <> "" Then
 Selection.AutoFilter Field:=7, Criteria1:=Range("H4").Value
End If

  If Range("I4").Value <> "" Then
 Selection.AutoFilter Field:=8, Criteria1:=Range("I4").Value
End If

  If Range("J4").Value <> "" Then
 Selection.AutoFilter Field:=9, Criteria1:=Range("J4").Value
End If

  If Range("K4").Value <> "" Then
 Selection.AutoFilter Field:=10, Criteria1:=Range("K4").Value
End If

  If Range("L4").Value <> "" Then
 Selection.AutoFilter Field:=11, Criteria1:=Range("L4").Value
End If

End Sub

Sub Macro2()

  Range("B4:L4").Select
    Selection.AutoFilter
  Range("B4").Select
End Sub

申し訳ありませんがよろしくお願いします。

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 お礼

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