mead 當前離線
中學生
If (TimeValue(Now) = TimeValue("13:45:00")) Then Exit Sub '營業時間才執行 若在8:45前或13:45以後即離 ... ANGELA 發表於 2012-6-7 20:05
TOP
回復 mead 因為在8:45以前開檔,雖然有執行一次Timer 但因為直接跳出程序,並未準備下一次執行Timer 判 ... Hsieh 發表於 2012-6-7 20:28
回復 mead Hsieh 發表於 2012-6-7 21:51
回復 mead 關鍵在於 Application.OnTime (TimeValue("08:45:00")), "Module1.Timer" :至於 Timer 修改 ... c_c_lai 發表於 2012-6-8 08:07