Tento tutoriál předvede, jak použít příkaz Is Nothing ve VBA
VBA Není nic prohlášení používá operátor VBA „Is“ a kontroluje, zda je objekt přiřazen k proměnné objektu.
123456 | Sub CheckObjectDim rng as RangePokud rng je nic, pakMsgbox „Rozsah není přiřazen“Konec IfEnd Sub |
Můžeme také použít Not with Is Nothing s příkazem If, abychom se ujistili, že Range byl přiřazen deklarované proměnné range, a poté spustíme kód, který chceme spustit, pokud byla tato proměnná přiřazena.
1234567 | Sub CheckAssignedObjectDim rng as RangeNastavit rng = rozsah ("A1: A6")Pokud Not rng Is Nothing then'' Udělej tady nějaký kódKonec IfEnd Sub |
Příkaz Is Nothing můžeme použít pro jakýkoli typ objektu. Může to být velmi užitečné při prevenci chyb v našem kódu, kde objekt nemusí být přiřazen k proměnné objektu.
Můžeme například použít proměnnou listu a přiřadit ji k aktivnímu listu. Pokud to provedeme úspěšně, můžeme v tomto listu vybrat A2.
1234567 | Dílčí CheckWorksheetObjectDim ws jako pracovní listNastavit ws = ActiveSheetPokud Not ws Is Nothing thenws.Range ("A2"). VyberteKonec IfEnd Sub |
Ve výše uvedeném kódu bude vybrána buňka A2. Pokud bychom odstranili řádek „Nastavit ws = ActiveSheet“, Pak by příkaz If obešel tento řádek kódu a buňka A2 by nebyla vybrána.
Is Nothing lze použít také v jiných aplikacích Microsoft Office, jako jsou PowerPoint, Outlook, Access a Word. Následující kód zkontroluje, zda byl objekt dokumentu přiřazen dokumentu Active Word.
123456789 | Dílčí CheckDocumentObjectDim wdDoc jako dokumentNastavit wdDoc = ActiveDocumentPokud wdDoc není nic, pakMsgBox "Dokument nebyl přiřazen"JinýMsgBox "Dokument přiřazen"Konec IfEnd Sub |