Vòng lặp Do-While trong VBA

Vòng lặp Do-While trong VBA được sử dụng để lặp một phần của chương trình một vài lần khi điều kiện là True. Điều kiện có thể được kiểm tra ở đầu vòng lặp hoặc ở cuối vòng lặp.

Cú pháp: kiểm tra điều kiện ở cuối vòng lặp

Dưới đây là cú pháp của vòng lặp Do-While trong VBA với điều kiện được kiểm tra ở cuối vòng lặp.

TH này Tương tự như vòng lặp While-Wend, ngoại trừ Do-While thực hiện lệnh ít nhất một lần ngay cả khi điều kiện là False vì nó thực hiện lệnh trước khi kiểm tra điều kiện.

Do
   [statement 1]
   [statement 2]
   ...
   [statement l]
   [Exit Do]
   [statement m]
   ...
   [statement n]
Loop While condition

Ví dụ 1:

Sub doWhileExample1()
    Dim counter As Integer
    
    counter = 1
    Do
      MsgBox "Gia tri hien tai cua counter la: " & counter
      counter = counter + 1
    Loop While counter < 1
End Sub

Kết quả:

Gia tri hien tai cua counter la: 1

Cú pháp: kiểm tra điều kiện ở đầu vòng lặp

Dưới đây là cú pháp của vòng lặp Do-While trong VBA với điều kiện được kiểm tra ở đầu vòng lặp.

Do While condition
   [statement 1]
   [statement 2]
   ...
   [statement l]
   [Exit Do]
   [statement m]
   ...
   [statement n]
Loop

Ví dụ 2:

Sub doWhileExample2()
    Dim counter As Integer
    
    counter = 1
    Do While counter < 5
      MsgBox "Gia tri hien tai cua counter la: " & counter
      counter = counter + 1
    Loop
End Sub

Kết quả:

Gia tri hien tai cua counter la: 1
Gia tri hien tai cua counter la: 2
Gia tri hien tai cua counter la: 3
Gia tri hien tai cua counter la: 4