Excel VBA:

質問

A1～AB11542 (先頭はタイトル行) の表をマクロでピボットテーブルを作りたいです。データを追加して範囲が変わっても、ピボットテーブルの範囲が変わってくれません。下記のマクロの意味が分からないのですが、どう修正すればいいのでしょうか。お願いします。

Range("A1").Select
Selection.CurrentRegion.Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'200804～累計'!R1C1:R10501C28").CreatePivotTable TableDestination:="", _
TableName:="ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True

With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("仕入先名称")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("仕入検収月")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル1").PivotFields("合価"), "合計 / 合価", xlSum
ActiveSheet.Name = "月別集計"
ActiveWorkbook.ShowPivotTableFieldList = False

回答No.1

OtenkiAme · ベストアンサー

こんにちは。

> 下記のマクロの意味が分からないのですが、どう修正すればいいのでしょうか。
ご自身でマクロの記録を利用して作ったマクロではないのですか？
ヘルプファイルがインストールされているはずです。
例えば、AddにカーソルをおいてF1を押し、PivotCaches オブジェクトの Add メソッドを調べれば引数の意味なんかを調べることができますよ。

すべての回答はしませんが、
ここから
Range("A1").Select
Selection.CurrentRegion.Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'200804～累計'!R1C1:R10501C28").CreatePivotTable TableDestination:="", _
TableName:="ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
ここまで変えるなら、

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=Worksheets("200804～累計").Range("A1").CurrentRegion.Address(External:=True)) _
.CreatePivotTable TableDestination:="", TableName:="ピボットテーブル1", _
DefaultVersion:=xlPivotTableVersion10
のように修正したらどうでしょうか？

お礼

ありがとうございます。
空のピボットテーブルが作成されてしまいました。

回答No.2

OtenkiAme

こんにちは。

> 空のピボットテーブルが作成されてしまいました。
提示したところまでの処理は、
「アクティブなワークブックにSourceDataで指定したデータを元に
　ピボットキャッシュを追加し、作成先を指定していない（TableDestination:=""）
　"ピボットテーブル1"という名前のピボットテーブルを作る。」
という処理です。

提示したコードの以下に質問者さんが提示された
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
～　略　～

のコードをつなげればいいのではないでしょうか？

なお、提示されたコードでは、作成先が指定されていないので、
必ず新規シートにピボットテーブルが作られます。
そして、新規シートの名前を"月別集計"に変更していますよね。

同じブック内に既存のシート名は使えませんから、
月別集計シートを削除してからピボットテーブルを作成するか、
月別集計シートのセル内をクリアしてから作成すればいいのではないでしょうか。

お礼

解決していませんが、ありがとうございました。(^^)