Worksheet.PivotTableBeforeCommitChanges Event (Excel)
Occurs before changes are committed against the OLAP data source for a PivotTable.
추가된 버전: Excel 2010
식 .PivotTableBeforeCommitChanges(TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)
식 A variable that represents a Worksheet object.
Name |
Required/Optional |
Data Type |
Description |
---|---|---|---|
TargetPivotTable |
필수 |
The PivotTable that contains the changes to commit. |
|
ValueChangeStart |
필수 |
Long |
The index to the first change in the associated PivotTableChangeList object. The index is specified by the Order property of the ValueChange object in the PivotTableChangeList collection. |
ValueChangeEnd |
필수 |
Long |
The index to the last change in the associated PivotTableChangeList object. The index is specified by the Order property of the ValueChange object in the PivotTableChangeList collection. |
Cancel |
필수 |
Boolean |
False when the event occurs. If the event procedure sets this argument to True, the changes are not committed against the OLAP data source of the PivotTable. |
Nothing
The PivotTableBeforeCommitChanges event occurs immediately before Excel executes a COMMIT TRANSACTION against the PivotTable's OLAP data source, and immediately after the user has chosen to save changes for the whole PivotTable.
The following code example prompts the user before changes are commited to the PivotTable's OLAP data source.
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