Событие Worksheet.PivotTableBeforeAllocateChanges (Excel)
Происходит до применения изменений к сводной таблице.
Синтаксис
expression. PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)
Выражение Переменная, представляющая объект Worksheet .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Целевая сводная таблица | Обязательный | PivotTable | Сводная таблица, содержащая применяемые изменения. |
| ValueChangeStart | Обязательный | Long | Индекс первого изменения в связанной коллекции PivotTableChangeList . Индекс задается свойством Order объекта ValueChange в коллекции PivotTableChangeList . |
| ValueChangeEnd | Обязательный | Long | Индекс до последнего изменения в связанной коллекции PivotTableChangeList . Индекс задается свойством Order объекта ValueChange в коллекции PivotTableChangeList . |
| Отмена | Обязательный | Boolean | Значение false при возникновении события. Если процедура события задает для этого аргумента значение True, изменения не применяются к сводной таблице и все изменения будут потеряны. |
Возвращаемое значение
Nothing
Замечания
Событие PivotTableBeforeAllocateChanges возникает непосредственно перед выполнением инструкции UPDATE CUBE для применения всех изменений в источнике данных OLAP сводной таблицы и сразу после того, как пользователь решил применить изменения в пользовательском интерфейсе.
Пример
В следующем примере кода пользователю предлагается перед применением обновлений к источнику данных OLAP сводной таблицы.
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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.