標題: [發問] Do While LOOP 讓 Application.OnTime 無法正確執行? [打印本頁]

---

作者: t8899    時間: 昨天 13:10     標題: Do While LOOP 讓 Application.OnTime 無法正確執行?

Sub atime123()
' Application.EnableEvents = False
Range("Aa21") = 0
    time0 = Time()
         time1 = Time()
  Do While Range("Aa21") <> Range("Ab21")
time1 = Time() + TimeSerial(0, 0, 1)
Range("Aa21") = DateDiff("s", time0, time1)
DoEvents
Loop
End Sub

雖有 DoEvents  再執行Application.OnTime程序 還是沒辦法正確執行 ??

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)