→ newacc: 你認為怎樣是正確執行？OnTime寫在哪裡？ 01/23 17:26
→ ckingsu: Range("Aa21") = DateDiff("s", time0, time1) 01/23 20:39
→ ckingsu: 改用debug.pring, 或用變數取代 01/23 20:40
→ ckingsu: application.ontime 就能正確執行 01/23 20:41
→ ckingsu: 不知為何會如此? 01/23 20:41
→ ckingsu: 我需要儲存格動態秒數，不知怎麼改? 01/23 20:42
→ ckingsu: 在不影響其他程序的情況下 01/23 20:42
→ newacc: 我提供的螢幕錄影就是你說的儲存格動態秒數吧？是由你文 01/24 02:56
→ newacc: 章裡的程式碼改的，沒辦法執行的話，需要更詳細的程式碼 01/24 02:56
→ newacc: 才有辦法判斷了 01/24 02:56
→ newacc: 你的OnTime是寫在哪裡？呼叫什麼？ 01/24 02:57
→ ckingsu: my = #12:00:10 AM# 01/24 05:48
→ ckingsu: The_Time = Now + my 01/24 05:48
→ ckingsu: Application.OnTime The_Time, "timestock" 01/24 05:49
→ ckingsu: Range("J16").Value = Format(The_Time, "hh:mm:ss") 01/24 05:49
→ ckingsu: 10秒執行一次timestock 01/24 05:50
→ ckingsu: timestock->寫一些DDE的資料到儲存格(程式碼不短就不引出 01/24 05:51
→ ckingsu: on time 在第二個10秒就不動了 ? 01/24 05:53
→ ckingsu: 改 A=DateDiff("s", time0, time1)就會動了 01/24 05:54
→ ckingsu: 我剛又隨便寫一個簡單的on time 測試也是不行 01/24 06:47
→ ckingsu: sub acde123() 01/24 06:49
→ ckingsu: [a1] = [a1] + 1 01/24 06:50
→ ckingsu: sw = #12:00:02 AM# 01/24 06:50
→ ckingsu: aaa = Now + sw 01/24 06:50
→ ckingsu: Application.OnTime aaa, "acde123" 01/24 06:51
→ ckingsu: end sub 01/24 06:51
→ ckingsu: 我又詳細測了一次，應該沒問題,不過，產生新的問題 01/24 13:27
→ ckingsu: 執行計時器後，切到別的工作表會自動跳出do loop ? 01/24 13:28
→ ckingsu: 在任一儲存格輸入會計時器終止運行? 01/24 19:23