ピポットテーブルウィーザードからテーブル作成時にマクロの自動記録を実行し以下が記録されました。これをデータ範囲がかわっても(列と行が増減しても)使える様にするにはどのように書きなおせばいいかご教示いただければ幸いです。


Sub ピポットテーブル作成()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"main!R1C1:R6C7").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル6", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("ピボットテーブル6").PivotFields("仕入先")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル6").PivotFields("支払月")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル6").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル6").PivotFields("支払い額"), "合計 / 支払い額", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

回答の条件
  • 1人2回まで
  • 13歳以上
  • 登録:2010/09/04 18:29:14
  • 終了:2010/09/04 19:05:35

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982010/09/04 18:58:36

ポイント60pt

main!R1C1:R6C7

mainのシートの

R1C1

1行目の1列目から

:R6C7

6行目の7列目まで 範囲指定という意味です。

ここを 変えてやればいいです。

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません