VBAでピボットを折りたたみしたり展開したりする方法

VBAでピボットを折りたたみしたり展開したりする方法です。

以下は指定したフィールド名を全て折りたたむ例です。

ActiveSheet.PivotTables("ピボットテーブル名").PivotFields("フィールド名").ShowDetail = False

FalseをTrueに変えると、指定したフィールドを展開します。

高橋

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^