Ovaj vodič će vas naučiti kako pozvati podproceduru iz druge podpostupke u VBA
Vrlo je korisno pisati kôd koji se može koristiti više puta i pozvati iz više potprocedura u vašem projektu - može uštedjeti ogromnu količinu vremena i učiniti VBA kod daleko učinkovitijim.
Pokretanje podpostupka iz drugog podpostupka
Razmotrite 3 podpostupka u nastavku:
1234 | Sub TestRoutine ()RunRoutine1RunRoutine2Kraj podm |
123 | Sub RunRoutine1 ()MsgBox "Dobro jutro"Kraj podm |
123 | Sub RunRoutine2 ()MsgBox "Današnji datum je" & Format (Datum, "mm/dd/gggg")Kraj podm |
Ako pokrenemo potproceduru - TestRoutine - ona će pozvati RunRoutine1 i RunRoutine2 i pojavit će se 2 okvira s porukama.
![](https://cdn.easyexcel.net/8802756/vba_call_run_sub_from_another_subroutine.png)
Ne postoji ograničenje broja podprocedura koje možete pozvati iz druge podpostupke.
Korištenje Izjave o pozivu
Također možete koristiti Izjavu o pozivu ispred naziva procedure kako biste olakšali čitanje koda. Međutim, nema nikakvog utjecaja na način izvođenja ili pohrane koda.
1234 | Sub TestRoutine ()Nazovite RunRoutine1Nazovite RunRoutine2Kraj podm |
![](https://cdn.easyexcel.net/8802756/vba_call_run_sub_from_another_subroutine_2.png)
Pozivanje podmornice s argumentima
Također je moguće pozvati pod -argument s argumentima
1234 | Sub TestRoutine ()RunRoutine1 ("Melanie")RunRoutine2 ("Želim vam lijep dan")Kraj podm |
123 | Sub RunRoutine1 (strName kao niz)MsgBox "Dobro jutro" & "& strNameKraj podm |
123 | Sub RunRoutine2 (strMessage kao niz)MsgBox "Današnji datum je" & Format (Date, "mm/dd/yyyy") & VbCrLf & strMessageKraj podm |
![](https://cdn.easyexcel.net/8802756/vba_call_run_sub_from_another_subroutine_3.png)
Pozivanje podmornice s imenovanim argumentima
Ako svoje argumente imenujete, ne morate ih prosljeđivati istim redoslijedom u svoje potprograme.
123 | Sub TestRoutine ()RunRoutine1 strGreeting: = "Kako si?", StrName: = "Melanie"Kraj podm |
123 | Sub RunRoutine1 (strName kao String, strGreeting kao stringMsgBox "Dobro jutro" & "& strName & vbCrLf & strGreetingKraj podm |
![](https://cdn.easyexcel.net/8802756/vba_call_run_sub_from_another_subroutine_4.png)
Vi ćete pomoći u razvoju web stranice, dijeljenje stranicu sa svojim prijateljima