標題:
[發問]
請教此程序如何更改?
[打印本頁]
作者:
t8899
時間:
2015-1-17 07:39
標題:
請教此程序如何更改?
暫停10秒，繼續執行下一行
DSTOP = Now: Do While Now - DSTOP < TimeValue("0:00:10"): DoEvents: Loop
TimeValue("0:00:10") 想由 [a1]的值代替
[a1]=1 則為1秒
[a1]=2 則為2秒
類推
............
.....
作者:
准提部林
時間:
2015-1-17 11:36
暫停？秒，
有 Wait 及 Sleep 方法，可網上找一下；
只是因〔暫停〕目的不同，不一定適用。
作者:
t8899
時間:
2015-1-17 13:56
本帖最後由 t8899 於 2015-1-17 13:57 編輯
暫停？秒，
有 Wait 及 Sleep 方法，可網上找一下；
只是因〔暫停〕目的不同，不一定適用。
准提部林 發表於 2015-1-17 11:36
我找到DateAdd方法
Sub test()
timeie = DateAdd("s", [a1], Now) '[a1]為秒數，或直接輸入秒數 timeie = DateAdd("s", 10, Now)
Do While timeie > Now
DoEvents
Loop
MsgBox "ddddddddddd"
End Sub
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
