Hogyan adhatunk egyéni gombot az Excel jobb egérgombbal / helyi menüjéhez?

Amint az az alábbi képernyőképeken látható, sokan hajlamosak hozzáadni a gyakran használt funkcióikat az Excel jobb klikk menüjéhez, hogy ezeket a funkciókat a jövőben egyetlen kattintással gyorsan használhassák. Ez a cikk arról szól, hogy egyéni kódot kell hozzáadni az Excel jobb gombbal történő menüjéhez.

Adjon hozzá egyéni gombot az Excel helyi menüjéhez, VBA kóddal

Adjon hozzá egyéni gombot az Excel helyi menüjéhez, VBA kóddal

Tegyük fel, hogy létrehozott egy MyMacro nevű VBA parancsfájlt az Excel-ben, és most hozzá kell adnia ezt a függvényt a kód futtatásához szolgáló helyi menübe, csak rákattintva. Kérjük, tegye a következőket.

1. megnyomni a más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán Ez a munkafüzet balra NetPoulSafe projekt ablaktábla. Ezután másolja és illessze be az alábbi VBA kódot a Ez a munkafüzet (kód) ablak.

VBA-kód: Egyéni gomb hozzáadása az Excel helyi menüjéhez

Private Sub Workbook_Deactivate()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
        End With
    On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With

        With cmdBtn
           .Caption = "MyMacro"
           .Style = msoButtonCaption
           .OnAction = "MyMacro"
        End With
    On Error GoTo 0
End Sub

Megjegyzések: A kódban kérjük, cserélje ki az összeset „MyMacro” az Excelben létrehozott Makró névvel.

3. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.

Most visszatér az Excel felületre, miután jobb egérgombbal kattintott egy cellára, látni fogja, hogy az új gomb a megadott névvel bekerül a jobb egérgombbal a menübe, az alábbi képernyőképen. A gombra kattintva azonnal elindul a megfelelő makró.

Kapcsolódó cikkek:

• How beilleszteni egy üres új sort automatikusan az Excel Parancsgombbal?
• Hogyan használható a Parancs gomb az aktív munkalap PDF fájlként történő mentésére az Excelben?
• Hogyan lehet menteni és bezárni az aktív munkafüzetet az Excel parancsgombjainak felszólítása nélkül?
• Hogyan frissítheti vagy illesztheti be (aktuális) dátumot és időt az Excel parancsgombbal?
• Hogyan lehet letiltani a gombot, miután egyszer kattintott az Excelben?