[[20051220014624]]　『オートフィルター』（レリオネ）　ページの最後に飛ぶ

『オートフィルター』（レリオネ）
２０列あるデータをオートフィルターで情報を絞り込んだ後、「すべて」のボタンを１つ１つ押して元に戻すマクロを自動記録しましたが、動作が遅くなります。
もう少し簡単に一度にもとにもどすマクロを作成したいのですが、教えてください。宜しくお願い申し上げます。

 データ＞フィルタ＞全て表示
を記録してみてください。(みやほりん)(-_∂)b

ありがとうございました。記録をしました。それをボタンでリンクさせたのですが、オートフィルターがかかっていないときにそのボタンを押すとエラーになります。
フィルターがかかっていないときにはボタンが押せないか、押してもエラー表示されないようにするにはどうすればいいでしょうか？宜しくお願い申し上げます。

 オートフィルタが生成されているときのみ「全て表示」するには
Sheet1ならこのようなコードになります。
　
If Sheets("Sheet1").AutoFilterMode Then Sheets("Sheet1").ShowAllData
(みやほりん)(-_∂)b

 こういうのもあり？

 activesheet.autofiltermode=false
 (seiya)

 私は一度オートフィルタを解除して、もう一度設定してます。
 データの範囲に癖が有る場合はうまくいかないかもしれませんが・・・。

     Selection.AutoFilter
 オートフィルタがかかってない状態で実行するとオートフィルタがかかり
 かかっている状態で実行すると、オートフィルタが解除されます。 
 ので、二行書いて二回実行ですね。

 ・・・・あんまりよろしくないんですかね？

 (HANA)

 コード作成しているときはAutoFilterメソッドを二回実行することで
間違いなくフィルタを実行できて便利にも思い、そのようにしていたことも
あったのですが、後（忘れたころ）にあれ？と思うことはしばしばあったので、
最近は「思考の筋道」としてIf Sheets("Sheet1").AutoFilterMode Then
のような書き方を意識しています。
(みやほりん)(-_∂)b

 autofiltermodeプロパティをfasleにしてやれば良いのでは？(seiya)

皆様本当に有難う御座いました。出来ました。

コメント返信：

[ 一覧(最新更新順) ]

[[20051220014624]] 『オートフィルター』（レリオネ） ページの最後に飛ぶ

[[20051220014624]]　『オートフィルター』（レリオネ）　ページの最後に飛ぶ