Objeto da coleção CalculatedItems

PivotTables (PivotTable) CalculatedItems (PivotItem)

Uma coleção de objetos PivotItem representando todos os itens calculados no relatório especificado da tabela dinâmica. Por exemplo, um relatório de tabela dinâmica contendo os itens Janeiro, Fevereiro e Março poderia ter um item calculado chamado “PrimeiroTrimestre” definido como a soma das quantias de Janeiro, Fevereiro e Março.

Usando a coleção CalculatedItems

Use o método CalculatedItems para retornar a coleção CalculatedItems. O exemplo seguinte cria uma lista dos itens calculados no primeiro relatório de tabela dinâmica na planilha um, juntamente com suas fórmulas.

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

Use CalculatedFields(index), onde index é o nome ou número de índice do campo, para retornar um único objeto PivotField da coleção CalculatedFields.