See õpetus näitab, kuidas kasutada lauset Is Nothing VBA -s
VBA Kas pole midagi avaldust kasutab VBA “Is” operaatorit ja kontrollib, kas objekt on muutujale määratud.
| 123456 | Alamkontrolli objektDim rng kui vahemikKui rng pole midagi, siisMsgbox "Vahemikku pole määratud"Lõpp KuiEnd Sub |
Samuti võime kasutada lauset Not with Is Nothing koos lausega If veendumaks, et meie deklareeritud vahemiku muutujale on määratud vahemik, ja käivitada seejärel kood, mida soovime käivitada, kui see muutuja on määratud.
| 1234567 | AlamkontrollAssignedObjectDim rng kui vahemikMäära rng = vahemik ("A1: A6")Kui mitte rng pole midagi, siis'' tee siia mingi koodLõpp KuiEnd Sub |
Me võime kasutada lauset Is Nothing mis tahes tüüpi objektide jaoks. See võib olla äärmiselt kasulik meie koodi vigade ärahoidmisel, kui objekti ei pruugi objekti muutujale määrata.
Näiteks võime kasutada töölehe muutujat ja määrata selle aktiivsele lehele. Kui me seda edukalt teeme, saame sellel lehel valida A2.
| 1234567 | Sub CheckWorksheetObjectDim ws töölehenaMäära ws = ActiveSheetKui ei, siis pole midagiws.Range ("A2"). ValigeLõpp KuiEnd Sub |
Ülaltoodud koodis valitakse lahter A2. Kui me eemaldame rea "Määra ws = ActiveSheet“, Siis lause If möödub sellest koodireast ja lahtrit A2 ei valita.
Kas midagi ei saa kasutada ka teistes Microsoft Office'i rakendustes, nagu PowerPoint, Outlook, Access ja Word. Järgmine kood kontrollib, kas dokumendiobjekt on aktiivsele Wordi dokumendile määratud.
| 123456789 | AlamkontrollDocumentObjectDim wdDoc dokumendinaMäära wdDoc = ActiveDocumentKui wdDoc pole midagi, siisMsgBox "Dokumenti pole määratud"MuiduMsgBox "Dokument on määratud"Lõpp KuiEnd Sub |
