エクセルのマクロの質問です。

質問

オートフィルタを使ってデータを検索しているのですが、ファイルを閉じる時には自動的に「全て表示」にして閉じたいと思います。
試しに下記のマクロで実行してみたのですが、

Sub Auto_Close()

ActiveSheet.ShowAllData

End Sub

フィルタで検索していれば自動的に「全て表示」になって問題なく閉じる事ができるのですが、最初から「全て表示」になっていると失敗し（当然ですよね）下記のエラーメッセージが出ます。

実行時エラー'1004':
worksheetクラスのshowAllDataメソッドが失敗しました。

そこで、「全て表示」になっている時はそのまま閉じるを追加してマクロを完成させたいのですが、どうすればいいのでしょうか？

教えて下さい。お願いします。

回答No.2

BLUEPIXY · ベストアンサー

'FilterMode プロパティをがtrue ならば、フィルタが掛かっています。
With ActiveSheet
If .FilterMode Then
.ShowAllData
End If
End With

お礼

早々のご回答ありがとうござました。
うまくいきました。ありがとうございました。

回答No.1

keirika

Sub Auto_Close()

On Error Resume Next

ActiveSheet.ShowAllData

End Sub

ではどうでしょうか？

お礼

早々のご回答有難うございました。
早速試してみたところ、上手くいきました。有難うございました。