Ši pamoka išmokys jus, kaip iškviesti papildomą procedūrą iš kitos VBA papildomos procedūros
Labai naudinga rašyti kodą, kurį galima pakartotinai naudoti ir iškviesti iš kelių projekto procedūrų - tai gali sutaupyti labai daug laiko ir padaryti VBA kodą daug efektyvesnį.
Papildomos procedūros vykdymas iš kitos antrinės procedūros
Apsvarstykite 3 toliau nurodytas procedūras.
| 1234 | Antrinė bandymų tvarka ()„RunRoutine“ 1„RunRoutine2“Pabaiga Sub |
| 123 | Sub RunRoutine1 ()„MsgBox“ „Labas rytas“Pabaiga Sub |
| 123 | Sub RunRoutine2 ()„MsgBox“ „Šiandienos data yra“ ir formatas (data, „mm/dd/yyyy“)Pabaiga Sub |
Jei vykdysime antrinę procedūrą - „TestRoutine“ - ji iškvies „RunRoutine1“ ir pasirodys „RunRoutine2“ ir 2 pranešimų langeliai.
Papildomų procedūrų, kurias galite iškviesti iš kitos antrinės procedūros, skaičius neribojamas.
Skambučio pareiškimo naudojimas
Taip pat galite naudoti skambučio pareiškimą priešais procedūros pavadinimą, kad jūsų kodas būtų lengviau skaitomas. Tačiau tai neturi jokios įtakos kodo vykdymui ar saugojimui.
| 1234 | Antrinė bandymų tvarka ()Skambinkite „RunRoutine“ 1Skambinkite RunRoutine2Pabaiga Sub |
Skambinimas padaliniui su argumentais
Taip pat galima paskambinti antrininkui su argumentais
| 1234 | Antrinė bandymų tvarka ()„RunRoutine1“ („Melanie“)„RunRoutine2“ („Gražios dienos“)Pabaiga Sub |
| 123 | Sub RunRoutine1 (strName as String)„MsgBox“ „Labas rytas“ ir „& strNamePabaiga Sub |
| 123 | Sub RunRoutine2 (strMessage kaip eilutė)„MsgBox“ Šiandienos data yra „& Format (Data,„ mm/dd/yyyy “) & VbCrLf & strMessagePabaiga Sub |
Skambinimas padaliniui su pavadintais argumentais
Jei pavadinsite savo argumentus, jums nereikia jų perduoti ta pačia tvarka savo papildomoms procedūroms.
| 123 | Antrinė bandymų tvarka ()RunRoutine1 strGreeting: = "Kaip sekasi?", StrName: = "Melanie"Pabaiga Sub |
| 123 | Sub RunRoutine1 (strName kaip eilutė, strGreeting kaip eilutėMsgBox "Labas rytas" & "& strName & vbCrLf & strSveikinimasPabaiga Sub |
