☰

每 X 分鐘自動重新套用濾鏡

tag-icon • tag-icon microsoft-excel
每 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

（我沒有測試過這個巨集。）

相關內容