Classe ValueChange (Excel VBA)

A classe ValueChange representa um valor que foi alterado em um relatório da Tabela Dinâmica que é baseado em uma fonte de dados OLAP.

Os principais procedimentos da classe ValueChange são PivotTableChangeList.Add e Delete

Set

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

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

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

For Each

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

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

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Value with its procedures AllocationValue e Value

Métodos

Estes são os principais métodos da classe ValueChange

PivotTableChangeList.Add - Adiciona um objeto valueChange à coleção 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 - Exclui o objeto valueChange especificado da coleção PivotTableChangeList .

ActiveCell.PivotTable.ChangeList(1).Delete

Propriedades

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

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

PivotTableChangeList.Item Retorna um único objeto valueChange da coleção PivotTableChangeList especificada.

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

PivotTableChangeList.Parent Retorna o objeto PivotTable pai da coleção PivotTableChangeList especificada. Somente leitura.

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

AllocationMethod Retorna o método a ser usado para alocar esse valor ao executar o teste de hipóteses. Somente leitura.

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

AllocationWeightExpression Retorna a expressão de peso MDX que será usada para esse valor ao executar teste de hipóteses. Somente leitura.

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

Order Retorna um valor que indica a ordem em que essa alteração foi executada em relação a outras alterações na coleção PivotTableChangeList . Somente leitura.

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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

PivotCell Retorna um objeto PivotCell que representa a célula tupla que foi alterada. Somente leitura.

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

Tuple Retorna a tupla MDX do valor que foi alterado na fonte de dados OLAP. Somente leitura.

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

VisibleInPivotTable Retorna se a célula tupla está visível no momento no relatório de Tabela Dinâmica. Somente leitura.

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