Ši pamoka išmokys jus, kaip iškviesti funkciją iš papildomos procedūros VBA.
Kai sukuriate funkciją VBA, galite naudoti šią funkciją kaip UDF (vartotojo apibrėžta funkcija) savo „Excel“ darbaknygėje arba iškviesti ją pagal papildomą procedūrą.
Funkcijos iškvietimas iš papildomos procedūros
Sukūrę funkciją, galite ją iškviesti iš bet kurios kitos savo kodo vietos, naudodami funkcijai iškviesti taikydami papildomą procedūrą.
Apsvarstykite toliau nurodytą funkciją:
| 123 | Funkcija GetValue () kaip sveikasis skaičius„GetValue“ = 50Pabaigos funkcija |
Kadangi funkcijos grąžina vertę, norėdami iškviesti funkciją, mes turime kažką perduoti. Tokiu atveju reikšmę perduosime kintamajam:
| 123456789 | Antrinės bandymo vertės ()Dim intVal As Integer“paleiskite funkciją„ GetValue “intVal = „GetValue“ ()“ir parodykite vertę„MsgBox intVal“Pabaiga Sub |
Funkcijos iškvietimas naudojant parametrus
Jei funkcija turi parametrus, turėsite perduoti šiuos parametrus iš papildomos procedūros funkcijai, kad susigrąžintumėte teisingą vertę.
| 123 | Funkcija „GetValue“ (intA kaip sveikasis skaičius) kaip sveikasis skaičius„GetValue“ = intA * 5Pabaigos funkcija |
Norėdami iškviesti šią funkciją, galime atlikti šią papildomą procedūrą.
| 123 | Antrinės bandymo vertės ()„MsgBox GetValue“ (10)Pabaiga Sub |
Ši papildoma procedūra funkcijai nusiųstų 10 reikšmę, o tai savo ruožtu padaugintų šią reikšmę iš 5 ir grąžintų reikšmę 50 į papildomą procedūrą.
