Sub ピボットテーブルのフィルター_日付を絞り込む()
    
    With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("日付")
        .ClearAllFilters
        .PivotFilters.Add xlDateBetween, , "2022/1/2", "2022/1/4"
                         '↑を↓へ変更すれば各種指定が可能
                         'xlDateBetween  指定値の範囲内
                         'xlSpecificDate 指定値に等しい
                         'xlBefore       指定値より前
                         'xlAfter        指定値より後
    End With
    
End Sub