[[20130524113630]] 『オートフィルター』(ききき) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『オートフィルター』(ききき)

 Excel2003 WindowsXP

 B10:AA150内でオートフィルターを使用しいろいろ抽出したのち再表示を忘れる事
 があります。

 別のシートに移動するときに必ず再表示をして別シートに移動するVBAなんて
 あるのでしょうか?

 もしくは移動しようとしたときに再表示されてませんと注意メッセージでも
 構わないのですが。。。
 わかる方お願いします。
 (ききき)


 ThisWorkbookモジュールに

 Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.AutoFilterMode Then   'オートフィルター設定あり
        'もしフィルタリングがかかたままならフィルタリングを解除
        If Sh.FilterMode Then Sh.ShowAllData
    End If
 End Sub

 (ぶらっと)

 こんな便利なVBA早く聞けばよかったです。
 ありがとうございました。
 (ききき)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.