Denne opplæringen vil demonstrere hvordan du bruker Is Nothing -setningen i VBA
VBA Er ingenting uttalelse bruker VBA "Is" -operatøren og sjekker om et objekt har blitt tilordnet en objektvariabel.
| 123456 | Sub CheckObjectDim rng som RangeHvis rng er ingenting daMsgbox "Område ikke tildelt"Slutt omSlutt Sub |
Vi kan også bruke Ikke med er ingenting med en If -setning for å sikre at et område er tilordnet områdevariabelen vi deklarerte og deretter kjøre koden som vi ønsker å kjøre hvis variabelen er tilordnet.
| 1234567 | Sub CheckAssignedObjectDim rng som RangeSett rng = Range ("A1: A6")Hvis ikke rng er ingenting da'' gjør noen kode herSlutt omSlutt Sub |
Vi kan bruke Is Nothing -setningen for alle typer objekter. Det kan være ekstremt nyttig for å forhindre feil i koden vår der et objekt kanskje ikke er tilordnet en objektvariabel.
For eksempel kan vi bruke en regnearksvariabel og tilordne den til det aktive arket. Hvis vi gjør dette vellykket, kan vi velge A2 i det arket.
| 1234567 | Sub CheckWorksheetObjectDim ws som regnearkSett ws = ActiveSheetHvis ikke ws er ingenting daws.Range ("A2"). VelgSlutt omSlutt Sub |
I koden ovenfor vil cellen A2 bli valgt. Hvis vi skulle fjerne linjen "Sett ws = ActiveSheet", Så vil If -setningen omgå den kodelinjen og celle A2 ikke ville bli valgt.
Er ingenting kan også brukes i andre Microsoft Office -applikasjoner som PowerPoint, Outlook, Access og Word. Følgende kode kontrollerer om dokumentobjektet er tilordnet Active Word -dokumentet.
| 123456789 | Sub CheckDocumentObjectDim wdDoc som dokumentSett wdDoc = ActiveDocumentHvis wdDoc er ingenting daMsgBox "Dokument ikke tilordnet"EllersMsgBox "Dokument tildelt"Slutt omSlutt Sub |
