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

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

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

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

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

No.3 ベストアンサー 回答者： keithin 回答日時： 2012/09/14 23:05

activesheet.showalldata

と書きます。

この回答へのお礼

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

お礼日時：2012/09/15 20:58

No.2 回答者： tom04 回答日時： 2012/09/14 23:03

こんばんは！

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

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

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

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

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

この回答へのお礼

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

お礼日時：2012/09/15 20:54

No.1 回答者： uruz 回答日時： 2012/09/14 23:02

Worksheets("Sheet1").AutoFilterMode = False

または
ActiveSheet.AutoFilterMode = False

この回答へのお礼

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

お礼日時：2012/09/15 20:54