Classe PivotFormula (Excel VBA)

A classe PivotFormula representa uma fórmula usada para calcular resultados em um relatório de tabela dinâmica.

Set

Para usar uma variável de classe PivotFormula, ela primeiro precisa ser instanciada por exemplo

Dim pvtfor as PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PivotFormula: PivotFormulas.Item, PivotFormulas.Add e PivotTable.PivotFormulas

For Each

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

Dim pvtfor As PivotFormula
For Each pvtfor In ActiveCell.PivotTable.PivotFormulas
	
Next pvtfor

Delete

Exclui o objeto.

ActiveCell.PivotTable.PivotFormulas(1).Delete

Formula

Retorna ou define um valor String que representa a fórmula do objeto em notação de estilo A1 e no idioma da macro.

Esta propriedade não está disponível para fontes de dados OLAP. Se a célula contiver uma constante, essa propriedade retornará essa constante. Se a célula estiver vazia, essa propriedade retornará uma cadeia de caracteres vazia. Se a célula contiver uma fórmula, a propriedade Formula retornará a fórmula como uma sequência de caracteres no mesmo formato exibido na barra de fórmulas (inclusive o sinal de igual). Quando você define o valor ou a fórmula de uma célula como uma data, o Microsoft Excel verifica se essa célula já está formatada com um dos formatos de número de data ou hora. Caso contrário, o Excel altera o formato de número para o formato de número de data abreviada padrão. Quando o intervalo é uni ou bidimensional, você pode definir a fórmula como uma matriz do Visual Basic com as mesmas dimensões. Também pode inserir a fórmula em uma matriz do Visual Basic. A definição da fórmula para um intervalo de várias células preenche todas as células do intervalo com a fórmula.

ActiveCell.PivotTable.PivotFormulas(1).Formula =

Index

Retorna ou define um valor Long que representa o número de índice do objeto PivotFormula dentro da coleção PivotFormulas .

ActiveCell.PivotTable.PivotFormulas(1).Index =

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

StandardFormula

Retorna ou define um String que especifica fórmulas com a formatação em inglês EUA padrão. Leitura/gravação.

A propriedade StandardFormula afeta principalmente nomes de itens com formatação de data ou número. Isso permite especificar ou consultar uma fórmula para um determinado item calculado. A propriedade StandardFormula é "amigável à internacional", enquanto a propriedade Formula não é.

ActiveCell.PivotTable.PivotFormulas(1).StandardFormula = "Decimals + 10"

Value

Retorna ou define um valor String que representa o nome da fórmula especificada no relatório de tabela dinâmica.

ActiveCell.PivotTable.PivotFormulas(1).Value =

PivotFormulas.Add

Cria uma nova fórmula de tabela dinâmica.

Sintaxe : expression.Add (Formula, UseStandardFormula)

Worksheets(1).PivotTables(1).PivotFormulas _ 
 .Add "Year['1998'] Apples = (Year['1997'] Apples) * 2"

Arguments

O seguinte argumento é necessário

Formula (String) - A nova fórmula de tabela dinâmica.

The following argument is optional

UseStandardFormula - Uma fórmula de tabela dinâmica padrão

PivotFormulas.Count

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

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

PivotFormulas.Item

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

Sintaxe : expression.Item (Index)

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

Dim pvtfor As PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)

PivotFormulas.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.