Funkcija | Sub
Atšķirība starp a funkciju un a apakš iekšā Excel VBA ir tas, ka funkcija var atgriezt vērtību, bet apakšnodaļa to nevar. Funkcijas un apakšsadaļas kļūst ļoti noderīgas, palielinoties programmas lielumam.
Funkcija
Ja vēlaties, lai Excel VBA izpildītu uzdevumu, kas atgriež rezultātu, varat izmantot funkciju. Ievietojiet funkciju modulī (Visual Basic redaktorā noklikšķiniet uz Ievietot, Modulis). Piemēram, funkcija ar nosaukumu apgabals.
Funkciju apgabals (x kā dubultā, y kā dubultā) kā dubultā
Platība = x * g
Beigu funkcija
Paskaidrojums: Šai funkcijai ir divi argumenti (tipa Double) un atgriešanās veids (daļa pēc kā arī tipa Double). Jūs varat izmantot funkcijas nosaukumu (apgabals) savā kodā, lai norādītu, kuru rezultātu vēlaties atgriezt (šeit x * y).
Tagad jūs varat atsaukties uz šo funkciju (citiem vārdiem sakot, izsaukt šo funkciju) no citas vietas savā kodā, vienkārši izmantojot funkcijas nosaukumu un norādot vērtību katram argumentam.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
Dim z Kā dubultā
z = apgabals (3, 5) + 2
MsgBox z
Paskaidrojums: Funkcija atgriež vērtību, tāpēc šī vērtība ir jānoķer savā kodā. Šim nolūkam varat izmantot citu mainīgo (z). Pēc tam šim mainīgajam varat pievienot citu vērtību (ja vēlaties). Visbeidzot, parādiet vērtību, izmantojot MsgBox.
Rezultāts, noklikšķinot uz komandas pogas lapā:
Sub
Ja vēlaties, lai Excel VBA veiktu dažas darbības, varat izmantot apakšnodaļu. Ievietojiet apakšmoduli modulī (Visual Basic redaktorā noklikšķiniet uz Ievietot, Modulis). Piemēram, apakšsadaļa ar nosaukumu apgabals.
Apakšzona (x kā dubultā, y kā dubultā)
MsgBox x * y
Beigu apakš
Paskaidrojums: šai apakšpozīcijai ir divi argumenti (dubultā tipa). Tam nav atgriešanās veida! Jūs varat atsaukties uz šo apakšpunktu (izsaukt apakšpunktu) no citas vietas savā kodā, vienkārši izmantojot apakšnosaukuma nosaukumu un norādot vērtību katram argumentam.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindiņu:
3., 5. apgabals
Rezultāts, noklikšķinot uz komandas pogas lapā:
Vai varat redzēt atšķirību starp funkciju un apakšvienību? Funkcija atdeva vērtību 15. Šim rezultātam pievienojām vērtību 2 un parādījām gala rezultātu. Kad mēs piezvanījām apakšgrupai, mēs vairs nevarējām kontrolēt rezultātu (15), jo apakšnodaļa nevar atgriezt vērtību!
