ピボットテーブルの初期設定（デフォルト）が変えられない！私なりの解決策

ピボットテーブルの初期設定が変えられない…そんな悩みに私なりの解決策

ピボットテーブルを作成したときに、デフォルト（初期設定）の表形式や書式のまま使用している人はほとんどいないのではないでしょうか？
だからといってデフォルトの設定を変えることもできないなんて、意外と使いづらい！

そこで今回は私が行っている設定をパパッと変えてしまう方法をご紹介します。

まずはピボットテーブルを作ってみると…

ピボットデフォルト1

ピボットデフォルト2

ここで私が変えたい項目は
・「レポートのレイアウト」を「表形式」にしたい
・「更新時に列幅を自動調整する」を「オフ」にしたい
・「総計」や「集計」を削除したい
・「アイテムのラベルをすべて繰り返す」を「オン」にしたい

これらをピボットテーブルを新規作成するたびに編集するのはかなり面倒…
ここはなんとしてでも一発で設定変更したい！
ちなみにこれらの設定を全て行った結果はコチラです。

ピボットデフォルト3

私なりの解決策は「マクロ」で「自作ショートカット」

いやーこれしかないと思ったので作っちゃいました。
これらの処理を行うマクロはコチラです。

Function pivot_change()
Dim ピボット
'シート内のすべてのピボットについて処理を行う
For Each ピボット In ActiveSheet.PivotTables
'集計を削除するfor文
For Each テーブル In ActiveSheet.PivotTables(ピボット.Name).PivotFields
テーブル.Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
Next テーブル
With ピボット
.RowAxisLayout xlTabularRow '表形式にする
.ColumnGrand = False '列の総計を削除
.RowGrand = False '行の総計を削除
.HasAutoFormat = False '「更新時に列幅を自動調整する」を「オフ」
.RepeatAllLabels xlRepeatLabels '「アイテムのラベルをすべて繰り返す」を「オン」
End With
Next ピボット
End Function

これでシート内のピボットテーブルに対し、設定の変更がパパッと行えるマクロが行えます。
今回はこれをショートカットキーとして「ALT+SHIFT+CTL+A」でできるようにしました。

このアドインファイルが欲しい方はダウンロードしてください
pivot_change.zip

※アドインを使う方法が分からない人へ
アドインとは簡単に言えば、機能を追加するファイルのことです。
▼手順
①pivot_change.zipを解凍し、pivot_change.xlaをどこかに格納
（アドインを保存する用のフォルダも存在するので、そちらに保存することをお勧めします。）
（私のPCではここでした⇒C:\Users\●●●\AppData\Roaming\Microsoft\AddIns）
②EXCELにてメニューバーから「ファイル」→「オプション」→「アドイン」
③設定に進む
④「pivot_change」を選択し、OK
④' アドインを保存する用のフォルダ以外に保存した場合は「参照」からファイルを指定する。

これで使えるようになったはずです。
以上、ピボットテーブルの初期設定（デフォルト）が変えられない！私なりの解決策をご紹介しました。