Subroutines ve makrolar Visual Basic'den çalýþan.

Microsoft Excel sürüm 5.0 ve sonraki, Microsoft Visual Basic Applications alt yordamlar ve Microsoft Excel sürüm 4.0 makrolarý için bir Visual Basic yordamýndan Application.Run ve Application.ExecuteExcel4Macro yöntemleri kullanarak çalýþtýrabilirsiniz. Visual Basic alt yordamlar <a0>Arama</a0> yöntemiyle veya tek baþýna bir satýrda bir yordamýn adýný girerek de çalýþtýrabilirsiniz.

Bu makalede, Microsoft Excel'de Visual Basic'ten alt yordamlar ve Microsoft Excel sürüm 4.0 Makrolarý çalýþtýrmak için kullanabileceðiniz birkaç yöntem gösterilmektedir.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Application.Run yöntemi kullanmak için

Diðer Visual Basic yordamlarý, Visual Basic alt yordamlar veya Microsoft Excel sürüm 4.0 Makrolarý çalýþtýrmak için Application.Run yöntemini kullanabilirsiniz. Bir adlandýrýlmýþ baðýmsýz deðiþkeni Application.Run gerektirdiðine: çalýþtýrýlacak olan alt yordamý veya makro adý. (Ancak, diðer isteðe baðlý baðýmsýz deðiþkenleri de dahil olabilir.) Bu ad, (örneðin, "TestXLM") bir metin dizesi olabilir veya makronun adýna eþit olan bir deðiþken olabilir.

Örneðin, TestXLM adlý bir Microsoft Excel sürüm 4.0 makro çalýþtýrmak için <a0></a0>, bu yöntemi kullanabilirsiniz: "MacroToRun", "TestXLM için" set deðiþkeni varsa, bu yöntemi kullanabilirsiniz:

Application.ExecuteExcel4Macro yöntemi kullanmak için

Microsoft Excel sürüm 4.0 makrolarý veya diðer bir Visual Basic alt yordamlar Application.ExecuteExcel4Macro yöntemini de kullanabilirsiniz, ancak sözdizimi biraz farklýdýr. Bir makroyu çalýþtýracak veya yordam alt Application.ExecuteExcel4Macro kullanmak için aþaðýdaki örneklerde olduðu gibi <a1>Microsoft Excel sürüm 4.0 RUN()</a1> iþlevine de içermelidir: Not Application.ExecuteExcel4Macro kullandýðýnýzda, týrnak iþareti kullanmanýz gerekir. Örneðin, RUN() iþlevini kullanmak için <a0></a0>, baðýmsýz deðiþken adýný týrnak iþaretleri içine almanýz gerekir: dize dýþýna için týrnak iþaretleri eklediðinizde, tüm dize de týrnak içine alýnmalýdýr için her týrnak iþareti dize içinde randevu bir ek t?rnak i?areti da eklemelisiniz. Sonuç dizesi aþaðýdaki gibidir: RUN() iþlevi içinde bir deðiþken kullanan The Application.ExecuteExcel4Macro komutu, eþdeðer Application.Run yönteminden daha karmaþýktýr. Doðru olarak deðerlendirildiði komutu için makro dize olarak girilmiþ olmalý: bu komut olarak deðerlendirilir: , geçerli Microsoft Excel sürüm 4.0 makro komuttur.

Arama yöntemi kullanmak için

Arama yöntemi, Visual Basic alt yordamlar, ancak deðil, Microsoft Excel sürüm 4.0 Makrolarý çalýþtýrmak için kullanýlabilir. Örneðin, TestVBSub alt yordamý çalýþtýrmak için <a0></a0>, bu yöntem kullanýrsýnýz: bir deðiþken adý için <a1>Arama</a1> yöntemi geçirilemez unutmayýn. "SubToRun", "TestVBSub için" set deðiþkeni varsa, örneðin, TestVBSub alt yordamýný aþaðýdaki ile çalýþtýramazsýnýz:

Yalnýzca kullanarak bir alt yordam çalýþtýrma örnek adý

Bir Visual Basic Sub yordamýn adýný bir satýrda kendi girerek de çalýþtýrabilirsiniz. Örneðin, alt yordamýnýz TestVBSub alt yordamý çalýþtýrmak isterseniz, tek baþýna bir satýrda. Bu satýrda olan alt yordama çalýþtýrýldýðýnda, bu TestVBSub altyordam çalýþýr.

Örnek Visual Basic yordamlarý

Baþka bir Visual Basic yordamýndan, Visual Basic alt yordamý veya Microsoft Excel sürüm 4.0 makro çalýþtýrmak için kullanabileceðiniz en yaygýn yöntemleri gösteren altý alt yordamlar oluþturmak için aþaðýdaki adýmlarý izleyin:

1. Yeni bir çalýþma kitabýnda Macro1 ve Module1 adlý bir Visual Basic modülü olarak adlandýrýlan bir Microsoft Excel 4.0 makro sayfasý ekler.
   
   Bir Visual Basic modülü için Microsoft Excel 97 veya Microsoft Excel 98 eklemek için <a0></a0>, Visual Basic Düzenleyicisi'ni etkinleþtirmek için ALT + F11 tuþlarýna basýn. Týklatýn Ekle menüsünden modülü.
2. Makro sayfasýnda, aþaðýdaki makro girin:
   A1: TestXLM
   A2: <a1>UYARý</a1> ("TestXLM çalýþýr!") =
   A3: =RETURN()
   Bu makro, bir uyarý kutusu görüntüler.
3. Makro sayfasýnda, A1 hücresini seçin.
4. Ekle menüsünden Ad'ýn üzerine gelin ve sonra Tanýmla'yý týklatýn.
5. Aþaðýdaki bilgiler ad Tanýmla iletiþim kutusunda görüntülendiðini doðrulayýn:
   
   
   • Kitabýndaki adlar kutusunu TestXLM adýný içerir.
   • Baþvuru anlamýna gelir kutusunu içeren Macro1 =! $ A $ 1.
   • Komut seçeneði altýnda makro seçilir.
   Ayarlarý, yukarýda belirtilen týklatýn Tamam makronun adýný tanýmlamak için olduðunda.
6. Module1 içinde aþaðýdaki alt yordamlar girin:

         Option Explicit
   
         'The TestVBSub subroutine displays a message box: it is the Visual
         'Basic equivalent of the TestXLM macro shown above.
   
         Sub TestVBSub()
             MsgBox "TestVBSub works!"             'Displays a message box.
         End Sub
   
         'The Test1 Sub procedure makes use of the Application.Run method with
         'hard-coded macro/subroutine names.
   
         Sub Test1()
             Application.Run ("TestVBSub")
             Application.Run ("TestXLM")
         End Sub
   
         'The Test2 Sub procedure makes use of the Application.Run method with
         'variable macro/Sub procedure names.
   
         Sub Test2()
             Dim SubToRun As String, MacroToRun As String
             SubToRun = "TestVBSub"
             MacroToRun = "TestXLM"
             Application.Run (SubToRun)
             Application.Run (MacroToRun)
         End Sub
   
         'The Test3 Sub procedure makes use of the  
         'Application.ExecuteExcel4Macro
         'method with hard-coded macro/Sub procedure names.
   
         Sub Test3()
             'Note the extra quotation marks which are contained within the
             'RUN statements. These are required in order for the command to
             'evaluate properly.
             Application.ExecuteExcel4Macro "RUN(""TestVBSub"")"
             Application.ExecuteExcel4Macro "RUN(""TestXLM"")"
         End Sub
   
         'The Test4 Sub procedure makes use of the 
         'Application.ExecuteExcel4Macro
         'method with variable macro/Sub procedure names.
   
         Sub Test4()
             Dim SubToRun As String, MacroToRun As String
             SubToRun = "TestVBSub"
             MacroToRun = "TestXLM"
             'Note the extra quotation marks which are contained within the
             'RUN statements. These are required in order for the command to
             'evaluate properly.
             Application.ExecuteExcel4Macro "RUN(""" & SubToRun & """)"
             Application.ExecuteExcel4Macro "RUN(""" & MacroToRun & """)"
         End Sub
   
         'The Test5 Sub procedure uses the Call method with hard-coded
         'Sub procedure names.
   
         Sub Test5()
             Call TestVBSub
         End Sub
   
         'The Test6 Sub procedure runs the TestVBSub subroutine because its 
         'name is entered on a line by itself.
   
         Sub Test6()
             TestVBSub
         End Sub
   						

Test1, Test2, Test3 veya Test4 çalýþtýrdýðýnýzda, iletileri "TestVBSub çalýþýr!" ve "TestXLM çalýþýr!" iki uyarý kutusu görünür Test5 veya Test6 çalýþtýrdýðýnýzda, bir uyarý kutusu iletiyle "TestVBSub çalýþýr!" görüntülenir