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.