Vraća Booleovu vrijednost koja označava je li proceduri proslijeđen neobavezni argument Variant .
Sintaksa
IsMissing(argname)
Obavezni argument argname sadrži naziv neobaveznog argumenta procedure Variant .
Napomene
Pomoću funkcije IsMissing provjerite jesu li prilikom pozivanja procedure navedeni neobavezni argumenti Variant . IsMissing vraća True ako za navedeni argument nije proslijeđena nikakva vrijednost; U suprotnom vraća False. Ako IsMissing vrati vrijednost True za argument, korištenje argumenta koji nedostaje u drugom kodu može uzrokovati korisnički definiranu pogrešku. Ako se IsMissing koristi u argumentu ParamArray , uvijek vraća False. Da biste otkrili praznu vrijednost ParamArray, testirajte je li gornja granica polja manja od njegove donje granice.
Napomena
IsMissing ne funkcionira na jednostavnim vrstama podataka (kao što su Cijeli broj ili Dvostruko) jer, za razliku od varijanti, one nemaju odredbu o bitu zastavice koja "nedostaje". Zato vam sintaksa za upisane neobavezne argumente omogućuje navođenje zadane vrijednosti. Ako se argument izostavi prilikom pozivanja procedure, argument će imati sljedeću zadanu vrijednost, kao u primjeru ispod:
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
Sub MySub(Optional MyVar As String = "specialvalue")
If MyVar = "specialvalue" Then
' MyVar was omitted.
Else
...
End Sub
U mnogim slučajevima test možete u potpunosti izostaviti If MyVar tako da zadanu vrijednost postavite kao vrijednost koju želite MyVar sadržavati ako je korisnik izostavi u pozivu funkcije. To čini vaš kod sažetijim i učinkovitijim.
Primjer
U ovom primjeru funkcija IsMissing koristi se za provjeru je li korisnički definiranoj proceduri proslijeđen neobavezni argument. Imajte na umu da neobavezni argumenti sada mogu imati zadane vrijednosti i vrste osim vrijednosti Variant.
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