Dim time As Date
Dim count As Integer
time = Now()
count = 60
time = DateAdd("s", count, time)
Do Until time < Now
DoEvents
With ActivePresentation.Slides(2).Shapes("T").TextFrame.TextRange
.Text = Format((time - Now()), "hh:mm:ss")
End With
Loop
如何为SendDetails倒计时结束后调用的某个子例程添加规定？
While time < Now
DoEvents
Wend
SendDetails
如果我使用上面的代码而不是
Do Until time < Now
DoEvents
中的文本Slides(2).Shapes("T")不会更新。
While并且Until是对立的。当你开始循环时，time大于Now()，但随着时间的推移，Now()会赶上。如果你把代码看成一个简单的英文句子，它会更有意义。
认为While是“只要'条件'为真”。Until意思是“这样做直到'条件'为真”。
您可以在进入循环之前或在退出之前进行测试。
在你的情况下
Do While time < Now()
Loop
Do
Loop Until time > Now()
是两个最明确的选择。记下<和>字符。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句