Wyrwij się z While… Wend loop

Używam pętli While ... Wend języka 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

Nie chcę używać warunku takiego jak `While count <= 10 ... Wend

While/ WendPętla może być zakończony dopiero przedwcześnie z GOTOlub wychodząc z zewnętrznego bloku ( Exit sub/ functionlub innego exitable pętli)

DoZamiast tego zmień na pętlę:

Do While True
    count = count + 1

    If count = 10 Then
        Exit Do
    End If
Loop

Lub do zapętlenia określoną liczbę razy:

for count = 1 to 10
   msgbox count
next

( Exit Formożna użyć powyżej, aby wyjść przedwcześnie)

Inną opcją byłoby ustawienie zmiennej flag jako a, Booleana następnie zmiana tej wartości na podstawie kryteriów.

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

Najlepszym sposobem jest użycie Andklauzuli w Whileoświadczeniu

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