Acest tutorial va arăta cum să utilizați declarația Is Nothing în VBA
VBA Declarația Is Nothing folosește operatorul VBA „Is” și verifică dacă un obiect a fost atribuit unei variabile de obiect.
| 123456 | Sub CheckObjectDim rng ca RangeDacă rng Is Nothing atunciMesaj "Interval neatribuit"End IfSfârșitul Sub |
Putem folosi, de asemenea, Not with Is Nothing cu o instrucțiune If pentru a ne asigura că un Range a fost atribuit variabilei de interval pe care am declarat-o și apoi vom rula codul pe care dorim să-l rulăm dacă acea variabilă a fost atribuită.
| 1234567 | Sub CheckAssignedObjectDim rng ca RangeSetați rng = Range ("A1: A6")If Not rng Is Nothing atunci'' faceți ceva cod aiciEnd IfSfârșitul Sub |
Putem folosi declarația Is Nothing pentru orice tip de obiect. Poate fi extrem de util în prevenirea erorilor din codul nostru, în cazul în care un obiect ar putea să nu fie atribuit unei variabile de obiect.
De exemplu, putem folosi o variabilă a foii de lucru și o putem atribui foii active. Dacă facem acest lucru cu succes, atunci putem selecta A2 în foaia respectivă.
| 1234567 | Sub CheckWorksheetObjectDim ws ca Foaie de lucruSetați ws = ActiveSheetIf Not ws Is Nothing atunciws.Range („A2”). SelectațiEnd IfSfârșitul Sub |
În codul de mai sus, celula A2 va fi selectată. Dacă ar fi să eliminăm linia „Setați ws = ActiveSheet„, Atunci instrucțiunea If ar ocoli acea linie de cod și celula A2 nu ar fi selectată.
Is Nothing poate fi utilizat și în alte aplicații Microsoft Office, cum ar fi PowerPoint, Outlook, Access și Word. Următorul cod verifică dacă Obiectul document a fost atribuit documentului Active Word.
| 123456789 | Sub CheckDocumentObjectDim wdDoc ca documentSetați wdDoc = ActiveDocumentDacă wdDoc nu este nimic atunciMsgBox „Documentul nu a fost atribuit”AltfelMsgBox „Document atribuit”End IfSfârșitul Sub |
