Pętla warunkowa Do Until Loop w VBA

Stronę tą wyświetlono już: 1057 razy

Pętla tego typu wykonuje operacje dopóki nie zostanie spełniony warunek. Oto przykład jej użycia:

Listing 1
  1. Dim k as Integer
  2. k = 0
  4. Do Until k < 10
  5. k = k + 1
  6. Loop

Istnieje też wersja pozwalająca na wykonanie jednokrotne kodu niezależnie od warunku:

Listing 2
  1. Dim k as Integer
  2. k = 0
  4. Do
  5. k = k + 1
  6. Loop Until k == 0 And k < 10

Można również przerwać pętlę w trakcie jej działania:

Listing 3
  1. Dim k as Integer
  2. k = 0
  4. Do
  5. k = k + 1
  6. If k = 0 Then
  7. Exit Do
  8. End If
  9. Loop Until k == 0 And k < 10

Komentarze