VBAでピボットテールブルの列ラベルに複数選択できるフィルターをかけたい。

Question

最近何度も質問しているものです。
下記のコードのような形で、支店ラベル内の東京だけをフィルターして表示する方法は理解できたのですが、
例えば、東京以外に、名古屋と大阪があった場合に、東京と名古屋を表示したい場合はどのようになりますでしょうか。

こちらのコードはこちらのＨＰを見て学ばせていただきました。
https://daitaideit.com/vba-pivot-filter/

Sub TEST3()

With ActiveSheet.PivotTables(1)
    .PivotFields("支店").ClearAllFilters 'フィルターを解除
    '「支店」ラベルを「東京」でフィルター
    .PivotFields("支店").PivotFilters.Add2 xlCaptionEquals, , "東京"
End With

End Sub

よろしくお願いいたします。

Answer 1

こんな感じでどうでしょう。

With ActiveSheet.PivotTables(1)
    Dim p As PivotItem
    For Each p In .PivotFields("支店").PivotItems
       p.Visible = (p.Name = "東京" Or p.Name = "名古屋")
    Next
End With

Comments

[yumknd]

jinojiさん

回答ありがとうございます。
大変助かりました。

また質問した際にはぜひお願いいたします。