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 SubPoznámka: 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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
