Событие Worksheet.PivotTableBeforeAllocateChanges (Excel)

Статья
04/07/2023

Происходит до применения изменений к сводной таблице.

Синтаксис

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 и обратная связь.