När du har skrivit ett Excel- makro , du ofta vill ha ett enkelt sätt att starta den . Många användare väljer en traditionell kortkommando , medan andra väljer en annan metod , t.ex. en kommandoknapp som kör makrot när du klickar. Om du har skrivit ett verkligt exceptionella makro , men kanske du vill placera den direkt på Excel- menyn . I Excel 2003 kan du använda Visual Basic for Applications ( VBA ) för att skapa ett nytt menyalternativ . Lägg till så många alternativ som du önskar . Bryt alternativen i grupper med snittlinjerna , och du har en professionell anpassad meny . Instruktioner
1
startar Excel 2003 .
2
Öppna Visual Basic Editor . Välj " Verktyg " och sedan " Macro " och sedan " Visual Basic Editor " från menyn .
3
in en tom modul för din kod . Välj " Infoga " och sedan " Module " från menyn .
4
Starta en ny delprocedur . Skriv följande :
Sub CustomMenu ( ) katalog
Excel kommer automatiskt lägga till en " End Sub " uttalande
5
Definiera variabler . . Skriv följande mellan " Sub " och " End Sub " uttalanden :
Dim MenuObject Som CommandBarPopup
Dim MENUITEM As Object
6
Ta bort alla befintliga instanser av din egen meny . Detta förhindrar dubbletter om du kör koden mer än en gång . Skriv följande : . .
On Error Resume Next
Application.CommandBars ( 1 ) Kontroller ( " & My Macro " ) Radera
On Error GoTo 0
7
Skapa ett nytt menyalternativ som heter " My Macro . " Använd ett parametervärde på 10 i " Set" uttalande att lägga fram den inför " Hjälp , " den 10: e punkt på Excel- menyn . Skriv följande : .
Set MenuObject = Application.CommandBars ( 1 ) Controls.Add ( Type : = msoControlPopup , Före : = 10 , tillfällig : = Sant ) katalog
MenuObject.Caption = " & My Macro "
8
Lägg två objekt i menyn , med ett avsnitt linje mellan dem . Skapa avsnittet linjen genom att ställa in " BeginGroup " egendom i andra objekt till
Set MENUITEM = MenuObject.Controls.Add ( Type : = msoControlButton ) " Sant . "
MenuItem.OnAction = " makronamn "
MenuItem.Caption = " & Run "
Set MENUITEM = MenuObject.Controls.Add ( Type : = msoControlButton ) katalog
MenuItem.OnAction = " Om "
MenuItem.Caption = " & Om Macro "
MenuItem.BeginGroup = Sant
9
köra koden . Välj " Kör " och sedan " Kör Sub /UserForm " från menyn . När du återvänder till kalkylbladet , kommer du att se " My Macro " på menyn , innan " Hjälp ". Klicka för att se de två menyalternativ , åtskilda av ett avsnitt linje .
