|
▼横入り さん:
回答ありがとうございました。
もう少し質問させてください。
ピボットテーブルをVBAで記述することをしたことがなく、
よくわからなかったせいもあり、ピボット以外に方法があるのでしたら、
ご教授いただきたく投稿しました。
ピボットテーブルを実際に記録してみたのですが、次の点教えていただけないでしょうか?
もとのデータが情報が日ごとに増えていくので、行数などが増えた場合に、
範囲の自動取得させたいのですが…
Range("A1:C13").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"当月データ!R1C1:R13C13").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Range("G5").Select
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
おそらくはじめ3行ほどに範囲の情報が記述されていると思うのですが、
どのように記述すればいいのかわかりません。
ネットなどいろいろ調べてみましたが、ちょっとわかりません。
本当に初心者質問で申し訳ありませんが、
ご教授お願いいたします。
|
|