timer 計時器函式

t7788 · 发表于 2025-1-27 21:07

本帖最后由 t7788 于 2025-1-27 21:49 编辑

https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/timer-function
Sub qwer()
Start = Timer
Do While Timer < Start + 10 ' PauseTime
If Timer = 7 Then xxx
DoEvents
Loop
MsgBox "ok"
End Sub

上面红色语句无法达到我的要求
我想在第7秒只執行一次 xxx，要怎麽改??

赵桢0611 · 发表于 2025-1-28 06:54

试试这样。。。。。。。

lxdexcel · 发表于 2025-1-28 08:59

Do While Timer < Start + 10 ' PauseTime If Timer >=Start + 7 Then xxx DoEvents Loop

lxdexcel · 发表于 2025-1-28 09:03

Do While Timer < Start + 10 ' PauseTime
If Timer >= Start + 7 Then
'........xxx
exit do
END IF
DoEvents
Loop

t7788 · 发表于 2025-1-28 09:54

本帖最后由 t7788 于 2025-1-28 10:07 编辑

lxdexcel 发表于 2025-1-28 09:03
Do While Timer < Start + 10 ' PauseTime
If Timer >= Start + 7 Then
'........xxx

谢谢指导
If Timer >= Start + 7 Then msgbox "test"
在第7秒有回报，但出现了5次，能否只出现一次?
再请教
我想再加个条件
每隔一秒只执行一次 yyy 的语法?

t7788 · 发表于 2025-1-28 10:00

赵桢0611 发表于 2025-1-28 06:54
试试这样。。。。。。。

谢谢
on time 如果用在秒数极短不断重复时，会造成速度变慢
滑鼠呈现漏斗状我不太想用

用户名		自动登录	找回密码
密码			免费注册

[求助] timer 計時器函式