'创建方式1:先创建数据透视表缓存对象,再创建数据透视表
Sub test1()
Dim pc As PivotCache
Dim pt As PivotTable
'创建空白工作表,存放数据透视表。
Sheets.Add after:=Sheets(Sheets.Count)
'创建 数据透视表的缓存(PivotCache 对象)
Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, Sheets(1).[A1].CurrentRegion, 2)
'创建一个基于 数据透视表的缓存(PivotCache 对象)的数据透视表。透视表左上角在A1
Set pt = pc.CreatePivotTable([A1])
With pt
'透视字段"类型"的位置在 行标签
.PivotFields("类型").Orientation = xlRowField
'透视字段"借方"的位置在 数据标签
.PivotFields("借方").Orientation = xlDataField
End With
End Sub
资金预算2.rar
(17.49 KB, 下载次数: 11)