Evento Worksheet.PivotTableBeforeAllocateChanges (Excel)

Se produce antes de que se apliquen los cambios a la tabla dinámica.

Sintaxis

expresión. PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

Expresión Variable que representa un objeto Worksheet .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
TargetPivotTable	Obligatorio	Tabla dinámica	La tabla dinámica que contiene los cambios que se van a aplicar.
ValueChangeStart	Necesario	Long	Índice del primer cambio de la colección PivotTableChangeList asociada. El índice se especifica mediante la propiedad Order del objeto ValueChange de la colección PivotTableChangeList .
ValueChangeEnd	Necesario	Long	Índice del último cambio en la colección PivotTableChangeList asociada. El índice es especificado por la propiedad Order del objeto ValueChange en la colección PivotTableChangeList.
Cancel	Obligatorio	Boolean	False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, los cambios no se aplican a la tabla dinámica y se pierden todas las ediciones.

Valor devuelto

Nothing

Comentarios

El evento PivotTableBeforeAllocateChanges se produce inmediatamente antes de que Excel ejecute una instrucción UPDATE CUBE para aplicar todos los cambios al origen de datos OLAP de la tabla dinámica e inmediatamente después de que el usuario haya elegido aplicar cambios en la interfaz de usuario.

Ejemplo:

En el ejemplo de código siguiente se solicita al usuario antes de que se apliquen actualizaciones al origen de datos OLAP de la tabla 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.