您可以在Worksheet_Change事件中捕获它，并查看“目标”中是否包含数据透视表更改。如果有更改-您可以撤消它-然后运行代码并重新执行它？
我使用这种方法来捕获对切片器的更改，这样我就可以给人们带来很好的切片器体验，而不是控件或电子表格下拉列表（当我必须单击其中一个时，我会呻吟！）
我的代码如下。

Private Sub Worksheet_Change(ByVal Target As Range)
   'trying to trap pivot table slicer changes
    
    Dim sc As SlicerCache
    Dim si As SlicerItem
    Dim boolFoundFirstSelect As Boolean
    Dim intCountSelected As Integer, intCountNOTSelected As Integer
    
    On Error Resume Next
    Set sc = Target.PivotTable.Slicers(1).SlicerCache
    If Err <> 0 Then
        On Error Resume Next
        Exit Sub 'leave if they are changing anything else
    End If
    
    On Error Resume Next
    'Debug.Assert 1 = 2 'Turn this on & explore the Target object to find something you can test
    For Each si In sc.SlicerItems
        If si.Selected = True Then
            intCountSelected = intCountSelected + 1
            strSelectedOption = si.Name 'this will get the LAST name ... but - in the case where there is just ONE selected, this will be useful
        Else
            intCountNOTSelected = intCountNOTSelected + 1
        End If
    Next
    'then do something ...
End Sub