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

工具/原料

• excel2013

• 更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。

• 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。

方法/步骤

1. 1

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

   
2. 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. 3

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

   
4. 4

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

   
5. 5

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

   
6. 6

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

   
   END