excel - EXCELL VBA，如果计时器结束，则用户窗体将关闭

Question

这是计时器代码

Sub StartTimer()
Application.OnTime Now + TimeValue("00:00:01"), _
"Decrement_Count_By_1"
End Sub

然后，倒计时

Sub Decrement_Count_By_1()
StartTimer
Range("Z1").Value = Range("Z1").Value - TimeValue("00:00:01")
UserForm5.Label7.Caption = Format(Range("Z1").Value, "hh:mm:ss")
If Range("Z1").Value = "00:00::01" Then
End If
On Error Resume Next
If Range("Z1").Value = 0 Then
End If
End Sub



Sub resettimer()
If Range("Z1").Value = 0 Then
        Range("Z1").Value = ("00:01:00")
End If
End Sub

那么，如何在定时器结束时关闭用户窗体呢？请帮助我，谢谢你

标签： excelvbauserformcountdowntimer