Sub ピボットテーブルのフィルターを選択チェックする()
    
    With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("会社名")
        .ClearAllFilters '毎回まずリセットする
        .PivotItems("い").Visible = True '選択
        .PivotItems("う").Visible = False '選択しない
    End With
    
End Sub