日付のオートフィルタ設定を保存・復元するには？

Question

日付で絞ったオートフィルタの設定を保存・復元したいのですが

Criteria1の取得でアプリケーション定義のエラーが発生します。

コードはAutoFilter オブジェクトのサンプルをほぼそのまま使用しており

ウォッチしてみたところ、Criteria1とCriteria2の値がアプリケーション定義のエラーでした。

現状、日付で絞ったオートフィルタの設定の保存はできないのでしょうか。

Option Explicit

Private w                   As Worksheet

Private filterArray()       As Variant

Private currentFiltRange    As String

Private Sub ChangeFilters()

    Dim f As Long

    Set w = Worksheets("Crew")

    With w.AutoFilter

        currentFiltRange = .Range.Address

        With .Filters

            ReDim filterArray(1 To .Count, 1 To 3)

            For f = 1 To .Count

                With .Item(f)

                    If .On Then

                        filterArray(f, 1) = .Criteria1

                        If .Operator Then

                            filterArray(f, 2) = .Operator

                            filterArray(f, 3) = .Criteria2

                        End If

                    End If

                End With

            Next

        End With

    End With

    w.AutoFilterMode = False

    w.Range("A1").AutoFilter field:=1, Criteria1:="S"

End Sub

Answer 1

大沢 孝太郎さん

ご回答ありがとうございます。

VBAフォーラムの存在は知りませんでした。

そちらに投稿してみます。

Answer 2

raito sato さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

日付でしぼったオートフィルタの設定を保存したいがうまくいかないということなのですね。

サンプルのコードを使用されているということなので、シートの内容から VBA コードの修正などが必要なのかもしれません。

作成されている VBA コードについて、専門の VBA フォーラムにも投稿し、修正箇所などがないか情報を集めてみてはいかがでしょう。

そうすることで、より専門的なアドバイスが集まりやすくなるかもしれません。

・ Visual Basic for Application(VBA)

※ 投稿される場合は、同じく VBA コード全文と、コードを参考にされた Web ページのアドレスなども書いて投稿されるとよいと思います。

よろしければ、上記のフォーラムへの投稿も検討してみてください。