使用Worksheet_Change筛选Excel数据透视表出现无限循环崩溃问题

问题根因 #

Worksheet_Change 是工作表内容变更触发的事件，你在事件内部修改数据透视表筛选的操作，会再次触发当前工作表的Change事件，进而导致代码反复递归执行，最终Excel内存占满崩溃。

修正方案 #

核心逻辑是执行筛选操作前暂时关闭系统事件触发，操作完成后再恢复事件，避免递归调用，同时增加错误捕获确保异常场景下事件能正常恢复：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim PT As PivotTable
    Dim PF As PivotField
    Dim Filter_cell As Variant
    
    If Intersect(Target, Me.Range("C1")) Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免递归
    Application.EnableEvents = False
    ' 错误捕获，确保异常时事件能恢复
    On Error GoTo ErrHandler
    
    Set PT = ThisWorkbook.Worksheets("Sheet8").PivotTables("Test1")
    Set PF = PT.PivotFields("disbursal date")
    Filter_cell = Me.Range("C1").Value
    PF.CurrentPage.Name = Filter_cell
    
ErrHandler:
    ' 无论执行是否成功，都恢复事件触发
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "筛选更新失败：" & Err.Description, vbExclamation
End Sub

注意事项 #

• 代码中用Me指代当前代码所在的工作表，比直接硬编码工作表名称更严谨，避免工作表改名后代码失效
• 错误处理逻辑不可省略，否则如果筛选值不存在、数据透视表字段改名等异常导致代码中途退出，Application.EnableEvents会一直处于关闭状态，后续所有Excel事件都不会触发，影响正常使用
• 提前声明Filter_cell变量类型，避免隐式声明带来的类型匹配问题

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