Hướng dẫn này sẽ trình bày cách sử dụng câu lệnh Is Nothing trong VBA
VBA Không có gì tuyên bố sử dụng Toán tử “Là” VBA và kiểm tra xem một đối tượng đã được gán cho một biến đối tượng.
| 123456 | Sub CheckObjectDim rng as RangeNếu rng Không có gì thìMsgbox "Phạm vi không được chỉ định"Kết thúc nếuKết thúc Sub |
Chúng ta cũng có thể sử dụng Not with Is Nothing với câu lệnh If để đảm bảo rằng một Phạm vi đã được gán cho biến phạm vi mà chúng tôi đã khai báo và sau đó chạy mã mà chúng tôi muốn chạy nếu biến đó đã được chỉ định.
| 1234567 | Sub CheckAssignedObjectDim rng as RangeĐặt rng = Range ("A1: A6")If Not rng Is Nothing thenlàm một số mã ở đâyKết thúc nếuKết thúc Sub |
Chúng ta có thể sử dụng câu lệnh Is Nothing cho bất kỳ loại đối tượng nào. Nó có thể cực kỳ hữu ích trong việc ngăn chặn các lỗi trong mã của chúng tôi, nơi một đối tượng có thể không được gán cho một biến đối tượng.
Ví dụ, chúng ta có thể sử dụng một biến trang tính và gán nó cho Trang tính Hoạt động. Nếu chúng ta làm điều này thành công, thì chúng ta có thể chọn A2 trong trang tính đó.
| 1234567 | Sub CheckWorksheetObjectLàm mờ ws dưới dạng Trang tínhĐặt ws = ActiveSheetNếu không phải là không có gì thìws.Range ("A2"). ChọnKết thúc nếuKết thúc Sub |
Trong đoạn mã trên, ô A2 sẽ được chọn. Nếu chúng ta xóa dòng “Đặt ws = ActiveSheet“, Thì câu lệnh If sẽ bỏ qua dòng mã đó và ô A2 sẽ không được chọn.
Không có gì cũng có thể được sử dụng trong các ứng dụng Microsoft Office khác như PowerPoint, Outlook, Access và Word. Đoạn mã sau sẽ kiểm tra xem liệu Đối tượng Tài liệu đã được gán cho Tài liệu Word Hoạt động hay chưa.
| 123456789 | Sub CheckDocumentObjectLàm mờ wdDoc dưới dạng Tài liệuĐặt wdDoc = ActiveDocumentNếu wdDoc là Không có gì thìMsgBox "Tài liệu không được chỉ định"KhácMsgBox "Tài liệu được chỉ định"Kết thúc nếuKết thúc Sub |
