返回 CalculatedItems 集合,该集合代表指定数据透视表中的所有计算项。只读。
expression.CalculatedItems
expression 必需。该表达式返回一个 PivotField 对象。
对于 OLAP 数据源,该方法返回一个长度为零的集合。
本示例创建计算项及其公式的列表。
Set pt = Worksheets(1).PivotTables(1)
For Each ci In pt.PivotFields("Sales").CalculatedItems
r = r + 1
With Worksheets(2)
.Cells(r, 1).Value = ci.Name
.Cells(r, 2).Value = ci.Formula
End With
Next