Módosítsa a jobb egérgombbal megjelenő menüt a makró meghívásához - Példák a VBA kódokra

Kattintson a jobb egérgombbal a makró hívásához

Íme néhány kód, amely lehetővé teszi a felhasználó számára, hogy kiválassza a makrót az alapértelmezett menüből, amely azután jelenik meg, hogy jobb gombbal kattint egy cellára.

1. Tegye a következő kódot a ThisWorkbook kód ablakába

 Private Sub Workbook_Open () Dim MyMenu Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("Ez az én egyéni menü", 1) MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", 1 , "" .Add "MyMacro2", "MyMacro2",, 2,, "" End With Set MyMenu = Nothing End Sub

2. Tegye be a modulba az alábbi kódot

 Nyilvános al -mymacro1 () MsgBox "Makró1 a jobb egérgombbal elérhető menüből

3. Zárja be a munkafüzetet, és nyissa meg újra!