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

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

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

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

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

コメント

タイトルとURLをコピーしました