Daje Bulovu vrednost koja ukazuje na to da li je opcionalni argument Variant prosleđen proceduri.
Sintaksa
IsMissing(argname)
Potrebni argument argname sadrži ime opcionalnog argumenta Varijanta procedure.
Napomene
Koristite funkciju IsMissing da biste otkrili da li su prilikom pozivanja procedure obezbeđeni opcionalni argumenti Variant . IsMissing daje vrednost "True " ako navedena vrednost nije prosleđena; u suprotnom, funkcija daje vrednost False. Ako IsMissing daje vrednost True za argument, korišćenje argumenta koji nedostaje u drugom kodu može da dovede do korisnički definisane greške. Ako se IsMissing koristi u argumentu ParamArray , uvek daje vrednost False. Da biste otkrili prazan ParamArray, testirajte da li je gornja granica niza manja od donje granice.
Napomena
IsMissing ne funkcioniše na jednostavnim tipovima podataka (kao što su Ceo broj ili Dvostruki) jer, za razliku od varijanti, oni nemaju odredbu za bit zastavice koja nedostaje. Zbog toga vam sintaksa za otkucane opcionalne argumente omogućava da navedete podrazumevanu vrednost. Ako se argument izostavi kada se poziva procedura, onda će argument imati ovu podrazumevanu vrednost, kao u dolenavedenom primeru:
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Sub MySub(Optional MyVar As String = "specialvalue")
If MyVar = "specialvalue" Then
' MyVar was omitted.
Else
...
End Sub
U mnogim slučajevima možete potpuno da izostavite If MyVar test tako što ćete podesiti podrazumevanu vrednost tako što ćete podesiti da bude jednaka vrednosti koju želite MyVar da sadrži, ako je korisnik izostavi u pozivu funkcije. To čini kôd konciznijim i efikasnijim.
Primer
Ovaj primer koristi funkciju IsMissing za proveru da li je opcionalni argument prosleđen korisnički definisanoj proceduri. Imajte na umu da opcionalni argumenti sada mogu da imaju podrazumevane vrednosti i tipove koji nisu varijantni.
Dim ReturnValue
' The following statements call the user-defined
' function procedure.
ReturnValue = ReturnTwice() ' Returns Null.
ReturnValue = ReturnTwice(2) ' Returns 4.
' Function procedure definition.
Function ReturnTwice(Optional A)
If IsMissing(A) Then
' If argument is missing, return a Null.
ReturnTwice = Null
Else
' If argument is present, return twice the value.
ReturnTwice = A * 2
End If
End Function