ピボットテーブルについて、再度の質問２件

質問

１．元データを変更した場合、ピボットテーブルへ反映させるには？
どうも、自動更新と言うか再計算をしていないようです。

２．不要な箇所を削除することなく、ピボットテーブルだけを一括削除する方法はありませんか？
なお、Excelは２００７です。

回答No.1

tsubuyuki · ベストアンサー

まず・・再度の質問をなさるなら、前の質問はクローズしましょうね。
どこのＱＡ掲示板でもマナーですので、注意しましょう。
回答する側から見ても、気分はよろしくないです。

さて、

１．手動での更新が必要です。
　　自動更新・再計算ともにしません。
　　ピボットテーブル内をクリックすると、
　　リボンにピボットテーブル－オプションタブが現れますので、
　　その中の「更新」ボタンをクリックすることで手動更新されます。

２．ピボットテーブルは規定では新規シートに出力されます。
　　よって、追記していない限り、このシートを削除してしまえば
　　ピボットテーブルを一括削除したものと同様ですね。

　　また、通常の表と同様に行削除・列削除・（条件付きで）セル削除もできます。
　　例えば、ピボットテーブルがＨ列まであるとしたら、
　　Ａ列からＨ列まで列選択し、右クリック→削除を選択することで
　　列全体削除＝ピボットテーブル一括削除できます。

　　セル削除の際の条件は「ピボットテーブル全体を含む範囲に限り」です。
　　ピボットテーブル外からピボットテーブルの一部を含む範囲を削除しようとすると
　　エラーを吐き出してきますので、ここだけは注意が必要ですね。
　　なお、ピボットテーブル外から「ピボットテーブル全体を含む範囲」であれば、
　　そのまま削除が可能です。

　　どちらの場合でも「ピボットテーブル全体を含む範囲」がキーワードです。

お礼

先ず以って、closeを忘れたことをお詫びします。
次に回答2件ありがとうございました。
「更新」ボタン、手順は2010とは少し違うようですが、2007でも見つかりました。

また、通常の削除でよいこと分かりました。ピボットテーブルを作成した時点で、元のデータに何かが書き込まれ、勝手にピボットテーブルを壊すと、何か影響が出ないかと心配しておりました。

ありがとうございました。

回答No.2

keithin

＞ピボットテーブルを一括削除

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim s as worksheet
　dim p as pivottable
　on error resume next
　for each s in worksheets
　　for p in s.pivottables
　　　p.tablerange2.clear
　　next
　next
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押す
現れたダイアログで今登録したマクロを実行する。

＞元データを更新ピボットテーブルに反映

作成したピボットテーブルの中で右クリック、更新を選びます。
当たり前の事ですが関数じゃないんで、元データを変更してピボットテーブルが自動で計算されるなんて事はありません。

作成したピボットテーブルレポートの中で右クリック、ピボットテーブルオプションを選び、データタブで「ファイルを開くときにデータを更新する」にチェックを入れておくと、ブックを開いたときに常に最新のレポートが表示されるといった機能はあります。

お礼

コメントありがとうございます。
マクロは敬遠しております。申し訳ありません。
また、「ファイルを開くときにデータを更新する」とは、保存して開くと、更新が可能と理解します。
ありがとうございました。