如何实现Excel每5分钟自动重新应用筛选（适配RTD实时更新股价数据场景）

嘿，我完全懂你的痛点——用RTD服务实时更新股价的表格，之前用Worksheet_Change事件来自动重新应用筛选根本没效果，对吧？因为RTD的数据更新不会触发Excel的单元格变更事件。那咱们换个思路，直接做个定时任务，每5分钟自动执行筛选刷新就搞定了，具体操作步骤给你说清楚：

• 打开VBA编辑器：按下Alt+F11快捷键，或者右键工作表标签选择「查看代码」就能进入。
• 插入通用模块：在左侧的工程窗口里，右键你的工作簿名称，依次选择「插入」→「模块」，新建一个空白模块用来放代码。
• 粘贴定时刷新筛选的核心代码：

Sub AutoReapplyFilter()
    ' 重新应用当前工作表的筛选规则
    On Error Resume Next ' 避免工作表没有筛选时触发错误
    ActiveSheet.AutoFilter.ApplyFilter
    On Error GoTo 0
    
    ' 安排5分钟后再次执行这个宏，形成循环
    Application.OnTime Now + TimeValue("00:05:00"), "AutoReapplyFilter"
End Sub

• 设置工作簿启动时自动触发：回到工程窗口，双击「ThisWorkbook」，然后在右侧代码窗口的顶部下拉菜单里，分别选择「Workbook」和「Open」，粘贴下面的代码，这样每次打开工作簿就会自动启动定时任务：

Private Sub Workbook_Open()
    ' 打开工作簿时先执行一次筛选刷新，再启动定时循环
    AutoReapplyFilter
End Sub

• （可选）手动停止定时任务的方法：如果需要临时停止自动刷新，可以在刚才的模块里再添加这段代码，需要的时候运行它就行：

Sub StopAutoReapplyFilter()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:05:00"), "AutoReapplyFilter", , False
    On Error GoTo 0
    MsgBox "自动刷新筛选已停止"
End Sub

这样设置好之后，不管RTD怎么更新股价数据，每5分钟都会自动重新应用一次筛选，完全适配你的场景啦～

备注：内容来源于stack exchange，提问作者starbolt