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

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

Синтаксис

expression. PivotTableBeforeCommitChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

Выражение Переменная, представляющая объект Worksheet .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Целевая сводная таблица	Обязательный	PivotTable	Сводная таблица, содержащая изменения для фиксации.
ValueChangeStart	Обязательный	Long	Индекс первого изменения в связанном объекте PivotTableChangeList . Индекс задается свойством Order объекта ValueChange в коллекции PivotTableChangeList .
ValueChangeEnd	Обязательный	Long	Индекс до последнего изменения в связанном объекте PivotTableChangeList . Индекс задается свойством Order объекта ValueChange в коллекции PivotTableChangeList .
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, изменения не фиксируются в источнике данных OLAP сводной таблицы.

Возвращаемое значение

Nothing

Замечания

Событие PivotTableBeforeCommitChanges возникает непосредственно перед выполнением инструкции COMMIT TRANSACTION в источнике данных OLAP сводной таблицы и сразу после того, как пользователь решил сохранить изменения для всей сводной таблицы.

Пример

В следующем примере кода пользователю предлагается перед фиксацией изменений в источнике данных OLAP сводной таблицы.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.