Denne vejledning viser, hvordan du bruger Is Nothing -sætningen i VBA
VBA Er Intet udsagn bruger VBA "Is" -operatoren og kontrollerer, om et objekt er blevet tildelt en objektvariabel.
123456 | Sub CheckObjectDim rng som RangeHvis rng er ingenting såMsgbox "Område ikke tildelt"Afslut HvisAfslut Sub |
Vi kan også bruge Ikke med er ingenting med en If -sætning for at sikre, at et område er blevet tildelt den variabel, vi erklærede, og derefter køre den kode, som vi ønsker at køre, hvis variablen er blevet tildelt.
1234567 | Sub CheckAssignedObjectDim rng som RangeIndstil rng = Range ("A1: A6")Hvis ikke rng er ingenting så'' lav noget kode herAfslut HvisAfslut Sub |
Vi kan bruge erklæringen Er ingenting til enhver form for objekt. Det kan være yderst nyttigt til at forhindre fejl i vores kode, hvor et objekt muligvis ikke er tildelt en objektvariabel.
For eksempel kan vi bruge en regnearksvariabel og tildele den til det aktive ark. Hvis vi gør dette med succes, kan vi vælge A2 i det ark.
1234567 | Sub CheckWorksheetObjectDim ws som regnearkIndstil ws = ActiveSheetHvis ikke ws er ingenting såws.Range ("A2"). VælgAfslut HvisAfslut Sub |
I koden ovenfor vælges cellen A2. Hvis vi skulle fjerne linjen “Indstil ws = ActiveSheet“, Så ville If -sætningen omgå denne kodelinje, og celle A2 ville ikke blive valgt.
Er Intet kan også bruges i andre Microsoft Office -applikationer såsom PowerPoint, Outlook, Access og Word. Følgende kode kontrollerer, om dokumentobjektet er tildelt Active Word -dokumentet.
123456789 | Sub CheckDocumentObjectDim wdDoc som dokumentIndstil wdDoc = ActiveDocumentHvis wdDoc ikke er nogetMsgBox "Dokument ikke tildelt"AndetMsgBox "Dokument tildelt"Afslut HvisAfslut Sub |