Excel 用户窗体实时倒计时

Question

我创建了一个带有文本标签的简单用户表单。我已经将此代码放在激活用户表单以运行目标时间的剩余时间时。运行一次就好了，但不会倒计时...秒不会轻弹...等。

法典

Private Sub UserForm_activate()
targtime = DateValue("28 Jun 2018") + TimeValue("18:37:00")
remtime = targtime - Now
Me.Label1 = Int(remtime) & " Days " & Format(remtime - Int(remtime), "HH:MM:SS")
End Sub

我做错了什么？

Answer 1

把它放在一个无限循环中，它会开始每秒滴答作响：

Private Sub UserForm_Activate()
Dim remTime As Date
While True
remTime = DateValue("28 Jun 2018") + TimeValue("18:37:00") - Now
Me.Label1 = Int(remTime) & " Days " & Format(remTime - Int(remTime), "HH:MM:SS")
Me.Repaint
Application.Wait Now + #12:00:01 AM#
Wend

End Sub