Classe PivotFields (Excel VBA)

Uma coleção de todos os objetos PivotField em um relatório de tabela dinâmica. Para usar uma variável de classe PivotFields, ela primeiro precisa ser instanciada por exemplo

Dim pfs as PivotFields
Set pfs = ActiveCell.PivotTable.VisibleFields

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.VisibleFields.Count

Item

Retorna um único objeto de uma coleção.

O nome de texto do objeto é o valor das propriedades Name e Value .

Item (Index)

Index: O nome ou número de índice do objeto.

Dim pvtf As PivotField
Set pvtf = ActiveCell.PivotTable.VisibleFields(Index:=1)