W VBA możesz wyjść z pętli Do za pomocą Wyjście Wykonaj Komenda.
1 | Wyjście Wykonaj |
Kiedy wykonanie kodu dojdzie do Wyjście Wykonaj, kod wyjdzie z pętli Do i przejdzie do pierwszego wiersza po pętli.
Jeśli chcesz dowiedzieć się, jak wyjść z pętli For, kliknij ten link: VBA Exit For
Wyjdź z pętli, gdy warunek zostanie spełniony
W poniższym przykładzie zobaczysz, jak wyjść z pętli Do po spełnieniu określonego warunku. Zapętlimy i zwiększymy wartość zmiennej io 1 w każdej iteracji. Jeśli chodzi o 6, chcemy wyjść z pętli i zwrócić okno komunikatu. Oto kod:
1234567891011 | Dim i jako liczba całkowitaCzy póki ja < 10ja = ja + 1Jeśli i = 6 WtedyWyjście WykonajZakończ, jeśliPętlaMsgBox "Wartość to " & i |
Najpierw wchodzimy do pętli Do, jeśli wartość i jest mniejsza niż 10:
123 | Czy póki ja < 10Pętla |
W treści pętli zwiększamy wartość i o 1:
1 | ja = ja + 1 |
Następnie sprawdzamy, czy wartość i jest równa 6, używając polecenia If. Jeśli wartość wynosi 6, wychodzimy z pętli Do i przechodzimy do pierwszego wiersza po pętli:
123 | Jeśli i = 6 WtedyWyjście WykonajZakończ, jeśli |
Pierwszy wiersz kodu, który zostanie wykonany po wyjściu z pętli Do, to okno komunikatu o wartości i:
1 | MsgBox "Wartość to " & i |
Jeśli wykonasz ten kod w Tryb debugowania, zobaczysz, że przejdzie przez pętlę 6 razy. W 6NS iteracji, wartość zmiennej i wynosi 6, a kod jest wprowadzany w treści If. Teraz ciało pętli Do jest zakończone. Następnie wyskakuje MsgBox z wartością i: