Ez az oktatóanyag megtanítja Önt, hogyan hívjon meg egy al -eljárást a VBA egy másik al -eljárásából
Nagyon hasznos olyan kódot írni, amely ismétlődően használható, és a projekt több alprogramjából hívható le - óriási időt takaríthat meg, és sokkal hatékonyabbá teszi a VBA -kódot.
Egy alfolyamat futtatása egy másik al eljárásból
Tekintsük az alábbi 3 alfolyamatot:
| 1234 | Sub TestRutin ()RunRoutine1RunRoutine2End Sub |
| 123 | Sub RunRoutine1 ()MsgBox "Jó reggelt"End Sub |
| 123 | Sub RunRoutine2 ()MsgBox "A mai dátum" és formátum (dátum, "mm/dd/yyyy")End Sub |
Ha lefuttatjuk az al -eljárást - TestRoutine -, akkor a RunRoutine1 -et hívja, és a RunRoutine2 és 2 üzenetmezők jelennek meg.
Nincs korlátozva az al -eljárások száma, amelyeket más alrendszerekből hívhat le.
A hívásnyilatkozat használata
A híváskivonatot az eljárás neve előtt is használhatja, hogy megkönnyítse a kód olvasását. Ennek azonban semmilyen hatása nincs a kód futtatására vagy tárolására.
| 1234 | Sub TestRutin ()Hívja a RunRoutine1 -etHívja a RunRoutine2 -tEnd Sub |
Sub hívása érvekkel
Lehetőség van arra is, hogy érvekkel sub -t hívjunk
| 1234 | Sub TestRutin ()RunRoutine1 ("Melanie")RunRoutine2 ("Szép napot kívánok")End Sub |
| 123 | Sub RunRoutine1 (strName mint karakterlánc)MsgBox "Jó reggelt" & "& strNameEnd Sub |
| 123 | Sub RunRoutine2 (strMessage karakterláncként)MsgBox "A mai dátum" és formátum (dátum, "hh/nn/éééé") & VbCrLf & strMessageEnd Sub |
Nevezett érvekkel rendelkező sub hívása
Ha megnevezi érveit, nem kell ugyanabban a sorrendben továbbítania azokat az alrutinokhoz.
| 123 | Sub TestRutin ()RunRoutine1 strGreeting: = "Hogy vagy?", StrName: = "Melanie"End Sub |
| 123 | Sub RunRoutine1 (strName mint String, strGreeting mint stringMsgBox "Jó reggelt" & "& strName & vbCrLf & strGreetingEnd Sub |
