我有一个使用 RTD 服务器实时更新股票价格的电子表格。
我已在电子表格中应用了过滤器,并想自动重新应用它。
我已经找到了一种解决方案,可以在数据刷新时重新应用过滤器,但它似乎不适用于 RTD 服务刷新的数据。
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.AutoFilter.ApplyFilter
End Sub
所以我想知道是否可以每 5 分钟重新应用一次过滤器。
下面的链接中有解决这个问题的方法,但我不太明白如何做到这一点。
答案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
(我还没有测试过这个宏。)