使用wait方法来暂停vba代码的运行

1、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub Random()

Dim myRange As Range

Dim rng As Range

Dim a As Long

'设置对单元格区域的引用

Set myRange = Worksheets("Sheet1").Range("a1")

Set rng = Worksheets("Sheet1").Range("e1:h5")

'对Range对象进行操作

myRange = "=rand()"

rng.Value = myRange.Value

a = 1

myRange.Font.Bold = True

a = a + 1

End Sub

3、在这个函数中我们给添加一个wait方法，让这个代码能够延迟执行。代码如下。application.wait now() + vba.timevalue("00:00:05")

4、wait方法是应用程序的方法，所以我们要给它加上对象application，而now（）函数则直接能返回当前的时间值，所以不用加上对象。

5、后面的连接符+加号必须使用excel格式的时间值，所以要用vba.timevalue来输入，这样才能得出正确的值。

6、也就是说wait方法必须使用excel格式的时间值才能正常使用，如果不是，则会报错。日期格式是这样的。