Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako pridať čiaru rezu do menu pre VBA v Exceli

Po dokončení písania makier programu Excel , často chcú jednoduchý spôsob , ako ho spustiť . Mnoho užívateľov si vybrať tradičné klávesovú skratku , zatiaľ čo iní zvoliť inú metódu , napríklad príkazové tlačidlo , ktoré spustí makro pri kliknutí . Ak ste napísali naozaj výnimočný makro , ale možno budete chcieť umiestniť ho priamo v menu programu Excel . V aplikácii Excel 2003 , pomocou jazyka Visual Basic for Applications ( VBA ) na vytvorenie novej položky v menu . Pridajte toľko možností , ako si budete priať . Prestávka voľby do skupín s § liniek , a budete mať profesionálny vlastnú ponuku . Návod dovolená 1

Spustite program Excel 2003 .
2

Otvorte Editor jazyka Visual Basic . Vyberte " Nástroje " , potom " makro " , potom " Visual Basic Editor " z menu .
3

Vložte prázdny modul pre váš kód . Vyberte " Vložiť " a potom " Modul " z menu .
4

Spustenie nového podprocedura . Zadajte nasledujúci príkaz : .

Sub CustomMenu ( )

Excel automaticky pridať " End Sub " vyhlásenie
5

Definujte premenné . Zadajte nasledujúci príkaz medzi " Sub " a " End Sub " vyhlásenie :

Dim MenuObject Ako CommandBarPopup

Dim MENUITEM As Object
6

Odstráňte všetky existujúce inštancie vaše vlastné ponuku . Tým sa zabráni duplicitné , ak spustíte kód viac ako raz . Zadajte nasledujúci príkaz : ..

On Error Resume Next

Application.CommandBars ( 1 ) Ovládacie prvky ( " & My Macro " ) Zmazať

On Error GoTo 0

7

Vytvoriť novú položku menu s názvom " My Macro . " Použite hodnotu parametra 10 v " Set " príkazu umiestniť ju pred " Help " , 10. položku v ponuke programu Excel . Zadajte nasledujúci príkaz : .

Set MenuObject = Application.CommandBars ( 1 ) Controls.Add ( Type : = msoControlPopup , ako : = 10 , dočasné : = TRUE )

MenuObject.Caption = " & My Macro "
8

pridať dve položky v menu , s čiary rezu medzi nimi . Vytvorte čiaru rezu nastavením " BeginGroup " vlastníctvo v druhom položku " To je pravda . "

Set MENUITEM = MenuObject.Controls.Add ( Type : = msoControlButton )

MenuItem.OnAction = " macroName "

MenuItem.Caption = " & Run "

Set MENUITEM = MenuObject.Controls.Add ( Type : = msoControlButton )

MenuItem.OnAction = " O "

MenuItem.Caption = " & O Makro "

MenuItem.BeginGroup = true
9

spustiť kód . Zvoľte " Spustiť " , a potom " Spustiť Sub /UserForm " z menu . Keď sa vrátite do tabuľky , uvidíte " Moje makrá " v ponuke , pred " Pomocník " . Kliknite pre zobrazenie dve možnosti ponuky , oddelené čiary rezu .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené