Classe PivotTableChangeList - a lista de alterações feitas por um usuário nas células de valor em um relatório de tabela dinâmica com base em uma fonte de dados OLAP (Excel VBA)

A classe PivotTableChangeList representa a lista de alterações feitas por um usuário nas células de valor em um relatório de tabela dinâmica com base em uma fonte de dados OLAP. Para usar uma variável de classe PivotTableChangeList, ela primeiro precisa ser instanciada por exemplo

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

Add

Adiciona um objeto valueChange à coleção PivotTableChangeList especificada.

O método Add permite adicionar objetos ValueChange que representam alterações no relatório de Tabela Dinâmica através de código. Esse procedimento adicionará à instrução UPDATE CUBE construções do Excel com base nessa lista de alterações. Observe que, se o usuário alterar as configurações de alocação para que nem todas as alterações tenham as mesmas configurações, o Excel executará várias instruções UPDATE CUBE, sendo uma para cada grupo de alterações feitas enquanto as mesmas configurações eram aplicadas.

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

O seguinte argumento é opcional

Tuple (String) - A tupla MDX do valor que será alterado na fonte de dados OLAP.

Value (Double) - O valor que será confirmado.

Optional arguments

Os seguintes argumentos são opcionais

AllocationValue - O valor que será alocado ao executar teste de hipóteses. Se esse parâmetro não for fornecido, o valor de alocação padrão do servidor OLAP será usado

AllocationMethod - O método que será usado para alocar esse valor ao executar teste de hipóteses. Se esse parâmetro não for fornecido, o método de alocação padrão do servidor OLAP será usado

AllocationWeightExpression - A expressão de peso MDX que será usada para esse valor ao executar teste de hipóteses. Se esse parâmetro não for fornecido, a expressão de peso de alocação padrão do servidor OLAP será usada

Count

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

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

Item

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

Item (Index)

Index: O nome MDX (tupla) ou o número de índice do objeto.

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