【VBA】オートフィルター使用時の絞込み解除について

Question

前提・実現したいこと

エクセルVBAにてオートフィルターを使用して絞込みをし、
その絞込み結果が何もないときに、
絞込みを解除するとエラーが表示される。

発生している問題・エラーメッセージ

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

該当のソースコード

    If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
    End If

試したこと

絞込みデータがある場合は、
上記コードで問題なく絞り込み解除ができている。
絞り込みデータが無い場合のみ
ShowAllDataを使用するとエラーが発生する。

この状態で絞込みを解除するには、
ActiveSheet.AutoFilterMode = False
で一度オートフィルター自体を解除してから
再度オートフィルターを設定するしかないのでしょうか？

補足情報（FW/ツールのバージョンなど）

MicrosoftOfficeProfessionalPlus2010
MicrosoftVisualBasic for Applications 7.0

＜追記＞

絞込みデータなしでの絞り込み状態のデータ
xlsmファイルのzip圧縮ファイルとなります。
この状態で【ボタン１】を押すとエラーが発生します。
Download
※削除予定

Answer 1

やはり、
ActiveSheet.AutoFilterMode = False
しか手立てはなさそうですか。。。
原因は絞り込み数が０の状態で、ShowAllDataを使用している事だと認識しています。
画像のような絞込み０でもFilterModeでチェックしますとTrueが返ってきます。

んと。
1）状況が再現できません。まずは、再現できるサンプル等をお願いします。

2）ActiveSheet.AutoFilterMode = False
ではだめですか？
他にもいろいろエラーの回避方法はありますが、
やりたいこと及び前提条件（コードを実行する前にシート上ではどうなっているか）、
全体の処理の流れ及び、上手くいってないコード（できれば全部、長ければ一部）を提示してください。

---

下記のようなmacroを作成しており、
Criteria1　の値を変更したものを、
複数配置しているような形です。
新規シートでフィルター設定した後、
下記macroを何度か起動すれば再現されます。

Sub filter()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
Range("A1").AutoFilter field:=1, Criteria1:=1
End Sub

20回実行してみましたがエラーになりません。
シート上のイメージを質問文に追記してください。

あと、
フィルターが掛かった状態は、いつも保持しなければいけませんか？
ActiveSheet.AutoFilterMode = False
とするのは何がまずいのでしょうか？

いくつかエラーを回避する方法はあると思いますが、
全体の流れがわからないので、
この件の場合どうしたらいいかの提案ができません。

Comments

[Nah_Y]

下記のようなmacroを作成しており、
Criteria1　の値を変更したものを、
複数配置しているような形です。
新規シートでフィルター設定した後、
下記macroを何度か起動すれば再現されます。

Sub filter()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
Range("A1").AutoFilter field:=1, Criteria1:=1
End Sub

[退会済みユーザー]

エクセルVBAにてオートフィルターを使用して絞込みをすると、
該当しない結果はチェックがない状態で表示されると思うのですが
はじめにお示しいただいた空っぽの画面を再現できません。
（すべて選択の行だけが表示される）

マクロも試しましたがエラーとなりませんでした・・。
やはり、サンプルか簡単な画面キャプチャがないと原因がわからないような
気がしてきました。

[mattuwan]

解答欄に追記しました。

[Nah_Y]

再現状態のファイルをDownloadできるように追記しました。

皆様再現しないということは、
当方の環境のせいかもしれませんね。

[退会済みユーザー]

拝見しました・・。勘違いなら申し訳ないのですが、
データがA列にないので、挙動としてただしいのではないかと。。
A列
name
田中
高橋
本田

にデータを入れるとマクロが正常に動作するような気がします。

Sub test()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
Range("A1").AutoFilter field:=1, Criteria1:="本田"
End Sub

[Nah_Y]

ご確認ありがとう御座いました。

不特定多数が使用するシートでしたので、
どんな動作をされても良いようにと考えておりました。
その上でShowAllDataでは動作しない環境を発見した為、
当サイトにて質問させて頂きました。

今後は、
ActiveSheet.AutoFilterMode = False
を活用するか、
そもそもデータが無い状態では、
フィルターが動作しないような形で組むようにします。

Answer 2

'オートフィルタを解除
Sheets("data").AutoFilterMode = False

ではだめでしょうか・・。

もしくは、原因追及が困難であれば、エラー処理するとか・・（そうではない？。。）。

sub test

on error goto err:

処理

exit sub

err:

msgbox "エラー！"

end sub

Comments

[Nah_Y]

やはり、
ActiveSheet.AutoFilterMode = False
しか手立てはなさそうですか。。。
原因は絞り込み数が０の状態で、ShowAllDataを使用している事だと認識しています。
画像のような絞込み０でもFilterModeでチェックしますとTrueが返ってきます。