Πίνακας περιεχομένων
Κάντε δεξί κλικ για να καλέσετε μια μακροεντολή
Ακολουθεί ένας κώδικας που θα επιτρέψει σε έναν χρήστη να επιλέξει τη μακροεντολή σας από το προεπιλεγμένο μενού που εμφανίζεται αφού κάνει δεξί κλικ σε ένα κελί.
1. Τοποθετήστε τον ακόλουθο κώδικα στο παράθυρο κωδικού ThisWorkbook
Private Sub Workbook_Open () Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("This is my Custom Menu", 1) With MyMenu.MenuItems .Add "MyMacro1", ,, "" .Προσθήκη "MyMacro2", "MyMacro2",, 2,, "" Τέλος με σετ MyMenu = Τίποτα δεν τελειώνει υπο
2. Τοποθετήστε τον ακόλουθο κώδικα σε μια ενότητα
Public Sub mymacro1 () MsgBox "Macro1 από δεξί κλικ μενού" End Sub Public Sub mymacro2 () MsgBox "Macro2 από δεξί κλικ μενού" End Sub
3. Κλείστε το βιβλίο εργασίας σας και ανοίξτε το ξανά!