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

注釈

PivotTableBeforeAllocateChanges イベントは、Excel が 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 のサポートおよびフィードバックを参照してください。