我不明白为什么会有该行Application.Wait in error（以黄色突出显示）？
Sub Wait_Random()
Dim Low As Double
Dim High As Double
Low = 90 '<<< CHANGE AS DESIRED
High = 126 '<<< CHANGE AS DESIRED
r = Int((High - Low + 1) * Rnd() + Low)
Application.Wait Now + TimeValue("00:00:" & CStr(r))
End Sub
我发现问题在于此代码正在尝试“将数字添加到字符串中”。但是我迷路了！提前致谢 ;）
这是因为您的r变量始终大于59秒。（实际上是alwasys大于90）。您应该进行更改Low，High这样r永远不会比以往更大59：
Sub Wait_Random()
Dim Low As Double
Dim High As Double
Dim r as Integer
Low = 1 '<<< CHANGE AS DESIRED
High = 59 '<<< CHANGE AS DESIRED
r = Int((High - Low) * Rnd() + Low)
Application.Wait Now + TimeValue("00:00:" & CStr(r))
End Sub
或您可以使用的另一种方式
Application.Wait DateAdd("s", r, Now)
增加r秒数。在那种情况下r可能更大59。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句