Trong VBA, bạn có thể thoát For Loop bằng cách sử dụng Thoát cho chỉ huy.
| 1 | Thoát cho |
Khi việc thực thi mã đến Thoát cho, nó sẽ thoát khỏi vòng lặp For 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 Do, hãy nhấp vào liên kết này: VBA Exit Loop
Thoát khỏi vòng lặp For khi một điều kiện được đáp ứng
Bạn sẽ thấy trên ví dụ cách thoát khỏi vòng lặp For 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 số 5, chúng ta muốn thoát khỏi vòng lặp và trả về một hộp thông báo. Đây là mã:
| 123456789 | Dim i As IntegerĐối với i = 1 đến 10Nếu tôi = 5 thìThoát choKết thúc nếuTiếp theo tôiMsgBox "Giá trị là" & i |
Đầu tiên, chúng tôi nhập Vòng lặp For nếu giá trị của tôi nhỏ hơn 10:
| 123 | Đối với i = 1 đến 10Tiếp theo tôi |
Sau đó, chúng ta kiểm tra xem giá trị của i có bằng 5 hay không bằng cách sử dụng lệnh If. Nếu giá trị là 5, chúng ta thoát khỏi vòng lặp For và chuyển đến dòng đầu tiên sau vòng lặp:
| 12345 | Nếu tôi = 5 thìThoát choKết thúc nếu |
Nếu điều kiện không được đáp ứng, câu lệnh sau sẽ tăng i lên 1 và lại nhập vào vòng lặp For:
| 1 | Tiếp theo tôi |
Dòng đầu tiên của mã sẽ được thực thi sau khi thoát khỏi vòng lặp For 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ế độ gỡ lỗi, bạn sẽ thấy rằng nó sẽ đi qua vòng lặp 5 lần. Trong 5NS lặp lại, giá trị của biến i trở thành 5 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 For đã được thoát. Sau đó, cửa sổ bật lên MsgBox với giá trị là i:
Hình ảnh 1. Ví dụ về Exit For Loop
