如何实现Excel VBA脚本5-10秒随机延迟执行？

方法一：基于Application.Wait的简易实现 #

直接替换固定延迟的时间参数，用Rnd()生成5到10秒之间的随机值：

Sub RandomWait()
    Randomize Timer ' 初始化随机种子，避免每次随机序列重复
    Dim randomDelay As Double
    ' 生成5~10秒的随机数
    randomDelay = 5 + Rnd() * 5
    ' 执行随机延迟
    Application.Wait Now + TimeSerial(0, 0, randomDelay)
End Sub

• 原理：Rnd()返回0到1之间的随机小数，5 + Rnd()*5会得到5到10的随机秒数；TimeSerial(0,0,randomDelay)将秒数转换为时间格式，与Now相加得到等待的目标时间。

方法二：基于Sleep API的高精度延迟 #

如果需要更精确的毫秒级控制，可以使用Windows的Sleep函数：

' 必须在模块顶部声明API
#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub RandomSleepDelay()
    Randomize Timer
    Dim randomMs As Long
    ' 生成5000~10000毫秒（即5~10秒）的随机整数
    randomMs = 5000 + Int(Rnd() * 5001)
    ' 执行延迟
    Sleep randomMs
End Sub

• 注意：Sleep会让Excel完全暂停响应，而Application.Wait期间仍可操作Excel界面（只是代码暂停执行），根据需求选择即可。

内容的提问来源于stack exchange，提问作者KINGS