Excel 2003 vba程式碼請益

excel vba

T.M.R 2017-11-23 14:25:45 ‧ 6121 瀏覽

分享至

程式碼如上圖，這個作法是希望讓開啟的表單，在2分鐘內使用後自動關閉

(圖內10秒是為方便測試)，不過發現如果在2分鐘內手動關閉表單，下一個使用者開啟表單後，

會接續上一個使用者的剩餘時間 (ex.1號使用者用了1分30秒後首動關閉表單，2號使用者接著使用就只剩下30秒就會自動關閉)

想請教一下程式碼前輩，是該增加或修改哪些部分，才能使下一位使用者不接續上一位使用者的剩餘時間，而是重新計算2分鐘呢? 感謝。

froce iT邦大師 1 級 ‧ 2017-11-23 14:59:57 檢舉

沒在寫VB，不過你應該要用user去算時間，用application去算當然會這樣。

T.M.R iT邦新手 5 級 ‧ 2017-11-23 15:58:21 檢舉

用user去算時間？意思是？

leeshing18 iT邦新手 5 級 ‧ 2017-11-29 11:20:13 檢舉

這程式有什麼作用?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2017-11-23 17:36:42

拿 StartTimer 和 StopTimer 改改看

回應 1
分享
檢舉

T.M.R iT邦新手 5 級 ‧ 2017-11-24 17:37:19 檢舉

從網路得到取消Application.OnTime 設定
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
為甚麼執行時,會出現執行階段錯誤1004？

登入發表回應

leeshing18

iT邦新手 5 級 ‧ 2017-11-29 11:22:12

不明白怎樣使用

回應
分享
檢舉

登入發表回應

erwinho

iT邦新手 5 級 ‧ 2017-11-30 10:08:14

可以試著把時間寫到儲存格中來管控

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22081 篇

完賽人數

594 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙