Клацніть правою кнопкою миші, щоб викликати макрос
Ось деякий код, який дозволить користувачеві вибрати ваш макрос із меню за замовчуванням, яке з’явиться після того, як він натисне правою кнопкою миші на клітинку.
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. Вставте наступний код у модуль
Загальнодоступний мій mymacro1 () MsgBox "Макрос1 у меню правою кнопкою миші" Завершити підпублічний загальнодоступний підміцний mymacro2 () MsgBox "Макрос2 з меню правої клавіші" Закінчити суб
3. Закрийте робочу книжку та відкрийте її знову!
