Jak přidat vlastní tlačítko do pravé / kontextové nabídky v aplikaci Excel?

Jak je ukázáno níže, mnoho lidí má tendenci přidávat své často používané funkce do nabídky pravého kliknutí aplikace Excel, aby v budoucnu tyto funkce mohli rychle použít jediným kliknutím. Tento článek hovoří o přidání tlačítka vlastního kódu do nabídky pravého kliknutí v aplikaci Excel.

Přidejte vlastní tlačítko do místní nabídky v aplikaci Excel pomocí kódu VBA

Přidejte vlastní tlačítko do místní nabídky v aplikaci Excel pomocí kódu VBA

Předpokládejme, že jste ve svém Excelu vytvořili skript VBA s názvem MyMacro a nyní musíte tuto funkci přidat do kontextové nabídky pro spuštění kódu pouhým kliknutím. Postupujte prosím následovně.

1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Tato pracovní kniha vlevo Projekt podokno. A pak zkopírujte a vložte níže uvedený kód VBA do Tento sešit (kód) okno.

Kód VBA: Přidejte vlastní tlačítko do místní nabídky v aplikaci Excel

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

Pozor: V kódu prosím vyměňte vše „MyMacro“ s názvem makra, který jste vytvořili v aplikaci Excel.

3. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

Nyní se vrátíte do rozhraní aplikace Excel, po kliknutí pravým tlačítkem na buňku uvidíte, že do pravého kliknutí je přidáno nové tlačítko se zadaným názvem, jak je ukázáno níže. Kliknutím na tlačítko se okamžitě spustí příslušné Makro.

Související články:

• HJak automaticky vložit prázdný nový řádek pomocí příkazového tlačítka v aplikaci Excel?
• Jak pomocí příkazového tlačítka uložit aktivní list jako soubor PDF v aplikaci Excel?
• Jak uložit a zavřít aktivní sešit bez výzvy příkazovým tlačítkem v aplikaci Excel?
• Jak aktualizovat nebo vložit (aktuální) datum a čas příkazovým tlačítkem v aplikaci Excel?
• Jak deaktivovat tlačítko po jednom kliknutí v aplikaci Excel?