[已解决]VBA等待随机时间后执行下一个

nancy66317

有个VBA程序，因特殊需要，在循环时需要等待随机时间，不知道这句语句怎么表达
Sub 宏1()
For x = 1 To 10
Range("C" & x) = Range("A" & x) + Range("B" & x)
'增加随机等待时间
Sub 宏1()
For x = 1 To 10
Range("C" & x) = Range("A" & x) + Range("B" & x)
'增加随机等待时间,这红色是固定10秒，我需的等待时间是在1到3分钟之间的随机时间
d = Now
Do While Now - d < TimeValue("00:00:10")
DoEvents
Loop

Next

End Sub



Next

End Sub

最佳答案

月排行榜 / 总排行榜

excel助手

2016-1-5 16:15

d = Timer
随机时间 = Rnd() * 10 '10为随机范围
Do While Timer - d < 随机时间
    DoEvents
Loop

跳转到最佳答案楼层

QCW911

1. Sub auto_open()
   
2. a = Rnd() * 10 \ 1
   
3. Application.OnTime Now + TimeValue("00:00:0" & a), "test"
   
4. End Sub
   
5. 
   
6. Sub test()
   
7. MsgBox Time
   
8. Call auto_open
   
9. End Sub
   
10. 
    

复制代码

放到模块里

excel助手

d = Timer
随机时间 = Rnd() * 10 '10为随机范围
Do While Timer - d < 随机时间
    DoEvents
Loop