Når du færdig med at skrive en Excel- makro , du ofte ønsker en nem måde at starte det. Mange brugere vælger et traditionelt tastaturgenvej , mens andre vælger en anden metode , såsom en kommandoknap , der kører makroen , når der klikkes . Hvis du har skrevet en helt exceptionel makro , dog kan du ønsker at placere den direkte på Excel -menuen. I Excel 2003 , kan du bruge Visual Basic for Applications ( VBA ) til at oprette en ny menupunkt. Tilføj så mange muligheder, som du ønsker . Bryd mulighederne i grupper med snitlinierne , og du har en professionel brugerdefineret menu. Instruktioner
1

Start Excel 2003.
2

Åbn Visual Basic Editor. Vælg "Funktioner " og derefter " Macro ", derefter " Visual Basic Editor" fra menuen.
3

Sæt en tom modul til din kode . Vælg "Indsæt " og derefter " Modul " fra menuen .
4

Start en ny subprocedure . Indtast følgende : Hej

Sub CustomMenu ()

Excel vil automatisk tilføje et " End Sub " erklæring
5

Definer variabler. . Indtast følgende mellem "Sub " og " End Sub " udsagn : Hej

Dim MenuObject Som CommandBarPopup

Dim MENUITEM As Object
6

Slet eventuelle eksisterende forekomster af din brugerdefinerede menu. Dette forhindrer dubletter , hvis du kører koden mere end én gang . Indtast følgende: . .

On Error Resume Next

Application.CommandBars (1) Controls ( "& My Macro " ) Slet

On Error GoTo 0 < br >
7

Opret en ny menupunkt kaldet "My Macro ". Brug en parameter værdi på 10 i "Set " erklæring at placere det før " Hjælp" den 10. punkt på Excel -menuen. Indtast følgende: .

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

MenuObject.Caption = " & My Macro "
8

Tilføj to punkter til menuen , med et afsnit linje mellem dem. Opret afsnittet linje ved at sætte " BeginGroup " ejendom i den anden post til

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

MenuItem.OnAction = " MacroName "

MenuItem.Caption = " & Run "

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

MenuItem.OnAction = " Om "

MenuItem.Caption =" & About Macro "

MenuItem.BeginGroup = Sand
9

Kør koden. Vælg "Kør " og derefter " Run Sub /UserForm " fra menuen . Når du vender tilbage til regnearket , vil du se "My Macro " på menuen, før "Help ". Klik for at se de to menupunkter , adskilt af en sektion linje.