第1个回答 2019-11-09
Application.Wait Now + TimeValue("00:00:01")
程序延迟1秒.最低延迟1秒(无法减为半秒)
某些公式计算结果比较,不用延迟就会出错.我写的一段代码需要判断几个重复值,如果是重复的就刷新一次随机产生别的值,但是不开延迟,就无法正确判断.
第2个回答 2008-06-10
这段代码在Excel VBA 和VB里都可以用
'***********VB 延时函数定义*************************************
'声明
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
'延时
Public Sub Delay(ByVal num As Integer)
Dim t As Long
t = timeGetTime
Do Until timeGetTime - t >= num * 1000
DoEvents
Loop
End Sub
'***************************************************************
使用方法:
delay 3'3表示秒数