Evento Worksheet.PivotTableBeforeCommitChanges (Excel)

Ocorre antes de as alterações serem confirmadas com base na fonte de dados OLAP de uma Tabela Dinâmica.

Sintaxe

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

expressão Uma variável que representa um objeto de Folha de Cálculo .

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 confirmadas.
ValueChangeStart	Obrigatório	Long	O índice para a primeira alteração no objeto PivotTableChangeList associado. O índice é especificado pela propriedade Order do objeto ValueChange na coleção PivotTableChangeList .
ValueChangeEnd	Obrigatório	Long	O índice da última alteração no objeto PivotTableChangeList associado. 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 este argumento como True, as alterações não serão confirmadas com base na fonte de dados OLAP da Tabela Dinâmica.

Valor de retorno

Nothing

Comentários

O evento PivotTableBeforeCommitChanges ocorre imediatamente antes de o Excel executar uma instrução COMMIT TRANSACTION na origem de dados OLAP da tabela dinâmica e imediatamente após o utilizador ter optado por guardar as alterações para toda a Tabela Dinâmica.

Exemplo

O exemplo de código seguinte pede ao utilizador antes de as alterações serem consolidadas na origem de dados OLAP da tabela dinâmica.

Sub Worksheet_PivotTableBeforeCommitChanges(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 saved 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.