大佬，我这有段代码，但是我在关闭窗体的时候，代码仍在运行如何停下来啊？
Private Sub UserForm_Activate() '在激活userform1时开始倒计时，计时结束后，只显示交卷按钮
st = Now()
t = CDate("00:40:00") '以下代码我没看懂，抄的网络，大概意思能明白
Label_时间.Caption = t
Do
DoEvents
If DateDiff("s", st, Now()) = 1 Then
st = Now()
t = DateAdd("s", -1, t)
If Minute(t) = 0 And Second(t) = 0 Then Exit Do
Label_时间.Caption = t
End If
Loop
If Label_时间.Caption = "0:00:01" Then
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = True
End If
End Sub

我暂停过，代码显示运行在Doevents

答：这位兄台，请你自己看看do...loop循环的跳出条件啊，你除了时间到达之后跳出，没其他的跳出条件啊！
问：我知道啊，我跟你说啊，我关闭excel后，这个代码还在执行啊（excel在后台开着），什么情况
啊这
是！！！

不知道你这个代码是从哪抄来的，写这个的人自己有验证过可行性吗？计时的可以考虑一下我这个

wei
xin
shujuchuli1
教学，定制工具