広告
ピボットテーブルを削除するVBAコード
エクセルマクロでピボットテーブルって便利ですよね。VBAの中に織り込みたいのですが、ピボットテーブルってVBAで扱いにくい…。そんなときは一度クリアして再度ピボットテーブルを作成するほうがきれいに動きます。
解決法
On Error Resume Next
Sheets("1").Range("A1").PivotTable.TableRange2.Clear
On Error GoTo 0
Sheets("1").Range("A1").PivotTable.TableRange2.Clear
On Error GoTo 0
解説
ピボットが存在しない場合のエラーを回避しています。
TableRange2の2って何？という感じですが、
TabelRange2プロパティ：「ページフィールドを含む」
TabelRange1プロパティ：「ページフィールドを含まない」のようです。
ページフィールドとは、ピボットテーブルを絞り込むフィルターのようなもの、と解釈すればいいでしょうか。使う方は少ないと思うので読み飛ばしていただいてもかまいません。
広告
