Šī apmācība iemācīs jums izsaukt apakšprocedūru no citas apakšprocedūras VBA
Ir ļoti noderīgi rakstīt kodu, ko var izmantot atkārtoti un izsaukt no vairākām jūsu projekta apakšprocedūrām - tas var ietaupīt milzīgu laiku un padara VBA kodu daudz efektīvāku.
Apakšprocedūras palaišana no citas apakšprocedūras
Apsveriet 3 apakšprocedūras:
| 1234 | Apakšpārbaude ()RunRoutine1RunRoutine2Beigu apakš |
| 123 | Papildu izpildes kārtība1 ()MsgBox "Labrīt"Beigu apakš |
| 123 | Sub RunRoutine2 ()MsgBox "Šodienas datums ir" un formāts (datums, "mm/dd/gggg")Beigu apakš |
Ja mēs izpildām apakšprocedūru - TestRoutine - tā izsauks RunRoutine1 un parādīsies RunRoutine2 un 2 ziņojumu lodziņi.
Nav ierobežots to apakšprocedūru skaits, kuras varat izsaukt no citas apakšprocedūras.
Zvanu paziņojuma izmantošana
Zvanu paziņojumu varat izmantot arī procedūras nosaukuma priekšā, lai kodu būtu vieglāk nolasīt. Tomēr tas nekādi neietekmē koda palaišanu vai glabāšanu.
| 1234 | Apakšpārbaude ()Zvaniet RunRoutine1Zvaniet RunRoutine2Beigu apakš |
Zvanīšana apakšgrupai ar argumentiem
Ir iespējams arī piezvanīt apakšgrupai ar argumentiem
| 1234 | Apakšpārbaude ()RunRoutine1 ("Melānija")RunRoutine2 ("Jauku dienu")Beigu apakš |
| 123 | Sub RunRoutine1 (strName kā virkne)MsgBox "Labrīt" & "& strNameBeigu apakš |
| 123 | Sub RunRoutine2 (strMessage kā virkne)MsgBox "Šodienas datums ir" un formāts (datums, "mm/dd/gggg") & VbCrLf & strMessageBeigu apakš |
Zvanīšana apakšgrupai ar nosauktajiem argumentiem
Ja nosaucat savus argumentus, jums tie nav jānodod tādā pašā secībā apakšprogrammām.
| 123 | Apakšpārbaude ()RunRoutine1 strGreeting: = "Kā iet?", StrName: = "Melānija"Beigu apakš |
| 123 | Sub RunRoutine1 (strName kā String, strGreeting kā stringMsgBox "Labrīt" & "& strName & vbCrLf & strSveiciensBeigu apakš |
