VBA Do Until Loop - Przykłady krok po kroku użycia Do Until w VBA

Spisie treści

Co to jest robić do pętli w VBA Excel?

Co to jest robić do pętli w VBA Excel?

W VBA Do Until Loop musimy zdefiniować kryteria po instrukcji aż do momentu, w którym chcemy zatrzymać pętlę, a instrukcja end jest samą pętlą. Więc jeśli warunek jest FALSE, będzie kontynuował wykonywanie instrukcji wewnątrz pętli, ale jeśli warunek będzie od razu TRUE, zakończy polecenie Do Until.

Jak same słowa mówią, że aby wykonać jakieś zadanie, dopóki kryterium nie zostanie osiągnięte, Wykonuj, dopóki pętla nie zostanie użyta w prawie wszystkich językach programowania, w VBA również czasami używamy pętli Do aż do. Pętla Do Until oznacza robienie czegoś, dopóki warunek nie stanie się PRAWDZIWY. To jest jak funkcja logiczna, która działa w oparciu o PRAWDA lub FAŁSZ.

Jest to przeciwieństwo pętli Do While, w której Do while uruchamia pętle, o ile warunek ma wartość TRUE.

Składnia

Pętla Do Until ma dwa rodzaje składni.

Składnia # 1

Wykonaj pętlę do (warunek) (wykonaj jakieś zadanie)

Składnia # 2

Wykonaj (wykonaj jakieś zadanie) pętla do (warunek)

Oba wyglądają bardzo podobnie i jest tam jedno proste rozróżnienie.

W pierwszej składni pętla „Do Until” najpierw sprawdza warunek i uzyskuje warunek. Wynik jest PRAWDA lub FAŁSZ. Jeśli warunek jest FALSE, wykona kod i wykona określone zadanie, a jeśli warunek jest TRUE, zakończy pętlę.

W drugiej składni, pętli „Do”, najpierw wykona zadanie cod, a następnie sprawdzi, czy warunek jest PRAWDZIWY czy FAŁSZ. Jeśli warunek jest FALSE, ponownie wróci i wykona to samo zadanie. Jeśli warunek jest PRAWDZIWY, to natychmiast opuści pętlę.

Przykład

Wiem, że nie jest łatwo zrozumieć cokolwiek w części teoretycznej, ale nie ma się czym martwić. Podamy proste przykłady, aby zrozumieć pętlę. Czytaj. Aby rozpocząć naukę, wykonajmy zadanie wstawienia pierwszych 10 numerów seryjnych z komórki A1 do A10.

Wykonaj poniższe kroki, aby zastosować pętlę „Do Until”.

Krok 1: Najpierw utwórz nazwę makra, aby rozpocząć podprocedurę.

Kod:

Sub Do_Until_Example1 () End Sub

Krok 2: zdefiniuj zmienną jako „długą”. Zdefiniowałem „x” jako długi typ danych.

Dim x as long

Krok 3: Teraz wpisz słowo „Do aż”.

Rób dopóki

Krok 4: Po uruchomieniu nazwy pętli wprowadź warunek jako „x = 11”.

Do x = 11

x = 11 to test logiczny, który zastosowaliśmy. Więc ta linia mówi, że należy uruchomić pętlę, aż x będzie równe 11.

Krok 5: Zastosuj właściwość CELLS i wstawmy numery seryjne od 1 do 10.

Komórki (x, 1). Wartość = x

Uwaga: tutaj wspomnieliśmy, że „x” zaczyna się od 1, więc na początku wartość x jest równa 1. Gdziekolwiek „x” jest równe 1.

Krok 6: Teraz zamknij pętlę, wpisując słowo „LOOP”.

Sub Do_Until_Example1 () Dim x As Long Do aż x = 11 Cells (x, 1). Wartość = x Pętla

Napis końcowy

Ok, skończyliśmy z kodowaniem, teraz przetestujemy kody linijka po linijce, aby lepiej zrozumieć pętlę.

Aby uruchomić wiersz po kodzie, najpierw naciśnij klawisz F8.

Najpierw podświetli nazwę makra kolorem żółtym.

Kiedy widzisz żółtą linię, oznacza to, że nie zostanie to wykonane, jeśli naciśniesz klawisz F8 jeszcze raz.

Teraz naciśnij klawisz F8 jeszcze raz, żółta linia przejdzie do Do Until Loop.

Teraz, aby zrozumieć pętlę, umieść kursor na zmiennej „x” i zobacz wartość zmiennej „x”.

A więc x = 0. Ponieważ podświetlona linia jest pierwszą linią w pętli, więc wartość „x” wynosi zero, więc ponownie naciśnij klawisz F8 i zobacz wartość „x”. Przed tym zakończeniem kod działa i przypisuje wartość „x” jako 1.

Teraz ponownie uruchom pętlę, naciskając klawisz F8. Zobacz wartość „x”.

Teraz wartość „x” jest wyświetlana jako 1. Aby mieć wartość przyrostową zmiennej „x”, musimy ponownie przypisać wartość zmiennej „x” na x = x + 1 wewnątrz pętli.

Teraz naciśnij klawisz F8 jeszcze raz, a powinniśmy otrzymać wartość 1 w komórce A1.

Teraz ponownie naciśnij klawisz F8 i zobacz, jaka jest wartość „x”.

Wartość zmiennej „x” wynosi teraz 2. Tak więc nasz warunek mówi, że należy uruchamiać pętlę, dopóki warunek nie stanie się PRAWDZIWY, więc nasza pętla będzie działać, aż wartość „x” osiągnie wartość 11.

Naciśnij klawisz F8 jeszcze raz. Wróci do linii pętli „Do Until”.

Naciśnij klawisz F8 jeszcze dwa razy, a otrzymamy wartość 2 w komórce A2.

Ponownie naciśnij klawisz F8, a wartość „x” wyniesie teraz 3.

Ponownie naciśnij klawisz F8, aby ponownie przejść do pętli.

W ten sposób ta pętla będzie ponownie wykonywała zadanie, aż wartość „x” osiągnie wartość 11. Teraz wykonałem pętlę, aż wartość „x” osiągnie wartość 11.