使用wait方法来暂停vba代码的运行
工具/原料
excel2013
更多经验请关注,如果帮到了你,请在上方给个投票谢谢支持。好人一生平安。
先顶后看年薪百万,如果帮到了你,帮忙给个好评,这对小编很重要,万分感谢。
方法/步骤
1、首先我们打开一个工作样表作为例子。
2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:OptionExplicitSubRandom()DimmyRangeAsRangeDim惺绅寨瞀rngAsRangeDimaAsLong'设置对单元格区域的引用SetmyRange=Worksheets("Sheet1").Range("a1")Setrng=Worksheets("Sheet1").Range("e1:h5")'对Range对象进行操作myRange="=rand()"rng.Value=myRange.Valuea=1myRange.Font.Bold=Truea=a+1EndSub
3、在这个函数中我们给添加一个wait方法,让这个代码能够延迟执行。代码如下。appl坡纠课柩ication.waitnow()+vba.timevalue("00:00:05")
4、wait方法是应用程序的方法,所以我们要给它加上溏胃釜阼对象application,而now()函数则直接能返回当前的时间值,所以不用加上对象。
5、后面的连接符+加号必须使用excel格式的时间值,所以要用vba.timevalue来输入,这样才能得出正确的值。
6、也就是说wait方法必须使用excel格式的时间值才能正常使用,如果不是,则会报错。日期格式是这样的。