Vòng lặp Do-Until 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à False. Đ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-Until trong VBA với điều kiện được kiểm tra ở cuối vòng lặp.
TH này Do-Util thực hiện lệnh ít nhất một lần ngay cả khi điều kiện là True 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 Until condition
Ví dụ 1:
Sub doUntilExample1()
Dim counter As Integer
counter = 1
Do
MsgBox "Gia tri hien tai cua counter la: " & counter
counter = counter + 1
Loop Until 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-Until trong VBA với điều kiện được kiểm tra ở đầu vòng lặp.
Do Until condition [statement 1] [statement 2] ... [statement l] [Exit Do] [statement m] ... [statement n] Loop
Ví dụ 2:
Sub doUntilExample2()
Dim counter As Integer
counter = 1
Do Until 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 Gia tri hien tai cua counter la: 5