• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:ピボットテーブルのマクロについて)

ピボットテーブルのマクロについて

このQ&Aのポイント
  • ピボットテーブルのマクロについて教えてください。
  • マクロを記録し、実行しようとすると実行時エラーが出てしまいます。
  • マクロを組み直す方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • pauNed
  • ベストアンサー率74% (129/173)
回答No.1

こんにちは。 >...SourceData:= "Sheet1!C2:C4" このC2:C4が問題ですネ。 多分 B:D の列全体を選択してマクロ記録を録られたのでしょう。 ピボットのマクロ記録の場合、アドレス参照形式はR1C1形式になります。 困った事に、これをそのまま実行しようとすると、 今度は C2:C4 をそのままA1形式のセル範囲と認識してしまいます。 ピボットを作成したい元データ範囲が変わってしまいます。 シート全範囲、列範囲を選択してのマクロ記録は気をつけたほうが良いです。 そこで、以下のようなコードに変更してみてください。 Sub sample()   Dim r As Range   With ActiveWorkbook     Set r = .Sheets("Sheet1").Range("A1").CurrentRegion     With .PivotCaches.Add(SourceType:=xlDatabase, _                SourceData:=r.Address(external:=True) _                ).CreatePivotTable(TableDestination:="")       .AddFields RowFields:=Array("場所", "ランク")       With .PivotFields("面積")         .Orientation = xlDataField         .Caption = "面積計"         .Function = xlSum       End With     End With   End With   Set r = Nothing End Sub QNo.2926805 や QNo.2097393 も参考にしてみてください。

pgn
質問者

お礼

pauNedさん、こんばんわ。 さっそくの回答をいただいていたのに、 お礼が遅くなりすみませんでした。 教えていただいたマクロで 思い描いていたとおりに出来ました。 たいへん助かりました。 ありがとうございました。

関連するQ&A

専門家に質問してみよう