PTT數位生活區 / Office

[算表] Do While LOOP & Application.OnTime

看板Office作者 (ckingsu)時間4周前 (2025/01/23 13:16), 編輯推噓0(0推 0噓 31→)
留言31則, 2人參與, 4周前最新討論串1/1
軟體: excel 版本: 2021 Sub atime123() 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程序 還是沒辦法正確執行 ?? -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.36.77.116 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1737609412.A.CFF.html
→
01/23 17:26, 4周前 , 1F
你認為怎樣是正確執行？OnTime寫在哪裡？
01/23 17:26, 1F
→
01/23 17:27, 4周前 , 2F
01/23 17:27, 2F
→
01/23 17:27, 4周前 , 3F
01/23 17:27, 3F
→
01/23 20:39, 4周前 , 4F
Range("Aa21") = DateDiff("s", time0, time1)
01/23 20:39, 4F
→
01/23 20:40, 4周前 , 5F
改用debug.pring, 或用變數取代
01/23 20:40, 5F
→
01/23 20:41, 4周前 , 6F
application.ontime 就能正確執行
01/23 20:41, 6F
→
01/23 20:41, 4周前 , 7F
不知為何會如此?
01/23 20:41, 7F
→
01/23 20:42, 4周前 , 8F
我需要儲存格動態秒數，不知怎麼改?
01/23 20:42, 8F
→
01/23 20:42, 4周前 , 9F
在不影響其他程序的情況下
01/23 20:42, 9F
→
01/24 02:56, 4周前 , 10F
我提供的螢幕錄影就是你說的儲存格動態秒數吧？是由你文
01/24 02:56, 10F
→
01/24 02:56, 4周前 , 11F
章裡的程式碼改的，沒辦法執行的話，需要更詳細的程式碼
01/24 02:56, 11F
→
01/24 02:56, 4周前 , 12F
才有辦法判斷了
01/24 02:56, 12F
→
01/24 02:57, 4周前 , 13F
你的OnTime是寫在哪裡？呼叫什麼？
01/24 02:57, 13F
→
01/24 05:48, 4周前 , 14F
my = #12:00:10 AM#
01/24 05:48, 14F
→
01/24 05:48, 4周前 , 15F
The_Time = Now + my
01/24 05:48, 15F
→
01/24 05:49, 4周前 , 16F
Application.OnTime The_Time, "timestock"
01/24 05:49, 16F
→
01/24 05:49, 4周前 , 17F
Range("J16").Value = Format(The_Time, "hh:mm:ss")
01/24 05:49, 17F
→
01/24 05:50, 4周前 , 18F
10秒執行一次timestock
01/24 05:50, 18F
→
01/24 05:51, 4周前 , 19F
timestock->寫一些DDE的資料到儲存格(程式碼不短就不引出
01/24 05:51, 19F
→
01/24 05:53, 4周前 , 20F
on time 在第二個10秒就不動了 ?
01/24 05:53, 20F
→
01/24 05:54, 4周前 , 21F
改 A=DateDiff("s", time0, time1)就會動了
01/24 05:54, 21F
→
01/24 06:47, 4周前 , 22F
我剛又隨便寫一個簡單的on time 測試也是不行
01/24 06:47, 22F
→
01/24 06:49, 4周前 , 23F
sub acde123()
01/24 06:49, 23F
→
01/24 06:50, 4周前 , 24F
[a1] = [a1] + 1
01/24 06:50, 24F
→
01/24 06:50, 4周前 , 25F
sw = #12:00:02 AM#
01/24 06:50, 25F
→
01/24 06:50, 4周前 , 26F
aaa = Now + sw
01/24 06:50, 26F
→
01/24 06:51, 4周前 , 27F
Application.OnTime aaa, "acde123"
01/24 06:51, 27F
→
01/24 06:51, 4周前 , 28F
end sub
01/24 06:51, 28F
→
01/24 13:27, 4周前 , 29F
我又詳細測了一次，應該沒問題,不過，產生新的問題
01/24 13:27, 29F
→
01/24 13:28, 4周前 , 30F
執行計時器後，切到別的工作表會自動跳出do loop ?
01/24 13:28, 30F
→
01/24 19:23, 4周前 , 31F
在任一儲存格輸入會計時器終止運行?
01/24 19:23, 31F
‣ 更多 ckingsu 的文章
文章代碼(AID): #1daT34p_ (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ckingsu 的文章
文章代碼(AID): #1daT34p_ (Office)