每 X 分钟自动重新应用过滤器

每 X 分钟自动重新应用过滤器

我有一个使用 RTD 服务器实时更新股票价格的电子表格。

我已在电子表格中应用了过滤器,并想自动重新应用它。

我已经找到了一种解决方案,可以在数据刷新时重新应用过滤器,但它似乎不适用于 RTD 服务刷新的数据。

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.AutoFilter.ApplyFilter

End Sub

所以我想知道是否可以每 5 分钟重新应用一次过滤器。

下面的链接中有解决这个问题的方法,但我不太明白如何做到这一点。

https://superuser.com/a/524527

答案1

放在一起 你的链接链接来自 gns100,获取以下 VBA 宏。以任何你喜欢的名称调用它,并运行一次以启动计时器循环。

Public Sub EventMacro()
    ActiveSheet.ShowAllData                    '<- keeps filter alive but shows all data
    ActiveSheet.AutoFilter.ApplyFilter         '<- apply the filter
    alertTime = Now + TimeValue("00:05:00")    '<- time = now + 5 minutes
    Application.OnTime alertTime, "EventMacro" '<- set timer
End Sub

(我还没有测试过这个宏。)

相关内容