[[20130524113630]]　『オートフィルター』（ききき）　ページの最後に飛ぶ

『オートフィルター』（ききき）

 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早く聞けばよかったです。
 ありがとうございました。
 （ききき）

コメント返信：

[ 一覧(最新更新順) ]

[[20130524113630]] 『オートフィルター』（ききき） ページの最後に飛ぶ

[[20130524113630]]　『オートフィルター』（ききき）　ページの最後に飛ぶ