Note: The other languages of the website are Google-translated. Back to English

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

Pozná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:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (15)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Přidat tlačítko VBA do kontextové nabídky funguje dobře. Dík. Jak přidám další tlačítka? (není dobrý ve VBA, proto ta otázka).
Tento komentář byl moderátorem webu minimalizován
Ahoj Vic,
Následující kód VBA vám může pomoci vyřešit problém, zkuste to prosím.

Soukromý dílčí sešit_Deaktivovat ()
Dim xArrB jako varianta
Dim xFNum jako celé číslo
Dim xStr jako řetězec
On Error Resume Next
S aplikací
xArrB = Array("MyMacro01", "MyMacro02", "MyMacro03")
Pro xFNum = 0 až UBound(xArrB)
xStr = xArrB(xFNum)
.CommandBars("Cell").Controls(xStr).Delete
Další xFNum
Konec s
Při chybě GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cmdBtn jako CommandBarButton
Dim xArrB jako varianta
Dim xFNum jako celé číslo
Dim xStr jako řetězec
On Error Resume Next
xArrB = Array("MyMacro01", "MyMacro02", "MyMacro03")
Pro xFNum = 0 až UBound(xArrB)
xStr = xArrB(xFNum)
S aplikací
.CommandBars("Cell").Controls(xStr).Delete
Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
Konec s
S cmdBtn
.Titulek = xStr
.Style = msoButtonCaption
.OnAction = xStr
Konec s
Další xFNum
Při chybě GoTo 0
End Sub
Tento komentář byl moderátorem webu minimalizován
To mi nefunguje, udělal jsem přesně to samé jako výše uvedené makro pouze s jedním menu. Funguje to pro někoho jiného nebo dělám něco špatně?

Díky
Tento komentář byl moderátorem webu minimalizován
Nepracujte s mým Excelem 2013
Tento komentář byl moderátorem webu minimalizován
Ahoj Yvesi, testoval jsem tento kód v Excelu 2013 a funguje. Zobrazila se vám nějaká chybová zpráva? Potřebuji vědět konkrétněji o vašem problému
Tento komentář byl moderátorem webu minimalizován
Děkuji za odpověď, ale nefunguje na stole. Na normální buňce funguje perfektně.
Tento komentář byl moderátorem webu minimalizován
Ahoj Yvesi, problém je nyní jasný a potřebuji čas na jeho vyřešení. Prosím, čekejte. Děkujeme vám za vaši reakci.
Tento komentář byl moderátorem webu minimalizován
Díky moc
Tento komentář byl moderátorem webu minimalizován
Díky
Funguje to pro všechny sešity i po restartování Excelu nebo pouze pro vybraný sešit, do kterého bylo makro uloženo?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Funguje pouze pro sešit, do kterého je makro uloženo. Děkujeme za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Размести код в отдельном модуле, для того чтобы это работало для всех докуме
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Je déterre le sujet car j'ai un soucis, j'ai récupérer un fichier qui m'a remplacé le menu du click droit et je ne sais pas comment revenir au menu par défaut...
Ça a modifikátor le menu pour n'importe quel fichier excel. J'utilise excel 2016.

Je precise que le fichier coupable a un mot de passe pour accéder à son code VBA. Mot de passe qu'évidemment je ne possède pas..

Merci d'avance pour votre aide !!
Tento komentář byl moderátorem webu minimalizován
Ahoj Oliviere,
Promiň, moc nerozumím, co myslíš. Chcete se vrátit do normálního menu po kliknutí pravým tlačítkem?
Tento komentář byl moderátorem webu minimalizován
Zdravím dokázal byste mi prosím někdo poradit s podobným problémem? Po posledním updatu Office přibyla v excelu po stisknutí pravého tlačítka nad kopírovat a vyjmout volbu hledat v nabídce, která mi tam vadí a chtěla bych jí odstranit. Dá se to udělat i obráceně a nějakou funkci odstranit?

děkuji
Tento komentář byl moderátorem webu minimalizován
Ahoj Tomáši,
S touto situací jsem se nesetkal. Můžete připojit snímek obrazovky, abyste jasněji popsali problém, na který jste narazili.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL