Upravte nabídku pravým tlačítkem pro volání makra - příklady kódu VBA

Kliknutím pravým tlačítkem zavoláte makro

Zde je kód, který uživateli umožní vybrat vaše makro z výchozí nabídky, která se zobrazí po kliknutí pravým tlačítkem na buňku.

1. Vložte následující kód do okna kódu 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", "MyMacro1",, 1 ,, "" .Přidat "MyMacro2", "MyMacro2",, 2,, "" Konec Nastavit MyMenu = Nic Konec Sub

2. Vložte následující kód do modulu

 Public Sub mymacro1 () MsgBox "Macro1 z nabídky pravým tlačítkem" End Sub Public Sub mymacro2 () MsgBox "Macro2 z nabídky pravým kliknutím" End Sub

3. Zavřete sešit a znovu otevřete!