Excel VBA 如何实现Slicer切片器筛选应用后触发点击事件

你使用的切片器Click事件触发优先级高于Excel内部的筛选刷新操作，因此代码执行时切片器的筛选结果还未应用到绑定的ListObject上。可以通过以下两种方案解决：

方案1：延迟执行计算函数（改动最小） #

修改原切片器点击事件代码，通过Application.OnTime将计算函数的执行延迟到Excel完成当前所有队列操作后，只需调整Year_Click的逻辑即可：

Private Sub Year_Click()
    ' 设置10毫秒的延迟，确保Excel先完成切片器筛选刷新
    Application.OnTime Now + TimeValue("00:00:00.01"), "doCalcsOnFilteredListObject"
End Sub

如果需要避免连续快速点击切片器导致的重复计算，可以加全局锁控制：

1. 首先在标准模块的顶部声明全局变量

Public isCalculating As Boolean

2. 修改事件逻辑和执行逻辑

Private Sub Year_Click()
    If isCalculating Then Exit Sub
    isCalculating = True
    Application.OnTime Now + TimeValue("00:00:00.01"), "runCalc"
End Sub

Sub runCalc()
    On Error GoTo finally
    doCalcsOnFilteredListObject
finally:
    isCalculating = False
End Sub

方案2：监听ListObject变更事件（适用范围更广） #

如果需要覆盖所有修改ListObject筛选的场景（包括直接操作表筛选、用其他控件修改筛选等），可以直接监听ListObject的变更事件，不需要绑定切片器的点击事件。将以下代码放到ListObject所在工作表的代码模块中即可：

Private Sub Worksheet_ListObjectChange(ByVal Target As ListObject, ByVal ChangedFields As XlListObjectChangedFields)
    ' 仅在筛选/排序变更时触发计算
    If ChangedFields = xlListObjectChangedSortOrFilter Then
        doCalcsOnFilteredListObject
    End If
End Sub

内容的提问来源于stack exchange，提问作者Maxcot