Clase PivotFormula (Excel VBA)

La clase PivotFormula representa una fórmula que se usa para calcular resultados en un informe de tabla dinámica.

Set

Para usar una variable de clase PivotFormula, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase PivotFormula : PivotFormulas.Item, PivotFormulas.Add y PivotTable.PivotFormulas

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos PivotFormula en una colección.

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

Delete

Elimina el objeto.

ActiveCell.PivotTable.PivotFormulas(1).Delete

Formula

Devuelve o establece un valor de tipo String que representa la fórmula del objeto en notación de estilo A1 y en el lenguaje de la macro.

Esta propiedad no está disponible para orígenes de datos OLAP. Si la celda contiene una constante, esta propiedad devolverá dicha constante. Si se define el valor o la fórmula de una celda como una fecha, Microsoft Excel comprueba si dicha celda ya tiene uno de los formatos numéricos de fecha u hora. Si el rango tiene una o dos dimensiones, se puede definir la fórmula conforme a una matriz de Visual Basic de las mismas dimensiones. Si se define la fórmula para un rango de varias celdas, se rellenan todas las celdas del rango con la fórmula.

ActiveCell.PivotTable.PivotFormulas(1).Formula =

Index

Devuelve o establece un valor de tipo Long que representa el número de índice del objeto PivotFormula dentro de la colección PivotFormulas .

ActiveCell.PivotTable.PivotFormulas(1).Index =

Parent

Devuelve el objeto primario del objeto especificado.

StandardFormula

Devuelve o establece un valor String que especifica fórmulas con formato Inglés (Estados Unidos) estándar.

La propiedad StandardFormula afecta principalmente a los nombres de elementos con formato de fecha o número. La propiedad standardformula acepta es "International-friendly", mientras que la propiedad formula no es.

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

Value

Devuelve o establece un valor de tipo String que representa el nombre de la fórmula de la tabla dinámica especificada.

ActiveCell.PivotTable.PivotFormulas(1).Value =

PivotFormulas.Add

Crea una nueva fórmula de tabla dinámica.

Sintaxis : expression.Add (Formula, UseStandardFormula)

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

Arguments

Un argumento con nombre

Formula (String) - Nueva fórmula de tabla dinámica.

Los siguientes argumentos son opcionales

UseStandardFormula - Fórmula de tabla dinámica estándar

PivotFormulas.Count

Devuelve un valor Long que representa el número de objetos de la colección.

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

PivotFormulas.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Número de índice o nombre del objeto.

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

PivotFormulas.Parent

Devuelve el objeto primario del objeto especificado.