Tento tutoriál vás naučí, ako zavolať čiastkový postup z iného čiastkového postupu vo VBA
Je veľmi užitočné napísať kód, ktorý je možné použiť opakovane a je volaný z viacerých čiastkových procedúr vo vašom projekte - môže to ušetriť obrovské množstvo času a kód VBA je oveľa efektívnejší.
Spustenie čiastkového postupu z iného čiastkového postupu
Zvážte 3 nižšie uvedené postupy:
| 1234 | Drobný test rutiny ()RunRoutine1RunRoutine2Koniec pod |
| 123 | Sub RunRoutine1 ()MsgBox „Dobré ráno“Koniec pod |
| 123 | Sub RunRoutine2 ()MsgBox „Dnešný dátum je“ a formát (dátum, „mm/dd/rrrr“)Koniec pod |
Ak spustíme čiastkový postup - TestRoutine - vyvolá RunRoutine1 a RunRoutine2 a zobrazia sa 2 polia so správami.
Počet čiastkových procedúr, ktoré môžete volať z inej čiastkovej procedúry, nie je obmedzený.
Použitie vyhlásenia o hovore
Na uľahčenie čítania kódu môžete použiť aj vyhlásenie o hovore pred názvom postupu. Nemá to však žiadny vplyv na spôsob spustenia alebo uloženia kódu.
| 1234 | Drobný test rutiny ()Zavolajte RunRoutine1Zavolajte RunRoutine2Koniec pod |
Volanie Sub s argumentmi
Je tiež možné zavolať sub s argumentmi
| 1234 | Drobný test rutiny ()RunRoutine1 („Melanie“)RunRoutine2 („Majte krásny deň“)Koniec pod |
| 123 | Sub RunRoutine1 (strName ako reťazec)MsgBox „Dobré ráno“ & „& strNameKoniec pod |
| 123 | Sub RunRoutine2 (strMessage ako reťazec)MsgBox „Dnešný dátum je“ a formát (dátum, „mm/dd/rrrr“) & VbCrLf & strMessageKoniec pod |
Volanie Sub s pomenovanými argumentmi
Ak pomenujete svoje argumenty, nemusíte ich odovzdávať v rovnakom poradí svojim čiastkovým rutinám.
| 123 | Drobný test rutiny ()RunRoutine1 strGreeting: = "Ako sa máš?", StrName: = "Melanie"Koniec pod |
| 123 | Sub RunRoutine1 (strName ako reťazec, strGreeting ako reťazecMsgBox „Dobré ráno“ & „& strName & vbCrLf & str pozdravKoniec pod |
