オートフィルター退避回復クラスを複数シート対応させるVBAクラス
ワークシートにオートフィルタが適用されていて、かつ絞り込みされている場合はマクロVBAは何かと面倒になります。
そこで、これに対応するために作成したものが、
ただし、これはシートが一つしか扱えません。
複数シートで使う場合は、シートごとにクラスのインスタンスを作成する必要があります。
2～3シートくらいなら問題ないかもしれませんが、ブックの全シートを対象とするような場合はさすがに面倒になります。
そこで、複数シートでの実装を簡単にするために今回のVBAクラスを作成しました。
VBAクラスの扱いに慣れていない人にとっては、クラスを扱う上で良い学習材料になるのと思います。
標準モジュールのプロシージャーとVBAクラスの緩衝材として別のクラス使っていますので、このような方法についても参考になるものと思います。
>オートフィルタ退避回復クラスを複数シート対応させるVBAクラスのコード
>
Option Explicit
'シートごとにclsAutoFilterを格納
Private pDicClass As Dictionary
'Dictionaryのシートを公開
Public Property Get Worksheets() As Variant
Worksheets = pDicClass.Keys
End Property
'クラス初期処理
Private Sub Class_Initialize()
Set pDicClass = New Dictionary
End Sub
'クラス終了処理
Private Sub Class_Terminate()
Set pDicClass = Nothing
End Sub
'オートフィルタ退避：エラー時はFalseを返す
Public Function StoreAutoFilter(ByVal ws As Worksheet) As Boolean
Call getDicItem(ws).StoreAutoFilter(ws)
End Function
'オートフィルタ復元：エラー時はFalseを返す
Public Function ReStoreAutoFilter(ByVal ws As Worksheet, _
Optional ByVal isAutoFilter As Boolean = False) _
As Boolean
Call getDicItem(ws).ReStoreAutoFilter
End Function
'ディクショナリーのItemからclsAutoFilterを取り出す
Private Function getDicItem(ByVal ws As Worksheet) As clsAutoFilter
If pDicClass.Exists(ws.Name) Then
Set getDicItem = pDicClass.Item(ws.Name)
Else
Set getDicItem = New clsAutoFilter
Call pDicClass.Add(ws.Name, getDicItem)
End If
End Function
「Microsoft Scripting Runtime」を参照設定しています。
参照設定しない場合は、
Object型にして、CreateObject("Scripting.Dictionary")としてください。
こちらを参照してください。
クラスを利用する標準モジュールのVBAコード
Public Sub SampleAutoFilters()
Dim cAutoFilters As New clsAutoFilters
Dim ws As Worksheet
'ブックの全シートをStore
For Each ws In Worksheets
Call cAutoFilters.StoreAutoFilter(ws)
Next
'・・・
'Storeした全シートをReStore
Dim sName
For Each sName In cAutoFilters.Worksheets
Call cAutoFilters.ReStoreAutoFilter(Worksheets(sName))
Next
Set cAutoFilters = Nothing
End Sub
最後に
フィルターされている場合の現実的な対応としては、
・フィルタ絞り込みをクリア
・フィルターされていても良いマクロVBAを書く
従って、前作の、
こちらと合わせて、
オートフィルタ、条件付き書式、そしてVBAクラス、さらにDictionary等の学習素材としてお考えいただいたほうが良いと思います。
同じテーマ「VBAクラス入門」の記事
VBAクラスの作り方：列名のプロパティを自動作成する
VBAクラスの作り方：独自Rangeっぽいものを作ってみた
クラスとイベントとマルチプロセス並列処理
クラスとCallByNameとポリモーフィズム(多態性)
オートフィルターを退避回復するVBAクラス
オートフィルター退避回復クラスを複数シート対応させるVBAクラス
コレクション（Collection）の並べ替え（Sort）に対応するクラス
VBAクラスのAttributeについて（既定メンバーとFor Each）
VBAクラスを使ったイベント作成（Event,RaiseEvent,WithEvents）
VBAで音楽再生するクラスを作成
図形を方程式で動かすVBAクラス
新着記事NEW ・・・新着記事一覧を見る
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
2段階の入力規則リスト作成：最新関数対応｜エクセル関数応用(2025-12-24)
IFS関数をVBAで入力するとスピルに関係なく「@」が付く現象について｜VBA技術解説(2025-12-23)
数値を記号の積み上げでグラフ化する（■は10、□は1）｜エクセル練習問題(2025-12-09)
AI時代におけるVBAシステム開発に関する提言｜生成AI活用研究(2025-12-08)
GrokでVBAを作成：条件付書式を退避回復するVBA｜エクセル雑感(2025-12-06)
顧客ごとの時系列データから直前の履歴を取得する｜エクセル雑感(2025-11-28)
ちょっと悩むVBA厳選問題｜エクセル雑感(2025-11-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.