Clase ValueChange (Excel VBA)

La clase ValueChange representa un valor que se ha modificado en un informe de tabla dinámica que se basa en un origen de datos OLAP.

Los principales procedimientos de la clase ValueChange son PivotTableChangeList.Add y Delete

Set

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

Dim vlc as ValueChange
Set vlc = ActiveCell.PivotTable.ChangeList(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase ValueChange : PivotTable.ChangeList, PivotTableChangeList.Item y PivotTableChangeList.Add

For Each

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

Dim vlcChangeList As ValueChange
For Each vlcChangeList In ActiveCell.PivotTable.ChangeList
	
Next vlcChangeList

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Value with its procedures AllocationValue y Value

Métodos

Los principales métodos de la clase ValueChange son

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

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

Delete - Elimina el objeto ValueChange especificado de la colección PivotTableChangeList .

ActiveCell.PivotTable.ChangeList(1).Delete

Propiedades

PivotTableChangeList.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

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

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

PivotTableChangeList.Parent Devuelve el objeto PivotTable primario de la colección PivotTableChangeList especificada.

Dim pvtParent As PivotTable
Set pvtParent = ActiveCell.PivotTable.ChangeList.Parent

AllocationMethod Devuelve el método que se va a usar para asignar este valor al realizar análisis de hipótesis. Solo lectura.

Dim xamAllocationMethod As XlAllocationMethod
xamAllocationMethod = ActiveCell.PivotTable.ChangeList(1).AllocationMethod

AllocationWeightExpression Devuelve la expresión de ponderación de MDX para usarla con este valor al realizar análisis de hipótesis. Solo lectura.

Dim strAllocationWeightExpression As String
strAllocationWeightExpression = ActiveCell.PivotTable.ChangeList(1).AllocationWeightExpression

Order Devuelve un valor que indica el orden en que se realizó este cambio en relación con otros cambios en la colección PivotTableChangeList . Solo lectura.

Dim lngOrder As Long
lngOrder = ActiveCell.PivotTable.ChangeList(1).Order

Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ChangeList(1).Parent

PivotCell Devuelve un objeto PivotCell que representa la celda (tupla) que se ha cambiado. Solo lectura.

Dim pvtlcelPivotCell As PivotCell
Set pvtlcelPivotCell = ActiveCell.PivotTable.ChangeList(1).PivotCell

Tuple Devuelve la tupla MDX del valor que se cambió en el origen de datos OLAP. Solo lectura.

Dim strTuple As String
strTuple = ActiveCell.PivotTable.ChangeList(1).Tuple

VisibleInPivotTable Devuelve si la celda (tupla) está actualmente visible en el informe de tabla dinámica. Solo lectura.

Dim booVisibleInPivotTable As Boolean
booVisibleInPivotTable = ActiveCell.PivotTable.ChangeList(1).VisibleInPivotTable