ピボットのマクロで

質問

エクセルでピボットのマクロを自動記録で作ったのですがフィールドのアイテムは全部で30以上あるのですが表示は5個くらいだけなので非表示のステートメントばかりが続きます。
とりあえずはいいと考えていたのですが、今後のためにも表示のアイテムだけを選ぶマクロにするにはどうすればいいのでしょうか

回答No.1

OtenkiAme · ベストアンサー

こんにちは。

レイアウトを組む前にこんな処理をされればいいのではないでしょうか？

Dim PvtItem As PivotItem

For Each PvtItem In WorkSheets("あ").PivotTables("い").PivotFields("う").PivotItems
　　Select Case PvtItem.Name
　　　　Case "A","B","C","D","E"
　　　　　PvtItem.Visible = True
　　　　Case Else
　　　　　PvtItem.Visible = False
　　End Select
Next PvtItem

マクロの記録をとる時、ワークシート上で表示／非表示をするのではなく、
ウィザード3/3の［レイアウト］を使ってみてください。

アイテムの表示／非表示の操作なら、ウィザード3/3の［レイアウト］で、
対象フィールドをページエリアに配置してダブルクリックし、表示しないアイテムを設定します。
設定したら行エリアや列エリアに配置してレイアウトを完成させてみてください。

そこにピボットテーブルのマクロを組むヒントがあります。