暂停代码的运行.xls

Sheet4 Sheet3 Sheet2 Sheet1 _Ref232914160 _Toc240076575 按钮2_单击 技巧1 ??????? 暂停代码的运行 在程序运行过程中，如果需要暂时停止宏代码的执行，可以使用Wait方法，如下面的代码所示。 Private Sub UserForm_Activate() Dim i As Integer For i = 1 To 10 Label1.Caption = 这是个演示窗体,将在 11 - i 秒后自动关闭! Application.Wait Now() + VBA.TimeValue(00:00:01) DoEvents Next Unload Me End Sub 代码解析： 窗体的激活事件，使用Wait方法使窗体显示10秒后关闭。 第4行代码在窗体的标签中显示倒计时关闭的秒数。 第5行代码使用Wait方法使代码暂停运行1秒钟。应用于Application对象的Wait方法暂停运行宏，直到一特定时间才继续运行宏，语法如下： Wait(Time) 参数Time是必需的，指定想要重新继续执行宏的时间点，以Microsoft Excel日期格式表示。 使用该方法将暂停Microsoft Excel的所有操作，但不影响后台操作，例如打印和重新计算。 第6行代码使用DoEvents函数转让控制权，更新标签中倒计时秒数。 运行窗体，标签中显示倒计时关闭的秒数并在10秒后关闭，如图 185?1所示。 图 185?1 暂停代码的运行 按钮 2