返回代表指定数据透视表中所有计算字段的 CalculatedFields 集合。只读。
expression.CalculatedFields
expression 必需。该表达式返回一个 PivotTable 对象。
本示例使计算结果字段不能被拖至行。
For Each fld in _
Worksheets(1).PivotTables("Pivot1") _
.CalculatedFields
fld.DragToRow = False
Next