因excel自動篩選功能須每次點選才能自動更新,我想讓他每10秒執行一次,我將他寫成巨集,但卻不能執行,請大大幫我排解:
Sub S8()
Range("A1").AutoFilter Field:=11, Criteria1:=" "
Application.OnTime Now + TimeValue("00:00:10"), "S8"
End Sub
個人積分：13441分
文章編號：64266258
http://stackoverflow.com/questions/2319683/vba-macro-on-timer-style-to-run-code-every-set-number-of-seconds-i-e-120-secon
workbook 開啟時要先執行這兩行
alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "EventMacro"
之後就會定時執行這個 巨集EventMacro
Public Sub EventMacro()
'... Execute your actions here'
alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "EventMacro"
End Sub
個人積分：0分
文章編號：64267364
寫:
Private Sub Workbook_Open()
alertTime = Now + TimeValue("00:00:10")
Application.OnTime alertTime, "EventMacro"
End Sub
將該工作表一般宣告寫:
Public Sub EventMacro()
Range("A2").AutoFilter Field:=11, Criteria1:=" "
alertTime = Now + TimeValue("00:00:10")
Application.OnTime alertTime, "EventMacro"
End Sub
這樣偵錯就不會有問題,那這樣對嗎??
個人積分：13441分
文章編號：64270739
附加壓縮檔: 201705/mobile01-52b08927d6c44a8440900316e0aaa0d6.zip
上述程式，自動在 sheet1 cells(1,1) 每秒+1
自動篩選功能你自己加
個人積分：0分
文章編號：64270894
個人積分：0分
文章編號：64273451
個人積分：13441分
文章編號：64273842
個人積分：0分
文章編號：64274106
