Endre høyreklikkmenyen for å ringe en makro - VBA -kodeeksempler

Høyreklikk for å ringe en makro

Her er noen kode som lar en bruker velge makroen din fra standardmenyen som vises etter at de høyreklikker på en celle.

1. Sett inn følgende kode i ThisWorkbook -kodevinduet

 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, ,, "". Legg til "MyMacro2", "MyMacro2",, 2,, "" End With Set MyMenu = Nothing End Sub

2. Sett følgende kode i en modul

 Offentlig Sub mymacro1 () MsgBox "Makro1 fra en høyreklikkmeny" Avslutt Sub Offentlig Sub mymacro2 () MsgBox "Makro2 fra en høyreklikkmeny" Avslutt Sub

3. Lukk arbeidsboken og åpne den igjen!