Question

我有一个带开始和停止按钮的倒计时宏。我想修复停止时间，所以当计数器为零时，它不应该再次启动，因此应该替换Loop Until StopTimer。我尝试EndTime - Now = 0作为条件，但它不起作用。

Sub Countdown()
  Const Seconds = 10
  Dim EndTime As Double
  StopTimer = False
  Do
    If EndTime - Now < 0 Then
      EndTime = Now + TimeSerial(0, 0, Seconds)
    End If
    Range("A1") = EndTime - Now
    DoEvents
  Loop Until StopTimer
End Sub

Answer 1

Sub Countdown()
  Const Seconds = 10
  Dim EndTime As Double
  EndTime = Now + TimeSerial(0, 0, Seconds)
  StopTimer = False
  Do
    If EndTime - Now <= 0 Then
      StopTimer = True
    End If
    Range("A1") = EndTime - Now
    DoEvents
  Loop Until StopTimer
End Sub

循环停止条件

1 个答案: