Přejít k hlavnímu obsahu

Jak otevřít více hypertextových odkazů najednou v aplikaci Excel?

Pokud máte v tabulce mnoho hypertextových odkazů, normálně byste je museli otevírat jeden po druhém, což může být únavné. Naštěstí existuje několik jednoduchých způsobů, jak otevřít všechny vybrané hypertextové odkazy najednou. Pomocí níže popsaných metod můžete tento úkol snadno splnit.


Otevřete více hypertextových odkazů najednou pomocí kódu VBA

Chcete-li otevřít vybrané hypertextové odkazy rozsahu, může vám pomoci následující kód VBA, postupujte takto:

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Otevřete více hypertextových odkazů najednou

Sub OpenHyperLinks()
'Updateby Extendoffice
	Dim xHyperlink As Hyperlink
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
	For Each xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám připomene, abyste vybrali rozsah včetně hypertextových odkazů, které chcete otevřít najednou, viz screenshot:

doc-open-multiple-hyperlinks-1

4. A pak klikněte na tlačítko OK, všechny hypertextové odkazy se otevřou současně, aniž by na ně klikali.


Otevřete více hypertextových odkazů najednou pomocí Kutools AI Aide

Odemkněte sílu účinnosti s Kutools AI asistent! Dejte sbohem potížím s otevíráním hypertextových odkazů po jednom nebo složitého kódu. S Kutools AI asistent, můžete bez námahy otevřít více hypertextových odkazů současně pouhým kliknutím. Zefektivněte svůj pracovní postup a ušetřete drahocenný čas využitím tohoto inovativního nástroje. Zažijte bezproblémové procházení a zvyšte svou produktivitu Kutools AI asistent dnes!

Poznámka: Chcete-li použít toto Kutools AI asistent of Kutools pro Excel, Prosím stáhnout a nainstalovat Kutools pro Excel jako první.

Po instalaci Kutools pro Excel klikněte prosím Kutools AI > AI asistent k otevření Kutools AI asistent podokno:

  1. Vyberte seznam dat, zadejte svůj požadavek do pole chatu a klikněte Poslat nebo stiskněte tlačítko vstoupit klíč k odeslání otázky;
    "Otevřít všechny hypertextové odkazy najednou ve výběru:"
  2. Po analýze klikněte Provést tlačítko pro spuštění. Kutools AI Aide zpracuje váš požadavek pomocí AI a otevře všechny hypertextové odkazy výběru přímo v Excelu.

doc-open-multiple-hyperlinks-1


Související články:

  • Změňte více cest hypertextových odkazů najednou v aplikaci Excel
  • Z nějakého důvodu můžete vytvořit více hypertextových odkazů pro svá data v listu a všechny hypertextové odkazy jsou propojeny se stejnou cestou nebo adresou k souboru, ale nyní musíte tuto cestu hypertextového odkazu nahradit jinou adresou najednou. Chcete-li změnit cestu hypertextových odkazů jednotlivě, může to ztratit spoustu času, existuje rychlý způsob, jak tento problém vyřešit?
  • Převeďte více e-mailových adres na hypertextové odkazy v aplikaci Excel
  • Pokud máte v listu seznam e-mailových adres ve formátu prostého textu a nyní chcete tyto e-mailové adresy převést na hypertextové odkazy, na které můžete odesílat e-maily kliknutím na dané adresy. Samozřejmě je můžete převést na e-mailové adresy s hypertextovými odkazy, ale tato metoda bude nudná, pokud je potřeba převést více adres. V tomto článku budu hovořit o některých dobrých tricích, jak se s tímto úkolem vypořádat.
  • Následujte hypertextový odkaz na skrytý list v Excelu
  • Například mám sešit, který obsahuje více listů, první vzorový list má hypertextové odkazy na další listy a nyní skryji všechny listy kromě prvního. V tomto případě nejsou dostupné hypertextové odkazy, které odkazují na skryté listy. Ale jak byste mohli zajistit, aby tyto hypertextové odkazy fungovaly úspěšně? Když kliknete na jeden hypertextový odkaz, propojený skrytý list se otevře najednou.

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

Popis


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!
Comments (20)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code.
Could make it work for a "https link instead a hyperlink?
This comment was minimized by the moderator on the site
Got a compile error on Microsoft Visual Basic for Applications 7.1 on Mac High Sierra
This comment was minimized by the moderator on the site
This works fine, except for a problem, how can I make it that it only opens filtered cells?

Thank you
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
This comment was minimized by the moderator on the site
Hi, it worked perfectly, thanks! Is there a way to copy the text from the pages of these links in the cell next to each of them?
That would save me hundreds of hours of work!
This comment was minimized by the moderator on the site
Its works awesome.
This comment was minimized by the moderator on the site
When I use this on a column of hyperlinks generated by the =HYPERLINK() formula, it doesn't seem to work. When I copy/paste the values into a new column and run it there, it doesn't work. When I go to each individual cell, go to the end of text, and hit enter (causing it to become a hyperlink) it DOES work.


This didn't work for my needs, unfortunately. I have thousands of rows and clicking enter at the end of each line of text is pretty much what I'm having to do anyway.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
@James @Johan - Select the text you wish to convert into hyperlink, then use this code to convert the text into hyperlink directly. Then run the code above, works like a charm.


Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub
This comment was minimized by the moderator on the site
Hello! What I did was to copy/paste the values from the =HYPERLINK code into a different column, and then I used @SimpleDude's code to convert the pasted text into the hyperlinks that worked with the original hyperlink-opening code. Thank you for the help!
This comment was minimized by the moderator on the site
Thanks!
Works exactly as expected. Must be sure that the links are already valid URLs.
I opened 15 at one time.
This comment was minimized by the moderator on the site
Freezes excel - links never open
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations