今天继续讲讲VBA数据透视表的内容。在昨天插入透视表的内容基础上,增加一点学习内容。
一、如果需要增加一列原来表上没有的内容,比如说“利润”。假设利润 = 原始数据表上面的收入-费用,怎么操作呢?
主要代码和昨天的内容差不多,新增了2句话,
pt.CalculatedFields.Add "利润", "=收入-费用"
pt.PivotFields("利润").Orientation = xlDataField
完整代码如下所示(第四步是新增的公式列)
Option Explicit
Sub createPt2()
Dim ptCache As PivotCache
Dim pt As PivotTable
'按照昨天的办法:第一步,创建缓存
Set ptCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=Sheets(1).Range("a1").CurrentRegion )
'第二步:将缓存赋值给pt
Sheets.Add
Set pt = Activ