Evento Worksheet.PivotTableBeforeAllocateChanges (Excel)

Ocorre antes que as alterações sejam aplicadas a uma Tabela Dinâmica.

Sintaxe

expressão. PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

Expressão Uma variável que representa um objeto Worksheet .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
TargetPivotTable	Obrigatório	PivotTable	A Tabela Dinâmica que contém as alterações a serem aplicadas.
ValueChangeStart	Obrigatório	Long	O índice para a primeira alteração na coleção PivotTableChangeList associada. O índice é especificado pela propriedade Order do objeto ValueChange na coleção PivotTableChangeList .
ValueChangeEnd	Obrigatório	Long	O índice da última alteração na coleção PivotTableChangeList associada. O índice é especificado pela propriedade Order do objeto ValueChange na coleção PivotTableChangeList.
Cancel	Obrigatório	Boolean	False quando o evento ocorre. Se o procedimento do evento definir esse argumento como True, as alterações não serão aplicadas à Tabela Dinâmica e todas as edições serão perdidas.

Valor de retorno

Nothing

Comentários

O evento PivotTableBeforeAllocateChanges ocorre imediatamente antes que o Excel execute uma instrução CUBE UPDATE para aplicar todas as alterações à fonte de dados OLAP da Tabela Dinâmica e imediatamente após o usuário optar por aplicar alterações na interface do usuário.

Exemplo

O exemplo de código a seguir solicita ao usuário antes que as atualizações sejam aplicadas à fonte de dados OLAP da Tabela Dinâmica.

Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, _ 
 ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) 
 Dim UserChoice As VbMsgBoxResult 
 
 UserChoice = MsgBox("Allow updates to be applied to: " + TargetPivotTable.Name + "?", vbYesNo) 
 If UserChoice = vbNo Then Cancel = True 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.