Ako spustiť podprogramy a makrá z jazyka Visual Basic v programe Excel 2000 alebo v programe Excel 2002

Preklady článku Preklady článku
ID článku: 213837 - Zobraziť produkty, ktorých sa tento článok týka.

Microsoft Excel 97 a staršej verzie tohto článok, pozri 108519.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

V programe Microsoft Excel, môžete spustiť Microsoft Visual Basic pre Aplikácie Sub postupy a Microsoft Excel verzia 4.0 makrá z vizuálnej Základný postup pomocou Application.run a Application.ExecuteExcel4Macro metódy. Môžete tiež spustiť program Visual Basic Sub postupy s Hovor metóda alebo zadaním názvu postup v samostatnom riadku sama.

Tento článok vysvetľuje niekoľko metód, ktoré môžete použiť na spustiť Sub postupy a Microsoft Excel verzia 4.0 makrá od Visual Základné v programe Microsoft Excel.

DALSIE INFORMACIE

Spoločnosť Microsoft poskytuje príklady programovacieho základňa, bez záruky buď vyjadrenej alebo implicitnej záruky, vrátane, ale nie výlučne, implicitných záruk obchodovateľnosti a vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje na vytváranie a ladenie procedúr. Microsoft podporu odborníkov môže pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy vašim špecifickým potrebám.
Ak máte obmedzené programovania skúsenosti, budete chcieť kontaktovať Microsoft Certified Partner alebo Microsoft poradenských služieb. Pre viac informácií, navštívte týchto webových lokalít spoločnosti Microsoft:

Microsoft certifikovanými Partnermi-https://partner.Microsoft.com/Global/30000104

Poradenské služby Microsoft- http://support.Microsoft.com/GP/advisoryservice

Ďalšie informácie o možnosti podpory, ktoré sú k dispozícii a o tom, ako kontaktovať spoločnosť Microsoft, navštívte nasledujúcu webovú lokalitu spoločnosti Microsoft:http://support.Microsoft.com/default.aspx?scid=FH;EN-US;CNTACTMS

Metóda 1: Application.Run

Môžete použiť Application.run metóda na spustenie programu Visual Basic Sub postupy alebo Microsoft Excel verzia 4.0 makrá z iných Postupy jazyka Visual Basic. V Application.run metóda vyžaduje jeden pomenované argument: názov makra, alebo Sub postup sa spustiť. (Avšak ďalšie voliteľné argumenty môžu tiež byť zahrnuté.) Tento názov môže byť textový reťazec (napríklad "TestXLM"), alebo ju môžete byť premenná, ktorá sa rovná názov makra.

Prípad 1: Textový reťazec

Spustiť Microsoft Excel verzia 4.0 makro s názvom TestXLM, môžete použiť nasledovný textový reťazec:
Application.Run "TestXLM"
				

Prípad 2: premenlivá

Ak je premenná "MacroToRun" nastavená na "TestXLM", ste mohli použite tento ukazovateľ:
Application.Run MacroToRun
				

Metóda 2: Application.ExecuteExcel4Macro

Môžete tiež použiť Application.ExecuteExcel4Macro metóda makrá spustiť Microsoft Excel verzia 4.0 alebo iných Visual Základné Sub postupy, ale syntax je trochu odlišná. Použitie Application.ExecuteExcel4Macro na spustenie makra, alebo Sub postup, musíte zadať aj Microsoft Excel verzia 4.0 SPUSTIŤ() funkciu, v nasledujúcich príkladoch:
Application.ExecuteExcel4Macro "RUN(""TestXLM"")"
				
  -or-
				
Application.ExecuteExcel4Macro "RUN(""" & MacroToRun & """)"
				
Keď použijete Application.ExecuteExcel4Macro, musíte použiť úvodzovky. Napríklad na použitie SPUSTIŤ() funkciu, musí uzavrite názov argument v úvodzovky:
RUN("TestXLM")
				
Celý reťazec musí byť potom uzavretý do úvodzoviek. Keď ste Pridajte úvodzovky mimo reťazec musíte pridať ďalších úvodzovky priľahlých k každé úvodzovky v rámci reťazec:
"RUN(""TestXLM"")"
				
V Application.ExecuteExcel4Macro príkaz používajúci premenná vnútri SPUSTIŤ() funkcia je zložitejší ako ekvivalent Application.run metóda. Pre príkaz správne vyhodnotiť makro reťazec musí byť zadaný ako:
"RUN(""" & MacroToRun & """)"
				
Tento príkaz sa vyhodnocuje ako
RUN("" & MacroToRun & "")
				
ktoré je platné Microsoft Excel verzia 4.0 makro príkaz.

Metóda 3: Metóda hovoru

V Hovor môže sa použiť metóda na spustenie programu Visual Basic Sub postupy, ale nie Microsoft Excel verzia 4.0 makrá. Pre Príklad Ak chcete spustiť Sub postup TestVBSub, použijete túto metódu:
Call TestVBSub
				
Nemôžete zadať názov premennej na Hovor metóda. Napríklad, ak máte premennej "SubToRun" nastavená na "TestVBSub," nemôžete spustiť TestVBSub Sub postup s nasledujúcimi:
Call SubToRun
				

Metóda 4: Spúšťate procedúry Sub iba prostredníctvom jeho názov

Môžete spustiť Visual Basic Sub postup zadaním jej názvu do riadku sama. Napríklad, Ak chcete váš Sub postup na spustenie TestVBSub podprogram, by ste mali zadať
TestVBSub
				
v riadku sama. Keď tento riadok v podprogram je popravený, je spustí TestVBSub podprogram.

Metóda 5: Vzorka Visual Basic postupy

Ak chcete vytvoriť šesť Sub postupy, ktoré ilustrujú najbežnejších metód môžete použiť na Spustiť Visual Basic Sub postup alebo Microsoft Excel verzia 4.0 makro z iného Visual Basic postupu, postupujte nasledovne:
  1. V novom zošite, vložte hárok makier programu Microsoft Excel 4.0 nazýva Macro1 a Visual Basic modul nazvaný Module1.

    POZNÁMKA: Chcete vložiť modul jazyka Visual Basic v programe Microsoft Excel, stlačte ALT + F11 aktivujte Editor jazyka Visual Basic. Kliknite na tlačidlo Modul na Vložiť ponuka.
  2. V hárku makier zadajte nasledovné makro:
         
    A1: TestXLM
    A2: =ALERT("TestXLM works!")
    A3: =RETURN()
    						
    Toto makro zobrazí upozornenie.
  3. V hárku makier vyberte bunku A1.
  4. Na Vložiť ponuku, ukážte na programu, a potom kliknite na tlačidlo Definovať.
  5. Overiť, že tieto informácie sa zobrazí v Definovať názov dialógové okno:

      • V Názvy v zošite pole obsahuje názov TestXLM.
      • V Odkazuje na pole obsahuje odkaz = Macro1!$ A$ 1.
      • V Príkaz možnosť vybratá podľa Makro.


    Keď nastavenia sú špecifikované vyššie, kliknite na tlačidlo ok definovať názov makra.
  6. V Module1, zadajte tieto Sub postupy:
     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
    
    					
Keď spustíte Test1, Test2, Test3 alebo Test4, dve záznam boxy zobrazí správy "TestVBSub funguje!" a "TestXLM funguje!" Keď ste spustiť Test5 alebo Test6, jedno upozornenie sa zobrazí hlásenie "TestVBSub s funguje!"
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Vlastnosti

ID článku: 213837 - Posledná kontrola: 21. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
Kľúčové slová: 
kbmacro kbdtacode kbhowto kbprogramming kbmt KB213837 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:213837

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com