「東雲忠太郎」の平凡な日常のできごと

2024.01.13

PivotItemsのNameが"AAAAA"の場合の表示するようにする方法

カテゴリ： VBA

特定のPivotItemのNameが"AAAAA"の場合にだけ表示するには、以下のように条件分岐を使用してVBAコードを作成します。

vba

Sub DisplaySpecificPivotItem()

Dim pt As PivotTable

Dim pf As PivotField

Dim pi As PivotItem

' PivotTableの名前やシート名に合わせて変更してください

Set pt = Worksheets("Sheet1").PivotTables("PivotTable1")

' フィルターを変更したいPivotFieldを指定

Set pf = pt.PivotFields("FieldName")

' フィルターをクリア

pf.ClearAllFilters

' 特定のPivotItemのNameが"AAAAA"の場合に表示

For Each pi In pf.PivotItems

If pi.Name = "AAAAA" Then

Debug.Print pi.Name

' ここで他の処理を追加することもできます

End If

Next pi

End Sub

このコードでは、PivotFieldのすべてのPivotItemを反復処理し、各PivotItemのNameが"AAAAA"である場合にデバッグウィンドウに表示します。Debug.Printの代わりに、他の処理を追加してください。例えば、メッセージボックスに表示させるか、ワークシートに書き込むことができます。

お気に入りの記事を「いいね！」で応援しよう