blocks|key|176304|text|我将这个小函数用于VBA。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|176305|Public+Function+Pause(NumberOfSeconds+As+Variant)
++++On+Error+GoTo+Error_GoTo

++++Dim+PauseTime+As+Variant
++++Dim+Start+As+Variant
++++Dim+Elapsed+As+Variant

++++PauseTime+=+NumberOfSeconds
++++Start+=+Timer
++++Elapsed+=+0
++++Do+While+Timer+<+Start+%2B+PauseTime
++++++++Elapsed+=+Elapsed+%2B+1
++++++++If+Timer+=+0+Then
++++++++++++'+Crossing+midnight
++++++++++++PauseTime+=+PauseTime+-+Elapsed
++++++++++++Start+=+0
++++++++++++Elapsed+=+0
++++++++End+If
++++++++DoEvents
++++Loop

Exit_GoTo:
++++On+Error+GoTo+0
++++Exit+Function
Error_GoTo:
++++Debug.Print+Err.Number,+Err.Description,+Erl
++++GoTo+Exit_GoTo
End+Function|code-block|syntax|javascript|176306|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I use this little function for VBA. 

<pre><code>Public Function Pause(NumberOfSeconds As Variant)
 On Error GoTo Error_GoTo

 Dim PauseTime As Variant
 Dim Start As Variant
 Dim Elapsed As Variant

 PauseTime = NumberOfSeconds
 Start = Timer
 Elapsed = 0
 Do While Timer &lt; Start + PauseTime
 Elapsed = Elapsed + 1
 If Timer = 0 Then
 ' Crossing midnight
 PauseTime = PauseTime - Elapsed
 Start = 0
 Elapsed = 0
 End If
 DoEvents
 Loop

Exit_GoTo:
 On Error GoTo 0
 Exit Function
Error_GoTo:
 Debug.Print Err.Number, Err.Description, Erl
 GoTo Exit_GoTo
End Function
</code></pre>

blocks|key|176125|text|如果您使用的是Excel+VBA，则可以使用以下命令。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|176126|Application.Wait(Now+%2B+TimeValue("0:00:01"))|code-block|syntax|javascript|176127|(时间字符串应类似于H:MM:SS。)|176128|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

If you are in Excel VBA you can use the following.

<pre><code>Application.Wait(Now + TimeValue("0:00:01"))
</code></pre>

(The time string should look like H:MM:SS.)

blocks|key|3502906|text|您可以在模块中复制以下代码：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3502907|Sub+WaitFor(NumOfSeconds+As+Long)
Dim+SngSec+as+Long
SngSec=Timer+%2B+NumOfSeconds

Do+while+timer+<+sngsec
DoEvents
Loop

End+sub|code-block|syntax|javascript|3502908|每当您想要应用暂停写入时：|3502909|Call+WaitFor(1)|3502910|我希望这对你有帮助！|3502911|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

You can copy this in a module:

<pre><code>Sub WaitFor(NumOfSeconds As Long)
Dim SngSec as Long
SngSec=Timer + NumOfSeconds

Do while timer &lt; sngsec
DoEvents
Loop

End sub
</code></pre>

and whenever you want to apply the pause write:

<pre><code>Call WaitFor(1)
</code></pre>

I hope that helps!

blocks|key|3787966|text|你试过使用睡眠吗？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3787967|下面是一个示例HERE+(复制如下)：|offset|length|3787968|Private+Declare+Sub+Sleep+Lib+"kernel32"+(ByVal+dwMilliseconds+As+Long)

Private+Sub+Form_Activate()++++

frmSplash.Show
DoEvents
Sleep+1000
Unload+Me
frmProfiles.Show

End+Sub|code-block|syntax|javascript|3787969|请注意，它可能会在选定的时间量内冻结应用程序。|3787970|entityMap|0|LINK|mutability|MUTABLE|url|http://vbadud.blogspot.com/2008/03/sleep-function-in-excel-vba.html^0|0|7|4|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|V|8|@]|9|@$D|W|E|X|1|Y]]|A|$]]|$1|F|3|G|5|H|7|Z|8|@]|9|@]|A|$I|J]]|$1|K|3|L|5|6|7|10|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|T]]]]

Have you tried to use Sleep?

There's an example <a href="http://vbadud.blogspot.com/2008/03/sleep-function-in-excel-vba.html">HERE</a> (copied below):

<pre><code>Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate() 

frmSplash.Show
DoEvents
Sleep 1000
Unload Me
frmProfiles.Show

End Sub
</code></pre>

Notice it might freeze the application for the chosen amount of time.

blocks|key|3502968|text|只要项目具有Microsoft+Excelxx.x对象reference+included，Access就可以始终使用Excel过程|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3502969|Call+Excel.Application.Wait(DateAdd("s",10,Now()))|code-block|syntax|javascript|3502970|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/office/gg264402.aspx^0|R|I|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

Access can always use the Excel procedure as long as the project has the Microsoft Excel XX.X object <a href="https://msdn.microsoft.com/en-us/library/office/gg264402.aspx" rel="nofollow">reference included</a>:

<pre><code>Call Excel.Application.Wait(DateAdd("s",10,Now()))
</code></pre>

blocks|key|176093|text|您的代码只创建一个没有日期的时间。如果您的假设是正确的，即当它运行application.wait时，时间实际上已经到达该时间，它将准确地等待24小时。我还有点担心多次调用now()+(可能会有所不同？)我会将代码更改为|type|unstyled|depth|inlineStyleRanges|entityRanges|data|176094|+application.wait+DateAdd("s",+1,+Now)|code-block|syntax|javascript|176095|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Your code only creates a time without a date. If your assumption is correct that when it runs the application.wait the time actually already reached that time it will wait for 24 hours exactly. I also worry a bit about calling now() multiple times (could be different?) I would change the code to 

<pre><code> application.wait DateAdd("s", 1, Now)
</code></pre>

blocks|key|176457|text|Steve+Mallory回答的另一个变种是，我特别需要excel在等待的时候跑开做事情，1秒太长了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|176458|'Wait+for+the+specified+number+of+milliseconds+while+processing+the+message+pump
'This+allows+excel+to+catch+up+on+background+operations
Sub+WaitFor(milliseconds+As+Single)

++++Dim+finish+As+Single
++++Dim+days+As+Integer

++++'Timer+is+the+number+of+seconds+since+midnight+(as+a+single)
++++finish+=+Timer+%2B+(milliseconds+/+1000)
++++'If+we+are+near+midnight+(or+specify+a+very+long+time!)+then+finish+could+be
++++'greater+than+the+maximum+possible+value+of+timer.+Bring+it+down+to+sensible
++++'levels+and+count+the+number+of+midnights
++++While+finish+>=+86400
++++++++finish+=+finish+-+86400
++++++++days+=+days+%2B+1
++++Wend

++++Dim+lastTime+As+Single
++++lastTime+=+Timer

++++'When+we+are+on+the+correct+day+and+the+time+is+after+the+finish+we+can+leave
++++While+days+>=+0+And+Timer+<+finish
++++++++DoEvents
++++++++'Timer+should+be+always+increasing+except+when+it+rolls+over+midnight
++++++++'if+it+shrunk+we've+gone+back+in+time+or+we're+on+a+new+day
++++++++If+Timer+<+lastTime+Then
++++++++++++days+=+days+-+1
++++++++End+If
++++++++lastTime+=+Timer
++++Wend

End+Sub|code-block|syntax|javascript|176459|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Another variant of Steve Mallorys answer, I specifically needed excel to run off and do stuff while waiting and 1 second was too long.

<pre><code>'Wait for the specified number of milliseconds while processing the message pump
'This allows excel to catch up on background operations
Sub WaitFor(milliseconds As Single)

 Dim finish As Single
 Dim days As Integer

 'Timer is the number of seconds since midnight (as a single)
 finish = Timer + (milliseconds / 1000)
 'If we are near midnight (or specify a very long time!) then finish could be
 'greater than the maximum possible value of timer. Bring it down to sensible
 'levels and count the number of midnights
 While finish &gt;= 86400
 finish = finish - 86400
 days = days + 1
 Wend

 Dim lastTime As Single
 lastTime = Timer

 'When we are on the correct day and the time is after the finish we can leave
 While days &gt;= 0 And Timer &lt; finish
 DoEvents
 'Timer should be always increasing except when it rolls over midnight
 'if it shrunk we've gone back in time or we're on a new day
 If Timer &lt; lastTime Then
 days = days - 1
 End If
 lastTime = Timer
 Wend

End Sub
</code></pre>

blocks|key|3503151|text|Timer功能还适用于Access+2007、Access+2010、Access+2013、Access+2016、Access+2007+Developer、Access+2010+Developer、Access+2013+Developer。插入此代码以暂停一定秒数的时间|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|3503152|T0+=+Timer
Do
++++Delay+=+Timer+-+T0
Loop+Until+Delay+=+1+'Change+this+value+to+pause+time+in+second|code-block|syntax|javascript|3503153|entityMap^0|0|5|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

The Timer function also applies to Access 2007, Access 2010, Access 2013, Access 2016, Access 2007 Developer, Access 2010 Developer, Access 2013 Developer. Insert this code to to pause time for certain amount of seconds

<pre><code>T0 = Timer
Do
 Delay = Timer - T0
Loop Until Delay = 1 'Change this value to pause time in second
</code></pre>

blocks|key|3503065|text|我使用了史蒂夫·马洛里的答案，但我担心计时器永远不会，或者至少有时不会到86400或0(零)夏普(MS+Access+2013)。所以我修改了代码。我将午夜条件更改为"If+Timer+>=+86399+Then“，并添加了循环"Exit+Do”的中断，如下所示：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3503066|Public+Function+Pause(NumberOfSeconds+As+Variant)
++++On+Error+GoTo+Error_GoTo

++++Dim+PauseTime+As+Variant
++++Dim+Start+As+Variant
++++Dim+Elapsed+As+Variant

++++PauseTime+=+NumberOfSeconds
++++Start+=+Timer
++++Elapsed+=+0
++++Do+While+Timer+<+Start+%2B+PauseTime
++++++++Elapsed+=+Elapsed+%2B+1
++++++++If+Timer+>=+86399
++++++++++++'+Crossing+midnight
++++++++++++'+PauseTime+=+PauseTime+-+Elapsed
++++++++++++'+Start+=+0
++++++++++++'+Elapsed+=+0
++++++++++++Exit+Do
++++++++End+If
++++++++DoEvents
++++Loop

Exit_GoTo:
++++On+Error+GoTo+0
++++Exit+Function
Error_GoTo:
++++Debug.Print+Err.Number,+Err.Description,+Erl
++++GoTo+Exit_GoTo
End+Function|code-block|syntax|javascript|3503067|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I used the answer of Steve Mallory, but I am affraid the timer never or at least sometimes does not go to 86400 nor 0 (zero) sharp (MS Access 2013). So I modified the code. I changed the midnight condition to "If Timer >= 86399 Then"
and added the break of the loop "Exit Do" as follows:

<pre><code>Public Function Pause(NumberOfSeconds As Variant)
 On Error GoTo Error_GoTo

 Dim PauseTime As Variant
 Dim Start As Variant
 Dim Elapsed As Variant

 PauseTime = NumberOfSeconds
 Start = Timer
 Elapsed = 0
 Do While Timer &lt; Start + PauseTime
 Elapsed = Elapsed + 1
 If Timer &gt;= 86399
 ' Crossing midnight
 ' PauseTime = PauseTime - Elapsed
 ' Start = 0
 ' Elapsed = 0
 Exit Do
 End If
 DoEvents
 Loop

Exit_GoTo:
 On Error GoTo 0
 Exit Function
Error_GoTo:
 Debug.Print Err.Number, Err.Description, Erl
 GoTo Exit_GoTo
End Function
</code></pre>

blocks|key|176515|text|接受答案中对午夜的处理是错误的。它测试Timer+=+0，这几乎永远不会发生。相反，它应该测试Timer+<+Start。另一个答案试图纠正Timer+>=+86399，但在速度较慢的计算机上，该测试也可能失败。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|176516|下面的代码正确地处理午夜(比Timer+<+Start稍微复杂一点)。它也是一个sub，而不是一个函数，因为它不返回值，而变量是单变量，因为它们不需要是变体。|176517|Public+Sub+pPause(nPauseTime+As+Single)

'+Pause+for+nPauseTime+seconds.

Dim+nStartTime+As+Single,+nEndTime+As+Single,+_
++++nNowTime+As+Single,+nElapsedTime+As+Single

nStartTime+=+Timer()
nEndTime+=+nStartTime+%2B+nPauseTime

Do+While+nNowTime+<+nEndTime
++++nNowTime+=+Timer()
++++If+(nNowTime+<+nStartTime)+Then+++++'+Crossed+midnight.
++++++++nEndTime+=+nEndTime+-+nElapsedTime
++++++++nStartTime+=+0
++++++End+If
++++nElapsedTime+=+nNowTime+-+nStartTime
++++DoEvents++++'+Yield+to+other+processes.
++Loop

End+Sub|code-block|syntax|javascript|176518|entityMap^0|J|9|1B|D|1Y|E|0|E|D|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]|$9|T|A|U|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|V|8|@$9|W|A|X|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|Y|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|N|$]]

The handling of midnight in the accepted answer is wrong. It tests for <code>Timer = 0</code>, which will almost never happen. It should instead test for <code>Timer &lt; Start</code>. Another answer tried a correction of <code>Timer &gt;= 86399</code>, but that test can also fail on a slow computer.
The code below handles midnight correctly (with a bit more complexity than <code>Timer &lt; Start</code>). It also is a sub, not a function, because it doesn't return a value, and variables are singles because there is no need for them to be variants.
<pre><code>Public Sub pPause(nPauseTime As Single)

' Pause for nPauseTime seconds.

Dim nStartTime As Single, nEndTime As Single, _
 nNowTime As Single, nElapsedTime As Single

nStartTime = Timer()
nEndTime = nStartTime + nPauseTime

Do While nNowTime &lt; nEndTime
 nNowTime = Timer()
 If (nNowTime &lt; nStartTime) Then ' Crossed midnight.
 nEndTime = nEndTime - nElapsedTime
 nStartTime = 0
 End If
 nElapsedTime = nNowTime - nStartTime
 DoEvents ' Yield to other processes.
 Loop

End Sub
</code></pre>

blocks|key|3503009|text|在Windows上计时器返回百分之一秒...大多数人只使用秒，因为在Macintosh平台上，计时器返回整数。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3503010|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

On Windows timer returns hundredths of a second... Most people just use seconds because on the Macintosh platform timer returns whole numbers.

blocks|key|3788262|text|感谢史蒂夫·马尔罗伊。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3788263|我在Word中遇到了午夜问题，下面的代码为我工作|3788264|Public+Function+Pause(NumberOfSeconds+As+Variant)
+'+++On+Error+GoTo+Error_GoTo

++++Dim+PauseTime,+Start
++++Dim+objWord+As+Word.Document

++++'PauseTime+=+10+'+Set+duration+in+seconds
++++PauseTime+=+NumberOfSeconds
++++Start+=+Timer+'+Set+start+time.

++++If+Start+%2B+PauseTime+>+86399+Then+'playing+safe+hence+86399

++++Start+=+0

++++Do+While+Timer+>+1
++++++++DoEvents+'+Yield+to+other+processes.
++++Loop

++++End+If

++++Do+While+Timer+<+Start+%2B+PauseTime
++++++++DoEvents+'+Yield+to+other+processes.
++++Loop

End+Function|code-block|syntax|javascript|3788265|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

With Due credits and thanks to Steve Mallroy.

I had midnight issues in Word and the below code worked for me

<pre><code>Public Function Pause(NumberOfSeconds As Variant)
 ' On Error GoTo Error_GoTo

 Dim PauseTime, Start
 Dim objWord As Word.Document

 'PauseTime = 10 ' Set duration in seconds
 PauseTime = NumberOfSeconds
 Start = Timer ' Set start time.

 If Start + PauseTime &gt; 86399 Then 'playing safe hence 86399

 Start = 0

 Do While Timer &gt; 1
 DoEvents ' Yield to other processes.
 Loop

 End If

 Do While Timer &lt; Start + PauseTime
 DoEvents ' Yield to other processes.
 Loop

End Function
</code></pre>

blocks|key|1888146|text|对于MS+Access:启动一个设置了Me.TimerInterval和Form_Timer事件处理程序的隐藏窗体。将要延迟的代码放在Form_Timer例程中-在每次执行后退出该例程。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1888147|例如：|1888148|Private+Sub+Form_Load()
++++Me.TimerInterval+=+30000+'+30+sec
End+Sub

Private+Sub+Form_Timer()

++++Dim+lngTimerInterval++As+Long:+lngTimerInterval+=+Me.TimerInterval

++++Me.TimerInterval+=+0

++++'<Your+Code+goes+here>

++++Me.TimerInterval+=+lngTimerInterval
End+Sub|code-block|syntax|javascript|1888149|"Your+Code+is“将在表单打开后30秒和每次后续执行后30秒执行。|1888150|完成后关闭隐藏窗体。|1888151|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|P|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|Q|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

For MS Access: Launch a hidden form with Me.TimerInterval set and a Form_Timer event handler. Put your to-be-delayed code in the Form_Timer routine - exiting the routine after each execution.

E.g.:

<pre><code>Private Sub Form_Load()
 Me.TimerInterval = 30000 ' 30 sec
End Sub

Private Sub Form_Timer()

 Dim lngTimerInterval As Long: lngTimerInterval = Me.TimerInterval

 Me.TimerInterval = 0

 '&lt;Your Code goes here&gt;

 Me.TimerInterval = lngTimerInterval
End Sub
</code></pre>

"Your Code goes here" will be executed 30 seconds after the form is opened and 30 seconds after each subsequent execution.

Close the hidden form when done.

I would like a 1 second delay in my code. Below is the code I am trying to make this delay. I think it polls the date and time off the operating system and waits until the times match. I am having an issue with the delay. I think it does not poll the time when it matches the wait time and it just sits there and freezes up. It only freezes up about 5% of the time I run the code. I was wondering about Application.Wait and if there is a way to check if the polled time is greater than the wait time.

<pre><code> newHour = Hour(Now())
 newMinute = Minute(Now())
 newSecond = Second(Now()) + 1
 waitTime = TimeSerial(newHour, newMinute, newSecond)
 Application.Wait waitTime
</code></pre>

Timing Delays in VBA

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我希望我的代码有1秒的延迟。下面是我试图延迟的代码。我认为它会轮询操作系统上的日期和时间，然后等待时间匹配。我对延迟有意见。我认为当它与等待时间匹配时，它不会轮询时间，它只是坐在那里并冻结。我运行代码时，它只冻结了大约5%的时间。我想知道Application.Wait是否有办法检查轮询时间是否大于等待时间。   newHour = Hour(Now())   newMinute = Minute

问VBA中的计时延迟
EN

回答 13

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBA中的计时延迟EN

回答 13

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBA中的计时延迟
EN