Share via

CalculatedItems Method [Excel 2003 VBA Language Reference]

  • Article

Returns a CalculatedItems collection that represents all the calculated items in the specified PivotTable report. Read-only.

expression**.CalculatedItems**

expression Required. An expression that returns a PivotField object.

Remarks

For OLAP data sources, this method returns a zero-length collection.

Example

This example creates a list of calculated items and their formulas.

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

Applies to | PivotField Object