Als u klaar bent met het schrijven van een Excel- macro , vaak wilt u een gemakkelijke manier om het te lanceren . Veel gebruikers kiezen voor een traditionele toetscombinatie , terwijl anderen kiezen een andere methode , zoals een opdracht knop dat de macro wordt uitgevoerd wanneer erop wordt geklikt . Als je een echt uitzonderlijke macro hebt geschreven , maar wilt u misschien het direct plaatsen op het Excel- menu . In Excel 2003 , Visual Basic for Applications ( VBA ) om een nieuw menu- item maken . Voeg zoveel opties als u wilt. Breek de opties in groepen met sectie lijnen , en je krijgt een professionele aangepaste menu hebben . Instructies
Start Excel 2003 1 . Kopen van 2 Open de Visual Basic Editor . Selecteer " Extra " en vervolgens " Macro " en vervolgens " Visual Basic Editor " uit het menu .
3 Plaats een lege module voor uw code . Kies " Invoegen " en vervolgens " Module " uit het menu .
4 Start een nieuwe subprocedure . Typ het volgende : Sub CustomMenu ( ) op Excel
automatisch een " End Sub " verklaring toe te voegen
5 Definieer variabelen . . Typ het volgende tussen de " Sub " en " End Sub " uitspraken : Dim MenuObject
Zoals CommandBarPopup Dim MenuItem
als Voorwerp
6 Verwijder alle bestaande exemplaren van uw aangepaste menu . Dit voorkomt duplicaten als je de code meer dan een keer draaien . Typ het volgende : . .
On Error Resume Next Application.CommandBars
( 1 ) Controls ( " & My Macro " ) Delete
On Error GoTo 0 < br >
7 Maak een nieuwe menu- optie genaamd ' My Macro . " Gebruik een parameter waarde van 10 in de " Set" verklaring aan het voorlegt " Help , " de 10e item op het Excel- menu . Typ het volgende : .
Set MenuObject = Application.CommandBars ( 1 ) Controls.Add ( Type : = msoControlPopup , Vóór : = 10 , tijdelijk : = True ) MenuObject.Caption
= " & My Macro "
8 Voeg twee items aan het menu , met een doorsnede lijn tussen hen. Maak de sectie lijn door het instellen van de " BeginGroup " eigenschap in het tweede item te
Set MenuItem = MenuObject.Controls.Add ( Type : = msoControlButton ) " True ". MenuItem.OnAction
= " macroname " MenuItem.Caption
= " & Run " Set MenuItem = MenuObject.Controls.Add
( Type : = msoControlButton ) MenuItem.OnAction
= " Over " MenuItem.Caption
= " & Over Macro " MenuItem.BeginGroup = True
9
Voer de code . Selecteer " Run " en vervolgens " Uitvoeren Sub /UserForm " uit het menu . Wanneer u terugkeert naar de spreadsheet , zal je " My Macro " op het menu , voorafgaand aan " Help . " Klik om de twee menu-opties , gescheiden door een sectie lijn te bekijken .
|
