Denna handledning visar hur du använder Is Nothing -uttalandet i VBA
VBA Är ingenting uttalande använder VBA "Is" -operatören och kontrollerar att ett objekt har tilldelats en objektvariabel.
| 123456 | Sub CheckObjectDim rng som RangeOm rng är ingenting dåMsgbox "Område inte tilldelat"Avsluta omAvsluta Sub |
Vi kan också använda Not with Is Nothing with a If -sats för att se till att ett intervall har tilldelats intervallvariabeln som vi deklarerat och sedan köra koden som vi vill köra om variabeln har tilldelats.
| 1234567 | Sub CheckAssignedObjectDim rng som RangeStäll in rng = Range ("A1: A6")Om inte rng är ingenting då'' gör lite kod härAvsluta omAvsluta Sub |
Vi kan använda Is Nothing -satsen för någon typ av objekt. Det kan vara extremt användbart för att förhindra fel i vår kod där ett objekt kanske inte tilldelas en objektvariabel.
Till exempel kan vi använda en kalkylbladsvariabel och tilldela den till det aktiva bladet. Om vi gör detta framgångsrikt kan vi välja A2 i det bladet.
| 1234567 | Sub CheckWorksheetObjectDim ws som arbetsbladAnge ws = ActiveSheetOm inte ws är ingenting dåws.Range ("A2"). VäljAvsluta omAvsluta Sub |
I koden ovan väljs cellen A2. Om vi skulle ta bort raden "Ange ws = ActiveSheet”, Då skulle If -satsen kringgå den kodraden och cell A2 skulle inte väljas.
Is Nothing kan också användas i andra Microsoft Office -applikationer som PowerPoint, Outlook, Access och Word. Följande kod kontrollerar om dokumentobjektet har tilldelats Active Word -dokumentet.
| 123456789 | Sub CheckDocumentObjectDim wdDoc som dokumentStäll in wdDoc = ActiveDocumentOm wdDoc är ingenting dåMsgBox "Dokument inte tilldelat"AnnanMsgBox "Dokument tilldelat"Avsluta omAvsluta Sub |
