Ši pamoka parodys, kaip naudoti teiginį „Nieko“ VBA
VBA Pareiškimas „Ar nieko“ naudoja VBA „Is“ operatorių ir patikrina, ar objektas priskirtas objekto kintamajam.
123456 | Antrasis patikrinimo objektasDim rng kaip diapazonasJei rng nieko nėra, tada„Msgbox“ diapazonas nepriskirtasPabaiga JeiPabaiga Sub |
Taip pat galime naudoti „Not with Is Nothing“ su teiginiu „If“, kad įsitikintume, ar diapazonas buvo priskirtas mūsų deklaruojamam diapazono kintamajam, ir tada paleiskite kodą, kurį norime paleisti, jei tas kintamasis buvo priskirtas.
1234567 | Sub CheckAssignedObjectDim rng kaip diapazonasNustatyti rng = Diapazonas („A1: A6“)Jei ne rng, tai nieko'' padaryk čia kodąPabaiga JeiPabaiga Sub |
Mes galime naudoti teiginį „Nieko“ bet kokio tipo objektams. Tai gali būti labai naudinga užkertant kelią mūsų kodo klaidoms, kai objektas gali būti nepriskirtas objekto kintamajam.
Pavyzdžiui, galime naudoti darbalapio kintamąjį ir priskirti jį aktyviam lapui. Jei tai padarysime sėkmingai, tame lape galime pasirinkti A2.
1234567 | Antrasis patikrinimo darbo lapasObjektasPritemdyti ws kaip darbalapįNustatykite ws = ActiveSheetJei ne ws, tai niekows.Range („A2“). PasirinkitePabaiga JeiPabaiga Sub |
Aukščiau esančiame kode bus pasirinktas langelis A2. Jei pašalintume eilutę "Nustatykite ws = ActiveSheet“, Tada„ If “teiginys apeis šią kodo eilutę ir langelis A2 nebus pasirinktas.
„Is Nothing“ taip pat gali būti naudojamas kitose „Microsoft Office“ programose, tokiose kaip „PowerPoint“, „Outlook“, „Access“ ir „Word“. Šis kodas patikrina, ar dokumento objektas priskirtas „Active Word“ dokumentui.
123456789 | Antrasis patikrinimo dokumentasObjectDim wdDoc kaip dokumentasNustatykite wdDoc = ActiveDocumentJei „wdDoc“ yra niekas, tada„MsgBox“ dokumentas nepriskirtasKitas„MsgBox“ priskirtas dokumentasPabaiga JeiPabaiga Sub |