Una volta scritta una macro di Excel, spesso si desidera un modo semplice per lanciarlo. Molti utenti scelgono una scorciatoia da tastiera tradizionale, mentre altri selezionare un altro metodo, come ad esempio un pulsante di comando che esegue la macro quando si fa clic. Se avete scritto una macro davvero eccezionale, tuttavia, si potrebbe desiderare di metterlo direttamente nel menu di Excel. In Excel 2003, utilizzare Visual Basic, Applications Edition (VBA) per creare una nuova voce di menu. Aggiungi come molte opzioni come si desidera. Rompere le opzioni in gruppi con linee di sezione, e avrete un menu personalizzato professionale.

istruzione

1 Avviare Excel 2003.

2 Aprire l'editor di Visual Basic. Selezionare "Strumenti", poi "Macro", quindi "Visual Basic Editor" dal menu.

3 Inserire un modulo in bianco per il vostro codice. Selezionare "Inserisci", quindi "Modulo" dal menu.

4 Inizia una nuova subprocedure. Digitare quanto segue:

Sub CustomMenu ()

Excel aggiungerà automaticamente un'istruzione "End Sub".

5 Definire le variabili. Digitare il seguente tra il "Sub" e le dichiarazioni "End Sub":

Dim MenuObject Come CommandBarPopup

Dim MenuItem As Object

6 Eliminare tutte le istanze esistenti del vostro menu personalizzato. Questo impedisce i duplicati se si esegue il codice più di una volta. Digitare quanto segue:

On Error Resume Next

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

On Error GoTo 0

7 Creare una nuova voce di menu denominata "My Macro". Utilizzare un valore di parametro del 10 nella dichiarazione "Set" per prima "Help", il 10 ° voce del menu di Excel. Digitare quanto segue:

Set MenuObject = Application.CommandBars (1) .Controls.Add (Type: = msoControlPopup, Prima: = 10, temporanea: = True)

MenuObject.Caption = "& My Macro"

8 Aggiungere due elementi al menu, con una linea di sezione fra loro. Creare la linea di sezione impostando la proprietà "BeginGroup" nella seconda voce di "True".

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

MenuItem.OnAction = "NomeMacro"

MenuItem.Caption = "& Run"

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

MenuItem.OnAction = "Chi"

MenuItem.Caption = "& About Macro"

MenuItem.BeginGroup = True

9 Eseguire il codice. Selezionare "Esegui", poi "Esegui Sub / UserForm" dal menu. Quando si torna al foglio di calcolo, si vedrà "Il mio Macro" nel menu, prima di "Help". Clicca per visualizzare le due opzioni del menu, separati da una linea di sezione.

Consigli e avvertenze

• Lascia la tua nuova opzione di menu un nome che descrive la funzione macro. Per esempio, se la macro esegue una serie di rapporti, sostituire "My Macro" con "Report".
• Posizionare una e commerciale (&) prima di qualsiasi carattere per creare una scorciatoia da tastiera per la nuova opzione di menu. Non utilizzare "D", "E", "F", "H", "I", "O", "T", "V" o "W." Questi sono già prese dal menù di Excel.