☰

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

(이 매크로는 테스트해보지 않았습니다.)

관련 정보