|
こんにちは。早速ですが、ピポットテーブルの作成をマクロで記録しました。
そのコードは下記の通りなのですが、ピポットテーブルを作成する際に
元となるデータがこのマクロを記録したものと同じか少ない場合は問題ありませんが
それより大きくなると一部のデータが抜けた状態で集計していまいます。
これを回避する為に範囲を指定している部分(2行目の【勤怠!R4C1:R505C11】)に
変数を使えるようにしたいのですが、どのようにコードを書き換えればよいのでしょうか?
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"勤怠!R4C1:R505C11").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ピボットテーブル2").AddFields RowFields:=Array("nm", "データ" _
), PageFields:="部門"
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("401")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("502").Orientation = _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
以上、宜しくお願いします。
|
|