Dešiniuoju pelės mygtuku spustelėkite, kad iškviestumėte makrokomandą
Čia yra kodas, leidžiantis vartotojui pasirinkti makrokomandą iš numatytojo meniu, kuris rodomas dešiniuoju pelės mygtuku spustelėjus langelį.
1. Į „ThisWorkbook“ kodo langą įdėkite šį kodą
Private Sub Workbook_Open () Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("Tai mano pasirinktinis meniu", 1) Su MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", 1 ,, "". Pridėti "MyMacro2", "MyMacro2",, 2, "" "Baigti nustatant MyMenu = Nieko pabaigos sub
2. Įdėkite šį kodą į modulį
Public Sub mymacro1 () MsgBox "Macro1 iš dešiniojo pelės mygtuko paspaudimo meniu" End Sub Public Public sub mymacro2 () MsgBox "Macro2 iš dešiniojo pelės mygtuko paspaudimo meniu" End Sub
3. Uždarykite savo darbaknygę ir vėl atidarykite!
