Přejít k hlavnímu obsahu

Jak změnit více cest hypertextových odkazů 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?

Změňte více cest hypertextových odkazů najednou v listu s kódem VBA

Změňte více cest hypertextových odkazů najednou v listu / sešitu / více listech / výběru s úžasnou funkcí


Změňte více cest hypertextových odkazů najednou v listu s kódem VBA

Předpokládejme, že máte seznam dat se stejnými hypertextovými odkazy jako na následujícím snímku obrazovky a s kódem VBA, můžete rychle nahradit starou cestu k souboru nebo adresu v listu novým.

1. Podržte stisknuté tlačítko 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í makro do souboru Okno modulu.

Kód VBA: změna více cest hypertextových odkazů najednou

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a pole s výzvou k zadání vaší staré adresy hypertextového odkazu do souboru Starý text krabice. Viz snímek obrazovky:

4, klikněte OKa vyskočí další okno s výzvou, které vám připomene zadání nové adresy hypertextového odkazu, kterou chcete použít.

5. A pak klikněte na tlačítko OK, všechny stejné staré adresy hypertextových odkazů byly nahrazeny novými najednou. Zobrazit snímky obrazovky:


Změňte více cest hypertextových odkazů najednou v listu / sešitu / více listech / výběru s úžasnou funkcí

Pokud chcete nahradit cesty hypertextových odkazů z výběru, více listů, aktuálního pracovního souboru nebo více sešitů, jak byste to mohli udělat? S Najít a nahradit vlastnost Kutools pro Excel, můžete se s tímto úkolem rychle vypořádat.

Poznámka:Použít toto Najít a nahradit nástroj, nejprve byste si měli stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools > Navigace, viz screenshot:

2. V otevřeném Navigace podokno, klepněte na tlačítko Najít a nahradit v záložce Najít a nahradit podokno, klepněte na tlačítko Nahradit kartu a potom proveďte následující operace:

  • Do textového pole zadejte starý text hypertextového odkazu, který chcete najít Najít to, co textové pole a poté zadejte nový text hypertextového odkazu, který chcete nahradit Nahradit Textové pole;
  • Určete obor, kde chcete najít a nahradit cestu hypertextového odkazu z V rozbalovací seznam;
  • Potom vyberte hypertextové odkazy z rozevíracího seznamu Hledat;
  • Konečně klikněte na tlačítko Najít vše tlačítko, všechny odpovídající buňky, které obsahují konkrétní text hypertextového odkazu, byly uvedeny do spodního seznamu.

3. Potom klepněte na tlačítko Nahradit vše tlačítko, staré cesty hypertextových odkazů byly změněny na nové najednou, viz screenshot:

Klikněte a stáhněte si zdarma Kutools pro Excel!


Více relativních článků:

  • Extrahujte skutečné adresy z hypertextových odkazů
  • Předpokládejme, že máte řadu buněk, které obsahují hypertextové odkazy, a nyní musíte vidět skutečné místo určení hypertextových odkazů a extrahovat je z hypertextových odkazů, jak je znázorněno na následujícím obrázku. Existují nějaké snadné způsoby, jak tento problém rychle vyřešit?
  • Převést adresy URL obrázků na skutečné obrázky v aplikaci Excel
  • Pokud máte seznam adres URL obrázků ve sloupci A a nyní, chcete si stáhnout odpovídající obrázky z adres URL a zobrazit je do sousedního sloupce B, jak je zobrazen snímek obrazovky vlevo. Jak můžete v aplikaci Excel rychle a snadno extrahovat skutečné obrázky z adres URL obrázků?
  • Převést text URL na klikatelný hypertextový odkaz v aplikaci Excel
  • Předpokládejme, že máte v listu více adres URL, ale nejsou propojeny, a nyní musíte převést všechny nepropojené adresy URL na klikatelné hypertextové odkazy, jak je znázorněno na následujících obrázcích. Samozřejmě je můžete poklikat jeden po druhém, aby na ně bylo možné kliknout, ale bude to časově náročné, pokud existuje spousta adres URL. Jak můžete v aplikaci Excel automaticky převést více nepropojených adres URL na klikatelné hypertextové odkazy?

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 (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
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