Πώς να προσθέσετε ένα τμήμα γραμμής στο μενού για VBA με το Excel

Όταν ολοκληρώσετε τη σύνταξη μιας μακροεντολής του Excel , συχνά θέλετε έναν εύκολο τρόπο για να ξεκινήσει . Πολλοί χρήστες επιλέγουν ένα παραδοσιακό συντόμευση πληκτρολογίου , ενώ άλλοι επιλέγουν μια άλλη μέθοδο , όπως ένα κουμπί εντολής που εκτελεί τη μακροεντολή , όταν πατηθεί. Εάν έχετε γράψει μια πραγματικά εξαιρετική macro , ωστόσο , ίσως να θέλετε να το τοποθετήσετε απευθείας στο μενού του Excel . Στο Excel 2003, χρησιμοποιήστε Visual Basic for Applications ( VBA ) για να δημιουργήσετε ένα νέο στοιχείο μενού . Προσθέστε όσες επιλογές επιθυμείτε . Σπάστε τις επιλογές σε ομάδες με το τμήμα των γραμμών , και θα έχετε ένα επαγγελματικό προσαρμοσμένο μενού . Οδηγίες
Η 1

Ξεκινήστε το Excel 2003 . 2

Ανοίξτε το Visual Basic Editor. Επιλέξτε " Εργαλεία " τότε " Macro " και στη συνέχεια " Επεξεργασία Visual Basic " από το μενού .
Εικόνων 3

Τοποθετήστε μια κενή ενότητα για τον κωδικό σας . Επιλέξτε "Εισαγωγή " και στη συνέχεια " ενότητα " από το μενού .
Η 4

Ξεκινήστε μια νέα υποδιαδικασία . Πληκτρολογήστε τα ακόλουθα : .

Sub CustomMenu ( )

Excel θα προσθέσει αυτόματα ένα "End Sub" δήλωση
5

Καθορισμός μεταβλητών . Πληκτρολογήστε τα ακόλουθα μεταξύ του " Sub" και " End Sub " δηλώσεις :

Dim MenuObject Όπως CommandBarPopup

Dim MenuItem As Object
Η 6

Διαγράψτε τυχόν υπάρχουσες περιπτώσεις προσαρμοσμένο μενού σας . Αυτό αποτρέπει διπλότυπες αν εκτελέσετε τον κώδικα περισσότερες από μία φορές . Πληκτρολογήστε τα ακόλουθα : . .

On Error Resume Next

Application.CommandBars ( 1 ) Έλεγχοι ( " & My Macro " ) Διαγραφή

On Error GoTo 0
Σελίδα 7

Δημιουργήστε ένα νέο μενού που ονομάζεται "Macro μου . " Χρησιμοποιήστε μια τιμή παραμέτρου από 10 στο "Set" δήλωση να το τοποθετήσετε πριν " Βοήθεια ", το 10ο στοιχείο του μενού του Excel . Πληκτρολογήστε τα ακόλουθα : .

Set MenuObject = Application.CommandBars ( 1 ) Controls.Add ( Τύπος: = msoControlPopup , Πριν : = 10 , η προσωρινή : = True )

MenuObject.Caption = " & My Macro "
8

Προσθέστε δύο στοιχεία στο μενού , με μια γραμμή τομής μεταξύ τους . Δημιουργήστε τη γραμμή τομής με τον καθορισμό της " BeginGroup " ακίνητο στο δεύτερο στοιχείο σε " True ".

Set MenuItem = MenuObject.Controls.Add ( Τύπος: = msoControlButton )

MenuItem.OnAction = " Macroname "

MenuItem.Caption = " & Run"

Set MenuItem = MenuObject.Controls.Add ( Τύπος: = msoControlButton )

MenuItem.OnAction = " Σχετικά με "

MenuItem.Caption = " & Σχετικά Macro "

MenuItem.BeginGroup = True
Η 9

Εκτελέστε τον κώδικα . Επιλέξτε "Run " και στη συνέχεια "Run Sub /UserForm " από το μενού . Όταν επιστρέψετε στο υπολογιστικό φύλλο , θα δείτε " Macro μου " στο μενού , πριν από την "Help ". Κάντε κλικ για να δείτε τις δύο επιλογές του μενού , που χωρίζονται από μια γραμμή τομής .
Η
εικόνων