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

 Jak spustit makro kliknutím na hypertextové odkazy v aplikaci Excel?

Makro kód může být pro nás velmi užitečný při řešení některých komplikovaných úloh v aplikaci Excel, obvykle jej můžeme spustit v Microsoft Visual Basic pro aplikace kliknutím na Běh nebo stisknutím tlačítka F5 klíč. Ale pokusili jste se někdy spustit makra kliknutím na relativní hypertextové odkazy v listu?

Spusťte nebo spusťte makro kliknutím na hypertextový odkaz s kódem VBA


šipka modrá pravá bublina Spusťte nebo spusťte makro kliknutím na hypertextový odkaz s kódem VBA

Může být pro nás zajímavé aktivovat makro kliknutím na hypertextový odkaz v aplikaci Excel, následující metoda vám pomůže dosáhnout tohoto úkolu krok za krokem:

1. Vytvořte hypertextové odkazy, které chcete použít k provedení kódů maker. Klikněte na buňku a vytvořte hypertextový odkaz, který k ní bude odkazovat, viz screenshot:

makro pro spuštění dokumentu z hypertextového odkazu 1

2. Opakujte výše uvedený krok a vytvořte další hypertextové odkazy, které chcete použít, jako následující obrázek obrazovky:

makro pro spuštění dokumentu z hypertextového odkazu 2

3. Poté klikněte pravým tlačítkem na kartu listu, která obsahuje hypertextové odkazy, které chcete použít, a poté vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Spouštění kódů maker z hypertextových odkazů:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$B$6" Then
        Call Macro1
        End If
         If Target.Range.Address = "$B$8" Then
        Call Macro2
         End If
End Sub

makro pro spuštění dokumentu z hypertextového odkazu 3

Poznámka: Ve výše uvedeném kódu, B6 a B8 jsou buňky obsahující hypertextové odkazy, které chcete použít, a Macro1 a Macro2 jsou kódové názvy maker, změňte je prosím podle svých potřeb.

4. Poté uložte a zavřete okno s kódem, od nynějška se po kliknutí na hypertextový odkaz provede konkrétní kód makra najednou.


Související články:

Jak spustit makro při změně hodnoty buňky v aplikaci Excel?

Jak spustit makro na základě hodnoty buňky v aplikaci Excel?

Jak spustit makro na základě hodnoty vybrané z rozevíracího seznamu v aplikaci Excel?

Jak spustit makro automaticky před tiskem v aplikaci Excel?

Jak spustit makro při výběru listu ze sešitu?


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 (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj
To je velmi užitečné, děkuji, ale funguje to pouze v případě, že jste v buňce $ B $ 8. Chci vytvořit stejný hypertextový odkaz, který provádí stejnou funkci makra, ale v každém řádku na listu.
tj. Mám dvě karty, list 1 a list 2. Uživatel je v listu 1 a spustí se makro, které zadává data do listu 1 a listu 2 po řádcích. Funguje to dobře, ale pak chci makro, aby uživatel mohl kliknout na odkaz v další buňce a převedlo ho to zpět do původního řádku na listu 1 s posunutím několika buněk. Mohu to udělat pomocí výše uvedeného, ​​ALE pouze pokud je uživatel v nastaveném řádku na listu 2 (např. $ B $ 8). Jak to udělat, aby makro fungovalo, když jsou na listu 2 B9, B10, B11....?
Tento komentář byl moderátorem webu minimalizován
Tím se přiřadí list1 sloupec J, řádek 2 až 35 s hypertextovým odkazem na vlastní buňku s textovým názvem

Sub anyName()
Pro i = 2 až 35 Krok 1
ActiveCell.FormulaR1C1 = "jméno"
Rozsah("J" & i).Vyberte
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'sheet1'!J" & i, TextToDisplay:="name"
další

End Sub
Tento komentář byl moderátorem webu minimalizován
Ola,

Um dos poucos locais onde encontrei essa solução. Muito obrigado! Estou quase lá. Não estou usando uma célula para o hiperlink, mas uma imagem que inseri na planilha e indicando uma célula qualquer como referência. Fiz como indicado, mas não funciona (Só para verificação, fiz com uma célula e deu certo). Máte změny v makru?
Tento komentář byl moderátorem webu minimalizován
Chyba při prodeji:

Chyba kompilace:
No se ha definido Sub o Function
Tento komentář byl moderátorem webu minimalizován
funguje dobře
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