[[20070608203530]]　『そのシートに戻る時オートフィルタを全表示にする』（初心者）　ページの最後に飛ぶ

『そのシートに戻る時オートフィルタを全表示にする方法』（初心者）

 ＭＡＩＮのシートと各作業のシートがあります。
 各作業のシートから ＭＡＩＮのシートに戻った時全ての列のオート
 フィルタを全表示に自動的 にするにはどうすれば でしょうか。

 質問の方法が不足、不明確だったようでした。すみません。
 やりたいことはＭＡＩＮというシートに戻った時 オートフィルタ 
 のすべての列のボタンを（すべて）を押したようにしたいということ
 でした。
 全文検索でいろいろ探してPrivate Sub Worksheet_Activate()
 というのがありそのシートをActivateのした時、自動的に処理が
 走る機能があるとわかりました。
 マクロの自動登録でオートフィルタボタンを選択し一旦解除し
 再度設定を登録し、先ほどのPrivate Sub Worksheet_Activate()
 のところへ追加しました。
 とりあえず希望のことが出来ました。有難うございました。
 （初心者）

 ご自分で解決されたようで何よりです。ただ、もし ShowAllDataメソッドを
 使っているとすると、オートフィルタがかかってない状態で実行すると
 エラーになるので、On Error Resume Next をかませておくといいかもしれませんね。
（純丸）(o^-')b

 純丸さん。有難うございます。
 Private Sub Worksheet_Activate()
    ActiveSheet.ShowAllData
 End Sub　とやってみて
 オートフィルタがかかってない状態で実行すると
 実行エラー１００４となりました。
 On Error Resume Next を途中にいれると、エラーせず動きました。

 ＶＢＡの編集画面のところで　Resume　の意味をＦ１（HELP）機能で
 見てみました。

 On Error Resume Next 実行時エラーが発生してもプログラムを中断せず、
 エラーが発生したステートメントの次のステートメントから実行を継続します。
 オブジェクトを操作する場合は、On Error GoTo ステートメントではなく、
 このステートメントを使ってください。 となっていて・・・なるほど

 純丸さんご紹介の方法を使わせて頂きます。有難うございました。
 （初心者）

コメント返信：

[ 一覧(最新更新順) ]

[[20070608203530]] 『そのシートに戻る時オートフィルタを全表示にする』（初心者） ページの最後に飛ぶ

[[20070608203530]]　『そのシートに戻る時オートフィルタを全表示にする』（初心者）　ページの最後に飛ぶ