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

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ší 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 (45)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Úžasné, ušetřilo mi to spoustu úsilí.
Tento komentář byl moderátorem webu minimalizován
líbí se mi to, ušetříš mi spoustu práce.
Tento komentář byl moderátorem webu minimalizován
Ahoj, mohl bys mi dát VB kód, pokud potřebuji změnit odkazy v Powerpointu místo Excelu? dík
Tento komentář byl moderátorem webu minimalizován
Ahoj, zdá se, že to funguje skvěle, ale některé znaky (například "\" a "%"). V mém případě mám hypertextové adresy jako [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] a Potřebuji dostat start [../../../../../../Application%20Data/Microsoft/] z adresy ze stovek odkazů. Začátek odkazů je stejný, ale konce jsou jiné. Máte nějakou dobrou radu?
Tento komentář byl moderátorem webu minimalizován
dík!!!! :lol: to hodně pomohlo.
Tento komentář byl moderátorem webu minimalizován
Jak bych to změnil, abych aktualizoval hypertextové odkazy, které odkazují na odkazy v sešitu, nikoli na externí webové adresy?
Tento komentář byl moderátorem webu minimalizován
Potřeboval jsem to samé, zkuste tyto změny: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.WActiveSheet Set Application.ActiveWorkbook xOld = Application.InputBox("Starý text:", xTitleId, "", Typ:=2) xNew = Application.InputBox("Nový text:", xTitleId, "", Typ:=2) Pro každý Ws In Wb.Worksheets 'Application.ScreenUpdating = False For Every xHyperlink In Ws.Hyperlinks Debug.Print ("voy" & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Updating Next Application. End Sub
Tento komentář byl moderátorem webu minimalizován
mauricio- jsi úžasný! Dík! Také pro další přehled budu potřebovat, aby aktualizoval odkazy pouze na určených kartách, je to možné?
Tento komentář byl moderátorem webu minimalizován
Díky díky díky!!!!!!!! zachránil jsi mě za 2 dny práce tady
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak změnit více hypertextových odkazů „text k zobrazení“ současně?
Tento komentář byl moderátorem webu minimalizován
Díky za skvělý program. Funguje JAKO CHARM..."WLC"
Tento komentář byl moderátorem webu minimalizován
Brilantní! Díky moc!!!!
Tento komentář byl moderátorem webu minimalizován
Ahoj lidi, co mi chybí, dostávám „Chyba kompilace – proměnná není definována“ pro XTitleId v Excelu 2013 :cry:
Tento komentář byl moderátorem webu minimalizován
Žádný strach, přišel jsem na to a nastavil jako řetězec
Tento komentář byl moderátorem webu minimalizován
moc to pomohlo, děkuji moc
Tento komentář byl moderátorem webu minimalizován
Toto je nejužitečnější článek Excel, jaký jsem kdy narazil. Měl jsem mnoho problémů, kdy se hypertextové odkazy v souboru poškodily, nebo jsem chtěl přesunout umístění některých souborů s hypertextovými odkazy, a aktualizace byla vždy velkým problémem. Můj programátor Excel neměl jednoduchou opravu. Toto funguje bezchybně. Jsem velmi vděčný - děkuji!
Tento komentář byl moderátorem webu minimalizován
Páni! To mi ušetřilo TOLIK ČASU. Jsi úžasný. Děkuji za sdílení!
Tento komentář byl moderátorem webu minimalizován
To je skvělé. Ušetřil jsi mi TOLIK ČASU. dnes. Děkuji za sdílení!
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát, že jste to rozvinuli! Měl jsem uživatele, který vytvořil spoustu hypertextových odkazů na více kartách (alespoň několik stovek) a nějakým způsobem měli cestu k souboru k jeho složce AppData\Roaming na jeho jednotce c namísto k síťové složce. Byl jsem schopen použít váš skript VBA k odstranění této části kódu odkazu a nyní to vše funguje. Ušetřil nám pravděpodobně týdenní aktualizaci a implementace mi trvala méně než 2 minuty!
Tento komentář byl moderátorem webu minimalizován
Úžasný. Fungovalo jako kouzlo na Excel 2013, nebylo nutné žádné ladění, na rozdíl od podobných oprav, které jsem u tohoto problému viděl. Strašně moc DĚKUJI. Ušetřil masivní bolest hlavy a hodiny času.
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem to spustit na hypertextových odkazech, které obsahují odkaz na jiné složky, ale nefungovalo to. Jak bych to změnil, abych aktualizoval hypertextové odkazy, které odkazují na složky na pevném disku, nikoli na externí webové adresy?
Zatím zde nejsou žádné komentáře
Načíst další
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