Trong VBA, bạn có thể thoát khỏi vòng lặp Do bằng cách sử dụng Thoát Do chỉ huy.
| 1 | Thoát Do |
Khi việc thực thi mã đến Thoát Do, mã sẽ thoát khỏi vòng lặp Do và tiếp tục với dòng đầu tiên sau vòng lặp.
Nếu bạn muốn tìm hiểu cách thoát khỏi vòng lặp For, hãy nhấp vào liên kết này: VBA Exit For
Thoát khỏi vòng lặp khi một điều kiện được đáp ứng
Bạn sẽ thấy trong ví dụ dưới đây cách thoát khỏi vòng lặp Do khi một điều kiện nhất định được đáp ứng. Chúng ta sẽ lặp và tăng giá trị của biến i lên 1 trong mỗi lần lặp. Khi nói đến 6, chúng tôi muốn thoát khỏi vòng lặp và trả về một hộp thông báo. Đây là mã:
| 1234567891011 | Dim i As IntegerLàm trong khi tôi <10i = i + 1Nếu tôi = 6 ThìThoát DoKết thúc nếuVòngMsgBox "Giá trị là" & i |
Đầu tiên, chúng ta nhập Do Loop nếu giá trị của i nhỏ hơn 10:
| 123 | Làm trong khi tôi <10Vòng |
Trong phần thân của vòng lặp, chúng ta tăng giá trị của i lên 1:
| 1 | i = i + 1 |
Sau đó, chúng ta kiểm tra xem giá trị của i có bằng 6 hay không bằng cách sử dụng lệnh If. Nếu giá trị là 6, chúng ta thoát khỏi vòng lặp Do và đi đến dòng đầu tiên sau vòng lặp:
| 123 | Nếu tôi = 6 ThìThoát DoKết thúc nếu |
Dòng đầu tiên của mã sẽ được thực thi sau khi thoát khỏi vòng lặp Do là hộp thông báo có giá trị là i:
| 1 | MsgBox "Giá trị là" & i |
Nếu bạn thực thi mã này trong Chế độ kiểm tra sửa lỗi, bạn sẽ thấy rằng nó sẽ đi qua vòng lặp 6 lần. Trong 6NS lặp lại, giá trị của biến i trở thành 6 và mã được nhập vào phần thân If. Bây giờ phần thân của vòng lặp Do đã được thoát. Sau đó, cửa sổ bật lên MsgBox với giá trị là i:
