Faceți clic dreapta pentru a apela o macro
Iată câteva coduri care vor permite utilizatorului să selecteze macro-ul dvs. din meniul implicit care apare după ce faceți clic dreapta pe o celulă.
1. Puneți următorul cod în fereastra de cod ThisWorkbook
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 ,, "" .Adăugați "MyMacro2", "MyMacro2",, 2,, "" Terminați cu Set MyMenu = Nothing End Sub
2. Introduceți următorul cod într-un modul
Public Sub mymacro1 () MsgBox "Macro1 dintr-un meniu cu clic dreapta" End Sub Public sub mymacro2 () MsgBox "Macro2 dintr-un meniu cu clic dreapta" End Sub
3. Închideți registrul de lucru și redeschideți!