vba 在光标插入文字_VBA代码解决方案第81讲：如何暂停代码的运行-CSDN博客

大家好，我们今日继续讲解VBA代码解决方案的第81讲内容：如何暂停代码的运行。到这讲VBA代码共讲了九九八十一讲了，这期间有很多的问题或许来不及给大家解答，还望大家能原谅，我写VBA代码主要是和大家分享我多年来在工作中遇到的的一些实际问题的处理方案，所以我这里起名为VBA代码的解决方案。随着时间的推移，很多好的或者说我认为好的方案分享给大家。

今日讲的是在代码的运行工程中如何能暂停代码的运行，在程序运行过程中，如果需要暂时停止宏代码的执行，可以使用Wait方法，

应用于Application对象的Wait方法暂停运行宏，直到一特定时间才继续运行宏，语法如下：

Wait(Time)

参数Time是必需的，指定想要重新继续执行宏的时间点，以Microsoft Excel日期格式表示。

说明返回值Boolean，Wait 方法暂停 Microsoft Excel 的所有操作，并且，Wait起作用时可能禁止您对计算机做其他操作。不过，后台操作（如打印和重新计算）将继续进行。

在上面的讲解中提到应用于Application对象的Wait方法，这里的Application对象是指EXCEL程序的本身。

其实Application是应用程序（application program）的缩写。一个应用程序通常是指能够执行某种功能的软件程序。比如，文字处理程序、数据库程序、网络浏览器、开发工具、绘图、图像编辑工具以及通信工具等等都可以是应用程序。应用程序能够利用计算机操作系统的某些服务，也可以利用其它应用程序所支持的服务。通常这种同操作系统或其它应用程序进行交互的应用程序请求称为应用程序接口，也就是常常提起的API。

在计算机键盘上,标准键盘上只有这个键的图标，而没有名称. Application键在键盘右Alt键的右侧第二个，右Ctrl键的左侧。为一个下拉菜单和一个鼠标的选择光标图案，它的作用相当于鼠标右键，用来激活Windows或程序中的菜单，即我们可以通过按下它来打开某一项目的快捷方式菜单。

目前还没有中文名...有如同CTRL键,它也没中文名,只能意会为控制...application也只能意会成应用键吧...

下面看看我们的今日的代码所示。

Sub MyWait()

Dim i As Integer

For i = 1 To 10

Sheets("sheet9").Cells(1, 1) = "这是个演示文件,将在" & 11 - i & "秒后自动关闭!"

Application.Wait Now() + VBA.TimeValue("00:00:01")

Windows("book25").Close

End Sub

代码解析：窗体的激活事件，使用Wait方法使窗体显示10秒后关闭。

第4行代码在窗体的标签中显示倒计时关闭的秒数。