| |
ありがとうございました。
すごく助かりました。（大感謝です）
すみませんがもう一つお願いがあります。
今のプログラムは検索開始を実行するマクロ(Macro1)と
オートフィルターを解除するマクロ(Macro2)を使用していますが、
追加したいマクロが以下の2つあります。
1.Macro1を２回連続で使用するとエラーとなる。（エラー表示もする）
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
申し訳ありませんがよろしくお願いします。
|
|
