ExcelマクロVBA技術解説
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス

ExcelマクロVBAの問題点と解決策、エクセルVBAの技術的解説
最終更新日:2019-07-08

オートフィルタ退避回復クラスを複数シート対応させるVBAクラス


マクロ VBA オートフィルタ クラス

シートにオートフィルタが適用されていて、かつ絞り込みされている場合は、マクロVBAは何かと面倒になります。
そこで、これに対応するために作成したものが、
オートフィルタを退避回復するVBAクラス

シートにオートフィルタが適用されていて、かつ絞り込みされている場合は、VBAでは、何かと注意が必要になります。このような場合、オートフィルタを解除するか、フィルタ絞り込みをクリアして対応している事が多くなります。しかし、オートフィルタを解除したり、フィルタをクリアしてしまうと、それまでの絞り込み条件が消えてしまい、
ただし、これはシートが一つしか扱えません。
複数シートで使う場合は、シートごとにクラスのインスタンスを作成する必要があります。
2~3シートくらいなら問題ないかもしれませんが、
ブックの全シートを対象とするような場合、さすがに面倒になります。
そこで、複数シートでの実装を簡単にするために今回のVBAクラスを作成しました。

VBAクラスの扱いに慣れている人であれば、むしろ簡単なことなのではないかと思いますが、
VBAクラスの扱いに慣れていない人にとっては、クラスを扱う上で良い学習材料になるのではないかと思います。

VBAクラス内で別のクラスを扱う方法や、Dictionaryの使い方の参考にしてください。
標準モジュールのプロシージャーとVBAクラスの緩衝材として別のクラス使っていますので、このような方法についても参考になるものと思います。

オートフィルタ退避回復クラスを複数シート対応させるVBAクラスのコード

クラス名:clsAutoFilters ・・・ 複数形のsを付けています。



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")としてください。

クラスclsAutoFilterのVBAコードは、
オートフィルタを退避回復するVBAクラス
こちらを参照してください。

クラスを利用する標準モジュールの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クラス
こちらと合わせて、
フィルタ、条件付き書式、そしてVBAクラス、さらにDictionaruの学習素材としてお考えいただいたほうが良いと思います。



同じテーマ「マクロVBA技術解説」の記事

VBAのクラスとは(Class,Property,Get,Let,Set)
クラスを使って他ブックのイベントを補足する
VBAクラスの作り方:列名の入力支援と列移動対応
VBAクラスの作り方:列名のプロパティを自動作成する
VBAクラスの作り方:独自Rangeっぽいものを作ってみた
クラスとイベントとマルチプロセス並列処理
オートフィルタを退避回復するVBAクラス
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス
コレクション(Collection)の並べ替え(Sort)に対応するクラス
VBAクラスのAttributeについて(既定メンバーとFor Each)
VBAクラスを使ったイベント作成(Event,RaiseEvent,WithEvents)


新着記事NEW ・・・新着記事一覧を見る

VBAにおける変数のメモリアドレスについて|VBA技術解説(11月8日)
空文字列の扱い方と処理速度について(""とvbNullString)|VBA技術解説(1月7日)
Errオブジェクトとユーザー定義エラー|VBA入門(11月5日)
シングルクォートの削除とコピー(PrefixCharacter)|VBA技術解説(11月4日)
ユーザー定義型の制限とクラスとの使い分け|VBA技術解説(11月3日)
クリップボードに2次元配列を作成してシートに貼り付ける|VBA技術解説(11月1日)
VBAクラスを使ったイベント作成(Event,RaiseEvent,WithEvents)|VBA技術解説(10月31日)
VBAクラスのAttributeについて(既定メンバーとFor Each)|VBA技術解説(10月19日)
VBAの用語について:ステートメントとは|VBA技術解説(10月16日)
VBAのマルチステートメント(複数のステートメントを同じ行に)|VBA技術解説(10月14日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数宣言のDimとデータ型|ExcelマクロVBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.ひらがな⇔カタカナの変換|エクセル基本操作
9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説
10.セルに文字を入れるとは(Range,Value)|VBA入門



  • >
  • >
  • >
  • オートフィルタ退避回復クラスを複数シート対応させるVBAクラス

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。




    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ