Clase PivotTableChangeList - la lista de cambios realizados por un usuario en las celdas de valor de un informe de tabla dinámica basado en un origen de datos OLAP (Excel VBA)

La clase PivotTableChangeList representa la lista de cambios realizados por un usuario en las celdas de valor de un informe de tabla dinámica basado en un origen de datos OLAP.

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

Dim ptc as PivotTableChangeList
Set ptc = ActiveCell.PivotTable.ChangeList

Las variables de tipo PivotTableChangeList se pueden establecer utilizando el procedimiento PivotTable.ChangeList

Add

Agrega un objeto ValueChange a la colección PivotTableChangeList especificada.

El método Add permite agregar objetos ValueChange que representan cambios en el informe de tabla dinámica mediante código.

Add (Tuple, Value, AllocationValue, AllocationMethod, AllocationWeightExpression)

Dim strTuple As String: strTuple = 
Dim dblValue As Double: dblValue = 
Dim vlc As ValueChange
Set vlc = ActiveCell.PivotTable.ChangeList.Add(Tuple:=strTuple, Value:=dblValue)

Arguments

Estos son los argumentos con nombre :

Tuple (String) - La tupla MDX del valor que se va a cambiar en el origen de datos OLAP.

Value (Double) - El valor por confirmar.

Optional arguments

Los siguientes argumentos son opcionales

AllocationValue - El valor que se asignará al realizar un análisis de hipótesis

AllocationMethod - El método que se usará para asignar este valor al realizar un análisis de hipótesis

AllocationWeightExpression - La expresión de ponderación de MDX que se usará para este valor al realizar un análisis de hipótesis

Count

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

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

Item

Devuelve un único objeto ValueChange de la colección PivotTableChangeList especificada.

Item (Index)

Index: Nombre MDX (tupla) o número de índice del objeto.

Dim vlcItem As ValueChange
Set vlcItem = ActiveCell.PivotTable.ChangeList(Index:=1)