VBA 內多個篩選條件使用, 會有資料遺失的問題!

garychiang

請教!

我把資料先排序, 再篩選, 然後10秒後再執行一次!
我得到的結果, 發現有些資料會遺失, 每次執行的結果差異很多! 不知道那裏出現了問題!

(以下內容是對成交量比做排序, 然後選取漲跌5%以內, 總量大於1000張的!)

Worksheets("monitor").Columns("A:AH").Sort key1:=Range(sSortKey), order1:=xlDescending, Header:=xlYes
Worksheets("monitor").Range("A1").AutoFilter field:=6, Criteria1:=">0", Criteria2:="<5"
Worksheets("monitor").Range("A1").AutoFilter field:=14, Criteria1:=">1000"

Application.OnTime Now + TimeValue("00:00:10"), "PriceMonitor", , True

謝謝!

pierrebox

想確認一下，原程式就是PriceMonitor嗎?
如果是用另一個程式，用timer來發動PriceMonitor，結果會不會有差別?