Classe CalculatedItems - itens calculados (Excel VBA)

Uma coleção de objetos PivotItem que representa todos os itens calculados no relatório de tabela dinâmica especificado. Para usar uma variável de classe CalculatedItems, ela primeiro precisa ser instanciada por exemplo

Dim cis as CalculatedItems
Set cis = ActiveCell.PivotField.CalculatedItems()

For Each

Aqui está um exemplo de processamento dos itens CalculatedItems em uma coleção.

Dim pvtiCalculatedItem As PivotItem
For Each pvtiCalculatedItem In Application.CalculatedItems()
	
Next pvtiCalculatedItem

Add

Cria um novo item calculado. Retorna um objeto PivotItem .

Add (Name, Formula, UseStandardFormula)

Dim strName As String: strName = 
Dim strFormula As String: strFormula = 
Dim pvti As PivotItem
Set pvti = ActiveCell.PivotField.CalculatedItems.Add(Name:=strName, Formula:=strFormula)

Arguments

O seguinte argumento é opcional

Name (String) - O nome do item.

Formula (String) - A fórmula do item.

Optional arguments

The following argument is optional

UseStandardFormula (Boolean) - False (padrão) para compatibilidade com versões posteriores. True para cadeias de caracteres contidas em quaisquer argumentos que são nomes de item; será interpretado como tendo sido formatado em inglês americano padrão em vez de configurações locais.

Count

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

Dim lngCount As Long
lngCount = ActiveCell.PivotField.CalculatedItems.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 pvtiCalculatedItem As PivotItem
Set pvtiCalculatedItem = ActiveCell.PivotField.CalculatedItems(Index:=1)