Worksheet.PivotTableBeforeAllocateChanges 事件 (Excel)

在将更改应用到数据透视表前发生。

语法

表达式。PivotTableBeforeAllocateChanges (TargetPivotTable、 ValueChangeStart、 ValueChangeEnd、 Cancel)

表达 一个代表 Worksheet 对象的变量。

参数

名称	必需/可选	数据类型	说明
TargetPivotTable	必需	PivotTable	包含要应用的更改的数据透视表。
ValueChangeStart	必需	Long	关联 PivotTableChangeList 集合中第一个更改的索引。 索引由 PivotTableChangeList 集合中 ValueChange 对象的 Order 属性指定。
ValueChangeEnd	必需	Long	关联的 PivotTableChangeList 集合中最后一处更改的索引。 该索引由 PivotTableChangeList 集合中 ValueChange 对象的 Order 属性指定。
Cancel	必需	Boolean	False 在事件发生时。 如果事件过程将此参数设置为 True，则不会向数据透视表应用更改，并且所有编辑操作都会丢失。

返回值

Nothing

备注

在 Excel 执行 UPDATE CUBE 语句以将所有更改应用到数据透视表的 OLAP 数据源之前，在用户选择在用户界面中应用更改之后，立即发生 PivotTableBeforeAllocateChanges 事件。

示例

下面的代码示例在将更新应用到数据透视表的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。