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

2024.01.14

VBAで列のフィールドAの値が「A」のデータのみ表示するようにフィルタをかける方法

カテゴリ： VBA

VBAを使用して、特定の列の値が「A」のデータのみを表示するには、PivotTableの行フィールドまたは列フィールドに対してフィルタをかけることが必要です。以下は、行フィールドを対象にした例です。

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

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

If pi.Name <> "A" Then

pi.Visible = False

End If

Next pi

End Sub

この例では、特定の列フィールド（"列フィールドの名前"）に対して、値が「A」以外のアイテムを非表示にします。実際のケースに応じて、シート名やピボットテーブル名、列フィールドの名前を適切なものに変更してください。

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

Last updated 2024.01.14 15:47:56

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

【毎日開催】

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

10秒滞在

いいね! -- / --

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

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

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