書式をテーブルにした場合の絞り込み解除

いつもお世話になります

Sub Sample77()
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.AutoFilter.FilterMode Then
MsgBox "絞り込まれています"
Else
MsgBox "絞り込まれていません"
End If
End If
End Sub

上記のコードではテーブル化したエクセル表には適応しないのでしょうか？
どなたかご存知の方いらっしゃいましたらご回答をよろしくお願い申し上げます。

No.2 ベストアンサー 回答者： moto_koukousei 回答日時： 2015/10/21 22:49

勘違いをして回答してしまいました。

｢テーブル書式を挿入して、そのテーブルで｣という質問でした。
ならば、次のようなので、対応するかもしれません。

Sub Macro2()
tbcount = ActiveSheet.ListObjects.Count
If tbcount > 0 Then
For i = 1 To tbcount
If Not ActiveSheet.ListObjects(i).AutoFilter Is Nothing Then
If ActiveSheet.ListObjects(i).AutoFilter.FilterMode Then
MsgBox "テーブル" & i & "は、絞り込まれています"
Else
MsgBox "テーブル" & i & "は、絞り込まれていません"
End If
End If
Next i
End If
End Sub

AutoFilterを解除するのは、AutoFilterをかけているFieldを選んで
そのFieldの位置（列番号）を指定するだけでOKです。
下は、"テーブル１"で列3のAutoFilterを解除するもの
ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=3
ActiveSheet.ListObjects(1).Range.AutoFilter Field:=3

この回答へのお礼

2回も回答頂きましてありがとうございます。
このようなコードになるとは私には考えもつきませんでした。
素晴らしいです。ホント、ありがとうございました。

お礼日時：2015/10/22 12:10

No.1 回答者： moto_koukousei 回答日時： 2015/10/21 07:52

特に問題なく動作するようですけれども、、、

この回答へのお礼

回答ありがとうございます。

でも未だに腹立つくらい動作しないです。テーブルのままだと動かなくて、テーブルを範囲に変換すると動く。呪われてるんでしょうか。再度確認してみます。

お礼日時：2015/10/21 14:34