我正在尝试设置一个将出现的用户表单,保持 10 秒,然后自动关闭。我之前在 Excel 中使用以下OnTime
方法完成了此操作:
Sub Example()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:10"), _
Procedure:="Hide_userform2"
UserForm2.Show
End Sub
Sub Hide_userform2()
UserForm2.Hide
End Sub
但是,由于 Outlook 无法识别该OnTime
方法,因此我一直在尝试使用该Timer
语句:
Sub example2()
Strt = Timer
Do While Timer < Strt + 10
UserForm2.Show
Loop
UserForm2.Hide
End Sub
这样做的问题是,当用户表单打开时,宏(包括循环)会暂停,直到手动关闭用户表单......
对此解决方法的任何帮助将不胜感激。
干杯!