VBA延时的三个方法--以及声明之后,使用sleep报错的解决方案(declare ptrsaft)
查阅相关资料,获取较为可行的三个方法为:
1、一般延时(计时单位为秒级,1代表1s,下面两种方法皆是毫秒级,1000代表1s)
一个应用接口需要限制运行速度,需要在循环中加个延时函数,这个延时不需要多么精确,要求有个几秒延时,网上用的比较多的就是用Timer函数编写,Timer是VBA自带的函数,用起来比较方便,一般程序如下:'延时程序
Sub delay(T As Single) Dim time1 As Single time1 = Timer Do DoEvents Loop While Timer - time1 < T Debug.Print ("运行结束,总计耗时为:" & Timer - time1 & "s")End SubSub ce_time()delay (1.5)End Sub
效果图如下:(图一图二一样的,不过图一没有那么讲究换行,代码规范= =
