Trong VBA, bạn có thể lập trình mã của mình để thoát khỏi Sub bất cứ khi nào gặp lỗi. Để làm điều này, hãy sử dụng Lỗi GoTo và Thoát Sub.
On Error Goto nói với VBA rằng khi gặp lỗi, hãy “Đi tới” một phần cụ thể trong mã của bạn. Bán tại:
| 1 | Về lỗi GoTo ErrorHandler |
Từ bên trong phần đó, bạn có thể yêu cầu VBA Thoát Sub để thoát khỏi thủ tục phụ:
| 12 | ErrorHandler:Thoát Sub |
Đọc tiếp, để xem những dòng mã này hoạt động…
Thoát khỏi phụ khi bị lỗi trong VBA
Trong ví dụ này, chúng tôi sẽ tạo ra một lỗi bằng cách chia cho 0:
| 1 | i = 5/0 |
Xem mã đầy đủ bên dưới. Khi VBA đọc lỗi, nó sẽ "truy cập" vào phần ErrorHandler của mã và thoát ra:
| 123456789101112131415 | Sub TestError ()Dim i As IntegerVề lỗi GoTo ErrorHandleri = 5/0'Làm điều gì đó với tôiMsgBox iThoát SubErrorHandler:MsgBox "Nếu lỗi, sau đó thoát khỏi Sub"Thoát SubKết thúc Sub |
Để chỉ định xử lý lỗi, trước tiên bạn cần khai báo Lỗi GoTo tuyên bố. Nó phải được khai báo ở đầu Sub:
| 1 | Về lỗi GoTo ErrorHandler |
Sau đó bạn cần khai báo mã xử lý lỗi. Nó thường ở cuối mã:
| 123 | ErrorHandler:MsgBox "Nếu lỗi, sau đó thoát khỏi Sub"Thoát Sub |
Chúng tôi thêm "Exit Sub" phía trên ErrorHandler vì chúng tôi chỉ muốn chạy mã ErrorHandler nếu có lỗi.
| 12345 | Thoát SubErrorHandler:MsgBox "Nếu lỗi, sau đó thoát khỏi Sub"Thoát SubKết thúc Sub |
Nếu bạn chạy Sub sẽ bị lỗi do chia cho không. Trong thời điểm đó, mã xử lý lỗi sẽ được thực thi. Hộp thông báo xuất hiện và Sub được thoát.
Hình ảnh 1. VBA khi lỗi thoát phụ
Nếu bạn muốn tìm hiểu cách kết thúc thực thi mã trong VBA, hãy nhấp vào liên kết này: VBA End
Nếu bạn muốn tìm hiểu cách thoát khỏi Sub hoặc Function, hãy nhấp vào liên kết này: VBA Exit Sub hoặc Function
