Innehållsförteckning
Högerklicka för att ringa ett makro
Här är en kod som gör att en användare kan välja ditt makro från standardmenyn som visas när de högerklickar på en cell.
1. Sätt in följande kod i ThisWorkbook -kodfönstret
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, ,, "". Lägg till "MyMacro2", "MyMacro2",, 2,, "" End With Set MyMenu = Nothing End Sub
2. Sätt följande kod i en modul
Public Sub mymacro1 () MsgBox "Makro1 från en högerklicksmeny" Avsluta Sub Public Public mymacro2 () MsgBox "Macro2 från en högerklicksmeny" Avsluta sub
3. Stäng din arbetsbok och öppna igen!