Kliknutím pravým tlačidlom myši zavoláte makro
Tu je kód, ktorý umožní používateľovi vybrať vaše makro z predvolenej ponuky, ktorá sa zobrazí po kliknutí pravým tlačidlom myši na bunku.
1. Do okna kódu ThisWorkbook vložte nasledujúci kód
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", "MyMacro1",, 1 ,, "" .Pridajte "MyMacro2", "MyMacro2",, 2,, "" Koniec setom MyMenu = Nič Koniec Sub
2. Vložte nasledujúci kód do modulu
Verejný sub mymacro1 () MsgBox "Macro1 z ponuky pravým tlačidlom myši" Koniec Sub Verejný sub mymacro2 () MsgBox "Macro2 z ponuky pravým kliknutím" Ukončiť Sub
3. Zatvorte zošit a znova ho otvorte!