Mainiet labo klikšķu izvēlni, lai izsauktu makro - VBA koda piemēri

Ar peles labo pogu noklikšķiniet, lai izsauktu makro

Šeit ir daži kodi, kas ļaus lietotājam atlasīt jūsu makro noklusējuma izvēlnē, kas tiek parādīta pēc tam, kad viņš ar peles labo pogu noklikšķina uz šūnas.

1. Ievietojiet šo kodu šīs darbgrāmatas koda logā

 Private Sub Workbook_Open () Dim MyMenu kā objektu kopa MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("Šī ir mana pielāgotā izvēlne", 1) Ar MyMenu.MenuItems .Pievienot "MyMacro1", "MyMacro1", 1 ,, "". Pievienot "MyMacro2", "MyMacro2",, 2,, "" Beigt ar komplektu MyMenu = Nothing End Sub

2. Ievietojiet modulī šādu kodu

 Public Sub mymacro1 () MsgBox "Macro1 no peles labās pogas izvēlnes" End Sub Public Sub mymacro2 () MsgBox "Macro2 no peles labās pogas izvēlnes" End Sub

3. Aizveriet savu darbgrāmatu un atveriet to vēlreiz!