Application.Wait 및 Excel VBA 런타임 나는 <em>Application.Wait 실수로</em></strong>이 (노란색으로 강조 표시) <strong>이 행이 왜 이해하지 못하는 오류 '13'형식 불일치

Question

?

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 

이 코드는 "문자열을 숫자에 추가하려고합니다"라는 문제점을 발견했습니다. 그러나 나는 길을 잃었다! 감사합니다 :

Answer 1

귀하의 변수가 항상 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 일 수 있습니다.