1行のＶＢＡコードでフィルタの解除したい

質問

フィールド１ フィールド２
1　　　　　　　　 あ
2　　　　　　　　 い
3　　　　　　　　 う

で、コマンドボタンを押したら、
Ａ列にフィルタがかかっていても、
Ｂ列にフィルタがかかっていても、解除したいのですが、
どういうコードにすればいいのでしょうか？

Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
End Sub

こうするしかないでしょうか？
今は2列だから良いのですが、実際のデータは、３０列以上あります。
その場合、1行のＶＢＡコードでフィルタの解除が出来ればいいなーと思っています。
ご回答よろしくお願いします。

回答No.3

keithin · ベストアンサー

activesheet.showalldata
と書きます。

お礼

ActiveSheet.ShowAllData
なら、フィルタを解除した後に、再度Range("A1").AutoFilterをして
フィルタをかけなくてもいいのですね。
ありがとうございました。

回答No.2

tom04

こんばんは！
お望みの方法とは違うかもしれませんが・・・

お示しの画像のように1行目がフィルタの検索項目行だとすると
1行目のどこかのセルをアクティブにして、コマンドボタンをクリックします。

Private Sub CommandButton1_Click()
On Error Resume Next
Selection.AutoFilter
End Sub

※　オートフィルタを解除した後、プルダウンも表示されなくなります。
もう一度コマンドボタンをクリックするとプルダウンが表示されると思います。

他に良い方法があればごめんなさいね。m(_ _)m

お礼

このような方法もあるのですか。ありがとうございました。

回答No.1

uruz

Worksheets("Sheet1").AutoFilterMode = False
または
ActiveSheet.AutoFilterMode = False

お礼

できました。ありがとうございました。