| |
こんにちは。早速ですが、ピポットテーブルの作成をマクロで記録しました。
そのコードは下記の通りなのですが、ピポットテーブルを作成する際に
元となるデータがこのマクロを記録したものと同じか少ない場合は問題ありませんが
それより大きくなると一部のデータが抜けた状態で集計していまいます。
これを回避する為に範囲を指定している部分（２行目の【勤怠!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
以上、宜しくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
