Този урок ще покаже как да използвате израза Is Nothing във VBA
VBA Изказване е нищо използва VBA оператора „Is“ и проверява дали обект е присвоен на променлива на обект.
| 123456 | Sub CheckObjectЗатъмнете като обхватАко rng не е нищо тогаваMsgbox „Обхватът не е присвоен“Край АкоEnd Sub |
Можем също да използваме Not with Is Nothing с оператор If, за да се уверим, че Range е присвоен на променливата range, която декларирахме, и след това да изпълним кода, който искаме да изпълним, ако тази променлива е била присвоена.
| 1234567 | Sub CheckAssignedObjectЗатъмнете като обхватЗадайте rng = диапазон ("A1: A6")Ако не rng е нищо, тогава'' направи някакъв код тукКрай АкоEnd Sub |
Можем да използваме израза Is Nothing за всеки тип обект. Той може да бъде изключително полезен за предотвратяване на грешки в нашия код, когато обект може да не бъде присвоен на обектна променлива.
Например, можем да използваме променлива на работен лист и да я присвоим на активния лист. Ако направим това успешно, тогава можем да изберем A2 в този лист.
| 1234567 | Sub CheckWorksheetObjectDim ws като работен листЗадайте ws = ActiveSheetАко не, тогава няма нищоws.Range ("A2"). ИзберетеКрай АкоEnd Sub |
В горния код ще бъде избрана клетката A2. Ако трябва да премахнем реда „Задайте ws = ActiveSheet“, Тогава операторът If ще заобиколи този ред код и клетка A2 няма да бъде избрана.
Is Nothing може да се използва и в други приложения на Microsoft Office като PowerPoint, Outlook, Access и Word. Следният код проверява дали обектът документ е присвоен на активния документ на Word.
| 123456789 | Sub CheckDocumentObjectЗатъмнете wdDoc като документЗадайте wdDoc = ActiveDocumentАко wdDoc не е нищо тогаваMsgBox "Документът не е присвоен"ИначеMsgBox "Документът е присвоен"Край АкоEnd Sub |
