• ベストアンサー

エクセルVBAでオートフィルターの認識について

エクセルマクロでオートフィルターを設定したり解除したりしたいのですが、オートフィルターが設定されているか、又は、設定されていないかをマクロで認識出来ないのでしょうか?

  • list
  • お礼率50% (206/408)

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

With ActiveSheet if .AutoFilterMode = Fale Then または if .AutoFilterMode = True Then End With ではないですか。

list
質問者

お礼

有り難う御座いました。

関連するQ&A

  • Excel VBAのオートフィルタ解除について

    こんばんわ。 現在、コマンドボタン(オートフィルタの設定)にオートフィルタを設定するようなマクロを登録しています。 そして、別のコマンドボタンにはオートフィルタの解除を実施するマクロを書きたいんです。 しかし、オートフィルタを設定していない時に、解除のマクロを実行するとエラーになってしまいます。どうしたら良いのでしょうか? If・・・文を使って、対象セルにオートフィルタが設定している時は解除を実施し、オートフィルタが設定されてない時は、何も実施しない。 このようなマクロはどうしたら良いのでしょうか? よろしくお願いします。

  • エクセルでオートフィルターが使えない

    エクセルで「データ」->「フィルター」->「オートフィルター」が使えなくなっています。 該当シートではオートフィルターを使用していません それと ブックを開いたときにブック名の他に[作業グループ] と名前が付いています これが原因なのでしょうか 解除する方法を教えてください エクセル2002

  • 大変困っています!エクセル オートフィルタについて

    いつもお世話になっております。 エクセル2007を使用して、データーベースを作成しております。 データが4万5千件程あり、オートフィルタを設定し、 氏名からや生年月日からでも検索出来るように設定しました。 そうしましたら、全表示にしても、 今まで表示されていた、住所欄以降のデータが見えなくなりました。 (氏名は全員分見れてます。) しかし、ある条件等を設定しオートフィルタで検索したら、 住所の欄のデータも見れるんです。 少し調べましたら、オートフィルタで表示される件数が1000件程とか・・・ それで、元に戻そうと思い、オートフィルタの設定を解除しても、 氏名は見れますが、住所等のデータが見れなくなってしまいました。。。 元に戻る方法を教えてください! もしくは、全表示される方法を教えてください。 大変困っております。 ちなみに、いろいろと修正をかけてしまった為、 過去のオートフィルタをかける前のデータを使用することは出来ません。 本当に困っております。 お判りになる方、大変申し訳ありませんが、よろしくお願いいたします。

  • Excel共有ブックのオートフィルタについて

    Excelの共有ブックにオートフィルタを設定したあと、シート保護をして10人ほどで使用していますが、時々、設定していたはずのオートフィルタが消えてしまうという現象が起こります。 シート保護をしていると、オートフィルタの設定変更は出来ないように思えるのですが、特に誰かが共有を解除しているわけでもないのに、オートフィルタが消えてしまいます。 どなたか、原因と対処方法をご存じの方がいらっしゃいましたら教えてください。

  • EXCEL2003 VBA オートフィルター解除

    お世話になります。 EXCEL2003を使用しています。 10列ほど項目が並んだEXCELシートがありますが、このシートを開いた時にオートフィルターを10列すべての項目でオートフィルターを解除する仕組みをVBAで構築したいのです。 EXCEL2007ではオートフィルターモードという便利なプロパティがあるようですが、EXCEL2003で一括でオートフィルターを解除する方法を知りたいです。 (私以外のユーザーがオートフィルターをかけている時がよくあるので) どなたかお知恵をお借りできませんでしょうか? よろしくお願い致します。 環境 Windows XP SP3 EXCEL2003

  • Excel2003でシート保護(オートフィルタ使用にはチェック)するとマクロのオートフィルタでエラーになる

    QNo.3901563で回答いただき、Excelの試用で保護後のオートフィルタは使えないのはわかりました。 そこで予めオートフィルタを設定し、シートに保護をかけました。 Excelの画面上ではオートフィルタは使用できます。 マクロよりオートフィルタの抽出条件を変更するコマンドを実行すると「保護されたシートに対して、このコマンドは実行できません」と表示されます。コマンドは新しいマクロの記録で操作を記録したものです。記録したときは特にエラーはでませんでした。 Selection.AutoFilter Field:=2, Criteria1:="AAA" マクロのコマンドでは保護のかかったシートのオートフィルタの抽出条件を変更することは出来ないのでしょうか。 マクロの前後にシート保護を解除するコマンドを入れようかとも思ったのですが、保護にパスワードがかかっており、本末転倒となるもので。

  • オートフィルタの解除方法

    エクセルのオートフィルタのアイコンをツールバーに設定したのですが、データ→フィルタでオートフィルタの項目が消えてしまい、解除できない状態です。 (設定した行を一度削除して戻るキーをクリックすれば解除された状態に戻ります) データのところにオートフィルタを復活(元に戻す)にはどうしたら良いでしょうか? ご存知の方教えてください。宜しくお願いします。

  • VBA オートフィルタの設定・解除

    VBAで、データの並べ替えを行った後、1番最後に行ごと選択してオートフィルタを次の様に設定しています。 ' オートフィルタつける Rows( 変数1 & ":" & 変数2).Select Selection.AutoFilter ----------------------------------------------- これだと、1回目のプログラムは正常に動くのですが、 次に同じシートを利用して、またプログラムを動かすと、 シート上にオートフィルタが既に設定されているままになっているので、 オートフィルタを解除して終わってしまいます。 なので、【すでにオートフィルタがシート上で設定されている場合は、オートフィルタを解除する】 ということをプログラムに組み込みたいのですが、そういった式(?)は ありますでしょうか。 ※初心者で、わかりにくい文章になっているかと思いますが、  何卒宜しくお願い致します。

  • オートフィルタボタンのon・off

    ツールバーにオートフィルタのボタンを設定していますが、以前エクセル97の時には、オートフィルタの実行と解除がひとつのボタンで簡単にon・offできました。 最近エクセル2000に変更したのですが、ユーザー設定でこのツールバーのコマンドから同じように設定しても、オートフィルタの実行はできますが、同じボタンで解除ができなくなりました。 オートフィルタを頻繁にon・offしたいのですが、このボタンで解除(off)できないと、毎回メニューから辿っていかなくてはならず、不便になりました。どのように設定すればいいか教えて下さい。 よろしくお願いします。

  • EXCELのオートフィルターの保護の解除

    EXCELのオートフィルターの保護の解除の仕方を教えてください。 一部は保護を解除して使用してますが、シートに保護をかけると、オートフィルターの機能が使えなくなります。 どうすればいいのでしょうか?

専門家に質問してみよう