Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 .
Copyright © počítačové znalosti Všetky práva vyhradené