Når du er ferdig med å skrive en Excel makro , du ofte ønsker en enkel måte å starte den. Mange brukere velger en tradisjonell tastatursnarvei, mens andre velger en annen metode , for eksempel en kommandoknapp som kjører makroen når den klikkes. Hvis du har skrevet en virkelig eksepsjonell makro , derimot, kan det være lurt å plassere den direkte på Excel -menyen . I Excel 2003 bruker Visual Basic for Applications ( VBA ) for å opprette et nytt menypunkt . Legg til så mange alternativer som du ønsker. Bryt alternativer i grupper med § linjer , og du vil ha en profesjonell egendefinert meny . Instruksjoner
en

starter Excel 2003 .
2

Åpne Visual Basic-redigering . Velg " Verktøy " og deretter " Makro " og deretter " Visual Basic Editor " fra menyen .
3

Sett inn en tom modul for koden din . Velg " Sett inn " og deretter " Module" fra menyen .
4

Start en ny subprocedure . Skriv inn følgende : en

Sub CustomMenu ( )

Excel vil automatisk legge til en " End Sub " statement
5

Definer variablene . . Skriv inn følgende mellom " Sub " og " End Sub " utsagn : en

Dim MenuObject Som CommandBarPopup

Dim MENUITEM som objekt
6

Slett alle eksisterende forekomster av tilpassede menyen. Dette hindrer duplikater hvis du kjører koden mer enn én gang. Skriv inn følgende : . .

On Error Resume Next

Application.CommandBars ( 1 ) Kontroller ( "& My Macro" ) Slett

On Error GoTo 0

7

Opprett en ny meny som heter " My Macro . " Bruk en parameter verdi på 10 i "Set " statement å plassere den før " Hjelp ", den 10. element på Excel -menyen . Skriv inn følgende : .

Set MenuObject = Application.CommandBars ( 1 ) Controls.Add (Type: = msoControlPopup , Før: = 10 , midlertidig : = sann)

MenuObject.Caption = " & My Macro "
8

Legg til to elementer i menyen , med en del linje mellom dem . Lag avsnittet linjen ved å sette " BeginGroup " eiendom i det andre elementet til

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

MenuItem.OnAction = " MacroName "

MenuItem.Caption = " & Run "

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

MenuItem.OnAction = " Om "

MenuItem.Caption = " & Om Macro "

MenuItem.BeginGroup = sant
9

Kjør koden . Velg "Kjør " og deretter " Run Sub /UserForm " fra menyen . Når du vender tilbake til regnearket , vil du se " My Macro " på menyen , før " Hjelp ". Klikk for å se de to menyvalgene , adskilt av en seksjon linje.