Bu eğitim size VBA'daki başka bir alt prosedürün içinden bir alt prosedürün nasıl çağrılacağını öğretecektir.
Tekrar tekrar kullanılabilen ve projenizdeki birden çok alt prosedürden çağrılan kod yazmak çok faydalıdır - çok büyük miktarda zaman kazandırabilir ve VBA kodunu çok daha verimli hale getirebilir.
Başka bir Alt Prosedürden bir Alt Prosedürü Çalıştırma
Aşağıdaki 3 Alt Prosedürü göz önünde bulundurun:
| 1234 | Alt Test Rutini()RunRoutine1RunRoutine2Alt Bitiş |
| 123 | Alt RunRoutine1()MsgBox "Günaydın"Alt Bitiş |
| 123 | Alt RunRoutine2()MsgBox "Bugünün tarihi " & Format(Tarih, "aa/gg/yyyy")Alt Bitiş |
Alt Prosedürü - TestRoutine'i çalıştırırsak - RunRoutine1 ve RunRoutine2'yi çağıracak ve 2 mesaj kutusu görünecektir.
Başka bir Alt Prosedürden arayabileceğiniz Alt Prosedürlerin sayısında bir sınırlama yoktur.
Çağrı Bildirimini Kullanma
Kodunuzun daha kolay okunmasını sağlamak için prosedür adının önündeki Çağrı Bildirimini de kullanabilirsiniz. Ancak, kodun nasıl çalıştırıldığı veya saklandığı üzerinde hiçbir etkisi yoktur.
| 1234 | Alt Test Rutini()RunRoutine1'i çağırınRunRoutine2'yi arayınAlt Bitiş |
Argümanlarla Sub Çağırma
Argümanlarla bir alt çağırmak da mümkündür
| 1234 | Alt Test Rutini()RunRoutine1 ("Melanie")RunRoutine2 ("İyi Günler")Alt Bitiş |
| 123 | Alt RunRoutine1(StrName as String)MsgBox "Günaydın" & " & strNameAlt Bitiş |
| 123 | Alt RunRoutine2(strMessage as String )MsgBox "Bugünün tarihi " & Format(Date, "aa/gg/yyyy") & VbCrLf & strMessageAlt Bitiş |
Adlandırılmış Bağımsız Değişkenlerle Alt Çağırma
Argümanlarınızı adlandırırsanız, bunları alt rutinlerinize aynı sırayla iletmeniz gerekmez.
| 123 | Alt Test Rutini()RunRoutine1 strGreeting:="Nasılsın?", strName:="Melanie"Alt Bitiş |
| 123 | Sub RunRoutine1(StrName as String, strGreeting as stringMsgBox "Günaydın" & " & strName & vbCrLf & strGreetingAlt Bitiş |
