[[20050901130655]]　『VBA:オートフィルターの取得』（いまちゃん）　ページの最後に飛ぶ

『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)

コメント返信：

[ 一覧(最新更新順) ]

[[20050901130655]] 『VBA:オートフィルターの取得』（いまちゃん） ページの最後に飛ぶ

[[20050901130655]]　『VBA:オートフィルターの取得』（いまちゃん）　ページの最後に飛ぶ