Pateikia Bulio logikos reikšmę, nurodančią, ar pasirinktinis variantoargumentas perduotas į procedūra.
Sintaksė
IsMissing( argname )
Būtinas argname argumentas apima pasirinktinio varianto procedūros argumento pavadinimą.
Pastabos
Naudokite funkciją IsMissing , kad aptiktumėte, ar iškviečiant procedūrą buvo pateikti pasirinktiniai varianto argumentai. IsMissing pateikia True (teisinga ), jei nurodytam argumentui nebuvo perduota jokia reikšmė; kitu atveju ji grąžina False. Jei IsMissing grąžina True argumentui, trūkstamo argumento naudojimas kitame kode gali sukelti vartotojo apibrėžtą klaidą. Jei Argumente ParamArray naudojama IsMissing, ji visada pateikia False. Norėdami aptikti tuščią ParamArray, patikrinkite, ar masyvo viršutinė riba yra mažesnė už apatinę.
Pastaba: IsMissing neveikia paprastuose duomenų tipuose (pvz., sveikojo skaičiaus arba dvigubo skaičiaus), nes, skirtingai nei variantai, jie neturi parinkties "trūksta" žymės bito. Todėl įvestų pasirinktinių argumentų sintaksė leidžia nurodyti numatytąją reikšmę. Jei argumentas praleidžiamas, kai procedūra iškviečiama, argumentas turės šią numatytąją reikšmę, kaip toliau pateiktame pavyzdyje:
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Sub MySub(Optional MyVar As String = "specialvalue")
If MyVar = "specialvalue" Then
' MyVar was omitted.
Else
...
End Sub
Daugeliu atvejų galite praleisti If MyVar testą visiškai nustatydami numatytąją reikšmę lygią reikšmei, kurią norite MyVar turėti, jei vartotojas jos nenurodo iškviečiant funkciją. Dėl to kodas yra glaustesnis ir efektyvesnis.
Pavyzdys
Šiame pavyzdyje naudojama funkcija IsMissing , norint patikrinti, ar pasirinktinis argumentas perduotas vartotojo nustatytai procedūrai. Atkreipkite dėmesį, kad pasirinktiniai argumentai dabar gali turėti numatytųjų reikšmių ir tipų, išskyrus Variantas.
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
