VBA 日付の絞り込み

Question

VBAを使って、日付で表を絞り込みたいのですが、上手くいかないため、質問させて頂きました。

画像のような表で、「いつから」「いつまで」の指定した日付の範囲で、その日付があるIDの人をを絞り込みたいです。
例えば、この画像ですと、2021/01/03～2021/01/10までのIDの人は a と f が該当するので、その人をマクロを実行した時に表示させたいという感じです。

一つの列の日付では絞り込むことができるのですが、複数の列にまたがって絞り込む方法がわかりませんでした。
以下に私のコードを載せさせて頂きます。

Sub filterDate()

Dim fromDate As Date, toDate As Date
fromDate = Sheet5.Cells(7, 2).Value
toDate = Sheet5.Cells(8, 2).Value

Sheet5.Cells(11, 1).AutoFilter 2, ">=" & fromDate, xlAnd, "<=" & toDate

End Sub

上記のようなコードでは当然ですが、2列目でしか絞り込むとができず、 a も f も表示されない実行結果となってしまいます。

安直に考えて

Sheet5.Cells(11, 1).AutoFilter 2 Or 3 Or 4 Or 5 Or 6 Or 7, ">=" & fromDate, xlAnd, "<=" & toDate

のように、fieldの引数をOrで繋げてみてもはやりダメでした。

複数の列から日付の範囲に入っている全ての人を絞り込むVBAはどのように書けば宜しいでしょうか。

Comments

[radames1000]

最終的にはどんな表にしたいのですか？

[tttkkk]

最終的と言うと、私が的を射た回答をできているか分かりませんが、
日付で絞り込みをかけれるようなマクロを組みたいというのが私の最終的な部分です。

表はほとんどこれに近いものを作ろうと思っております。
ですので、この表で範囲内の日付の人を絞り込むことができれば、最終的な表には簡単に応用が効くかと思っております。

Answer 1

AutoFilter に配列を組み合わせて複数条件に合致するものを抽出するようにしてみました。

IdAddress 、StartColumn 、EndColumn は実際のファイルに合わせて変えてください。
ここでは、StartColumn は最初の日付列（「日付①」）の列番号、
EndColumn は最後の日付列(「日付⑥」）の列番号としています。

Sub filterDate()

    Set Sheet5 = ActiveWorkbook.Worksheets("Sheet5")
    
    Dim fromDate As Date, toDate As Date
    fromDate = Sheet5.Cells(7, 2).Value
    toDate = Sheet5.Cells(8, 2).Value
    
    '指定した日付範囲の条件に合致するIDを格納する配列
    ReDim FilterArray(0) As String
    
    '「id」の見出しがあるセル番号
    IdAddress = "A11"
    '日付の開始列
    StartColumn = 2
    '日付の終了列
    EndColumn = 7
    
    Range(Range(IdAddress).Offset(1, 0), Cells(Rows.Count, 1).End(xlUp)).Select
    
    For Each ID In Selection:
        For col = StartColumn To EndColumn:
            TargetDate = Cells(ID.Row, col).Value
            'そのIDが日付を含んでいる場合は、配列に格納する。
            If TargetDate >= fromDate And TargetDate <= toDate Then
                n = UBound(FilterArray) + 1
                ReDim Preserve FilterArray(n)
                FilterArray(n) = Cells(ID.Row, 1).Value
                Exit For
            End If
        Next
    Next
    
    ' 条件に合致するIDをフィルター
    Sheet5.Cells(11, 1).AutoFilter 1, FilterArray, xlFilterValues
    
End Sub

Comments

[tttkkk]

ありがとうございます。
このコードをそのままコピペしましたら私の意図している通りにフィルターをかけることが出来ました。
ただ私のスキルがまだ足りなく、どのメソッドがどの動きを示すのか分からない部分が多々あるので、それをまず勉強していきたいと思います！

Answer 2

H11セルに"範囲判定"等の列名を指定し、
H12セルに

=OR((AND(D12>=fromDate,D12>=<=toDate),(AND(E12>=fromDate,E12>=<=toDate),(AND(F12>=fromDate,F12>=<=toDate))

を設定し、H列がtrueの行を絞り込めば、思惑の絞り込みができるでしょう。