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

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

2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option ExplicitSub Random()Dim myRange As RangeDim rng As RangeDim a As Long'设置对单元格区域的引用Set myRange = Worksheets("Sheet1").Range("a1")Set rng = Worksheets("Sheet1").Range("e1:h5")'对Range对象进行操作myRange = "=rand()"rng.Value = myRange.Valuea = 1myRange.Font.Bold = Truea = a + 1End Sub

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

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

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

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