エクセル マクロ セルの値でオートフィルター抽出とフィルター解除

仕事でちょくちょくエクセルマクロを使うので、
後で探すのに困らないようメモっておきます。

＜セルＡ２に入力した値でオートフィルターで抽出するマクロ＞

Sub オートフィルタでセルの値で抽出()

With ActiveSheet
.AutoFilterMode = False
.Range("5:5").AutoFilter field:=1, Criteria1:=.Range("A2").Value
End With


End Sub

＜オートフィルターを解除するマクロ＞

Sub オートフィルタ解除()

解除ボタンを単独で作るので、エラー防止のため一旦オートフィルターがついてないか判断して、ついてなかったつけて、それから解除をするという遠回りなマクロ。

With ActiveSheet
If Not .AutoFilterMode Then
.Range("5：5").AutoFilter
End If
End With
ActiveSheet.AutoFilterMode = False

End Sub

もっと賢い方法があるのだろうけど、探す時間がなかったので力業で解決。
今度時間あるときに改善しなくては。

セル入力での抽出が意外に面倒なのでやっぱりinputboxでしようと思って作成したマクロ

＜インプットボックスの値でオートフィルター抽出＞

Sub オートフィルタ検索()

Dim 番号 As Integer
番号 = InputBox("番号を入力してください")


With ActiveSheet
.AutoFilterMode = False
.Range("5:5").AutoFilter field:=1, Criteria1:=番号
End With


End Sub