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 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 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 do Excel executar uma instrução COMMIT TRANSACTION na fonte de dados OLAP da Tabela Dinâmica e imediatamente após o usuário optar por salvar alterações para toda a Tabela Dinâmica.
Exemplo
O exemplo de código a seguir solicita ao usuário antes que as alterações sejam confirmadas na fonte 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.