Променете менюто с десен бутон, за да извикате макрос - Примери за VBA код

Щракнете с десния бутон, за да извикате макрос

Ето един код, който ще позволи на потребителя да избере вашия макрос от менюто по подразбиране, което се появява, след като щракне с десния бутон върху клетка.

1. Поставете следния код в прозореца на кода ThisWorkbook

 Private Sub Workbook_Open () Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("Това е моето персонализирано меню", 1) С MyMenu.MenuItems. Добавете "MyMacro1", "MyMacro1", 1 ,, "". Добавете "MyMacro2", "MyMacro2",, 2,, "" Край със зададен MyMenu = Нищо Край на Sub

2. Поставете следния код в модул

 Public Sub mymacro1 () MsgBox "Macro1 от менюто с десен бутон" End Sub Public Public sub mymacro2 () MsgBox "Macro2 от менюто с десен бутон" End Sub

3. Затворете работната си книга и отворете отново!