Inizio Excel 2003.
2
Aprire l'editor di Visual Basic. Selezionare " Strumenti ", quindi " Macro ", quindi " Visual Basic Editor " dal menu .
3
Inserire un modulo in bianco per il vostro codice . Selezionare "Inserisci ", poi "Modulo " dal menu .
4
Inizia una nuova subprocedure . Digitare quanto segue :
CustomMenu Sub ( ) per
Excel aggiunge automaticamente un'istruzione "End Sub "
5
definire le variabili . . Digitare quanto segue: tra il "Sub " e "End Sub " dichiarazioni :
Dim MenuObject Come CommandBarPopup
Dim MenuItem As Object
6
eliminare tutte le istanze esistenti di il tuo menu personalizzato . Questo impedisce che duplica se si esegue il codice più di una volta . Digitare quanto segue: . .
On Error Resume Next
Application.CommandBars ( 1 ) Controls ( " & My Macro " ) Cancellare
On Error GoTo 0
Pagina 7
opzione Crea un nuovo menu chiamato "My Macro ". Utilizzare un valore di parametro di 10 nella dichiarazione "Set" per posizionarlo prima " Guida ", il 10 ° punto del menu di Excel . Digitare quanto segue : .
MenuObject = Application.CommandBars ( 1) Controls.Add ( Type : = msoControlPopup , Prima: = 10 , temporanea : = True ) per
MenuObject.Caption = " & My Macro "
8
Aggiungi due voci al menu , con una linea di sezione tra di loro. Creare la linea di sezione impostando la proprietà " BeginGroup " nella seconda voce di
Set MenuItem = MenuObject.Controls.Add ( Type : = msoControlButton ) "True".
MenuItem.OnAction = " NomeMacro "
MenuItem.Caption = " & Run"
Set MenuItem = MenuObject.Controls.Add ( Type : = msoControlButton ) per
MenuItem.OnAction = "Informazioni "
MenuItem.Caption = " & Informazioni su Macro "
MenuItem.BeginGroup = True
9
Eseguire il codice . Selezionare "Esegui ", quindi " Esegui Sub /UserForm " dal menu . Quando si torna al foglio di calcolo, si vedrà " My Macro " nel menu , prima di "Aiuto ". Clicca per visualizzare le due opzioni di menu , separati da una linea di sezione .
software © www.354353.com