잠시 후의 휴식...웬드루프

잠시 후의 휴식...웬드루프

잠시 사용 중...VBA의 웬드 루프.

Dim count as Integer

While True
    count=count+1

    If count = 10 Then
        ''What should be the statement to break the While...Wend loop? 
        ''Break or Exit While not working
    EndIf
Wend

'While count<=10...'와 같은 조건을 사용하고 싶지 않습니다.웬드

A While/Wend루프는 다음과 같은 경우에만 조기 종료될 수 있습니다.GOTO또는 외부 블록에서 빠져나옴으로써(Exit sub/function또는 또 다른 흥분성 루프)

a로 변경Do대신 루프:

Do While True
    count = count + 1

    If count = 10 Then
        Exit Do
    End If
Loop

또는 설정된 횟수만큼 루프하는 경우:

for count = 1 to 10
   msgbox count
next

(Exit For위에서 조기 종료에 사용할 수 있음)

또 다른 옵션은 플래그 변수를 다음과 같이 설정하는 것입니다.Boolean기준에 따라 값을 변경합니다.

Dim count as Integer 
Dim flag as Boolean

flag = True

While flag
    count = count + 1 

    If count = 10 Then
        'Set the flag to false         '
        flag = false
    End If 
Wend

가장 좋은 방법은 다음을 사용하는 것입니다.And당신의 조항While진술

Dim count as Integer
count =0
While True And count <= 10
    count=count+1
    Debug.Print(count)
Wend

루프에서 'While' 테스트 매개 변수를 설정하여 루프가 다음 반복에서 종료되도록 하는 것은 어떻습니까?예를 들면...

OS = 0
While OS <> 1000 
OS = OS + 1 
If OS = 500 Then OS = 1000 
Wend

전혀 무의미한 예지만 원칙을 보여줍니다

언급URL : https://stackoverflow.com/questions/12200834/break-out-of-a-while-wend-loop