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

2024.01.14

ExcelVBAで行ラベルの名前がAAAの行のみ表示するようにフィルタをかける方法

カテゴリ： VBA

Excel VBAを使用して、PivotTableの行ラベルにフィルタをかけ、特定の行のみを表示するには、以下のようにします。以下の例では、特定のピボットフィールドにおいて、"AAA"という行のみを表示する方法を示しています。

vba

Sub フィルタをかけて特定の行のみ表示()

Dim pf As PivotField

Dim pi As PivotItem

' シート名とピボットテーブル名を適切なものに変更してください

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

' フィルタをかける対象のピボットフィールドを指定

Set pf = pt.PivotFields("フィルタ対象のフィールド名")

' 一旦すべてのフィルタをクリアする

pf.ClearAllFilters

' ピボットフィールドの各アイテムに対してループ

For Each pi In pf.PivotItems

' "AAA"以外のアイテムは非表示にする

If pi.Name <> "AAA" Then

pi.Visible = False

End If

Next pi

End Sub

この例では、特定のピボットフィールドの各アイテムに対してループし、「AAA」以外のアイテムは非表示にします。このプロシージャを実行すると、指定したピボットテーブルの行ラベルが "AAA" の行のみにフィルタされます。

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

Last updated 2024.01.14 12:48:41

[VBA] カテゴリの最新記事

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! -- / --

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

スマートフォン版を閲覧 | PC版を閲覧