Vba 在透视表刷新之前自动运行宏

我想在pivot刷新事件中自动运行宏，但这里的挑战是宏先运行，然后pivot必须得到刷新

我尝试了所有这些活动，但没有一个对我有效

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
    MsgBox "Worksheet_PivotTableAfterValueChange"
End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
    MsgBox "Worksheet_PivotTableBeforeAllocateChanges"
End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
    MsgBox "Worksheet_PivotTableBeforeCommitChanges"
End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
    MsgBox "Worksheet_PivotTableBeforeDiscardChanges"
End Sub

谁能帮我一下吗。。？提前谢谢

---

有关更多信息，请参阅此链接：

我不完全理解您的问题。你已经试过什么了？你有什么特别的密码吗？或者这是一个“给我代码”的问题？嗨，Mistella，谢谢你查看我的查询，我已经编辑了我的查询我希望你能传达我的问题你可能需要在一个或多个事件过程中加入逻辑条件来解释这些细微差别。让其中一个事件调用宏不是更简单吗，然后在宏禁用事件结束时，刷新数据透视表（再次），然后重新启用事件？--请注意，禁用/重新启用事件对于防止永无止境的循环非常重要。也许相反：在宏的末尾，您可以

数据透视表.refreshttable

或

数据透视缓存.Refresh

。我不完全理解您的问题。你已经试过什么了？你有什么特别的密码吗？或者这是一个“给我代码”的问题？嗨，Mistella，谢谢你查看我的查询，我已经编辑了我的查询我希望你能传达我的问题你可能需要在一个或多个事件过程中加入逻辑条件来解释这些细微差别。让其中一个事件调用宏不是更简单吗，然后在宏禁用事件结束时，刷新数据透视表（再次），然后重新启用事件？--请注意，禁用/重新启用事件对于防止永无止境的循环非常重要。也许相反：在宏的末尾，您可以

数据透视表.refreshttable

或

数据透视缓存.Refresh

。