『VBA:オートフィルターの取得』（いまちゃん）
ファイルを開いた際、そのファイルにオートフィルターがかかっているかどうかの
確認をしたいのですが、オートフィルターの値の取得方法教えてください

----
 これでいいのかな・・。
Sub Test()
Dim MyFlg As Boolean
On Error Resume Next
MyFlg = Worksheets("Sheet1").ShowAllData
If MyFlg = False Then
    MsgBox ("フィルタが掛かっていません。")
Else
    MsgBox ("フィルタが掛かっています。")
End If
On Error GoTo 0
End Sub

 （川野鮎太郎）

----
川野さん　　さっそくのご対応ありがとうございます。
上記コードを実行したところ、オートフィルタがかかっている場合でも
フィルタ掛かっていませんとなってしまいます・・・（いまちゃん）

----
 参考です。
http://www.microsoft.com/japan/msdn/library/ja/off2000/vbaxl/html/xlobjfilter.asp
  (INA)
----
出来ました！INAさん、川野さんありがとうございましたm(_ _)m(いまちゃん)

----
 ありゃま・・・。
 オートフィルタが掛かっているというのは、『オートフィルタが設定してある』
 って意味だったんですね。(^_^A;
 オートフィルタが設定してあっても、フィルタされていない状態を考えました。
 INAさんフォローありがとうございました。

 （川野鮎太郎）

----
 >オートフィルターの値の取得方法教えてください
 私はここしか見ていませんでした・・・(^^;)
 なので、フィルタに設定している抽出キーワードを知りたかったのかなと。
  (INA)