Изменение контекстного меню для вызова макроса - примеры кода VBA

Щелкните правой кнопкой мыши, чтобы вызвать макрос

Вот код, который позволит пользователю выбрать ваш макрос из меню по умолчанию, которое появляется после щелчка правой кнопкой мыши по ячейке.

1. Поместите следующий код в окно кода ThisWorkbook.

 Private Sub Workbook_Open () Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu («Это мое настраиваемое меню», 1) с MyMenu.MenuItems. Добавьте «MyMacro1», «MyMacro1», ,, "" .Add "MyMacro2", "MyMacro2",, 2, "" Конец с Set MyMenu = Nothing End Sub

2. Поместите следующий код в модуль

 Public Sub mymacro1 () MsgBox "Макрос1 из контекстного меню" End Sub Public Sub mymacro2 () MsgBox "Macro2 из контекстного меню" End Sub

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