ExcelVBAでピボットテーブルにフィルターをかける

VBAでピボットテーブルに特定の値だけを表示させるSubプロシージャ

判定フィールドで使用してください

'ピボットにフィルターをかける
'条件は一つだけ
'引数１：シート名
'引数２：ピボットテーブル名
'引数３：フィールド名
'引数４：この値だけを表示する

Private Sub S_ToOneFilterPivot(ByVal arg_filterSheetName As String, arg_filterPivotName As String, ByVal arg_filterFieldsName As String, ByVal arg_filterItemName As String)
    
    Dim filterSheet As Worksheet
    Set filterSheet = ActiveWorkbook.Worksheets(arg_filterSheetName)
    
    With filterSheet.PivotTables(arg_filterPivotName).PivotFields(arg_filterFieldsName)
        .CurrentPage = arg_filterItemName
    End With
    
End Sub

行フィルタ等にはこちら

https://zenn.dev/webdebris/articles/585037162b9067