Ugrás a tartalomra

Hogyan lehet egyszerre több hiperhivatkozási utat módosítani az Excelben?

Bizonyos célokból több hiperhivatkozást is létrehozhat az adataihoz a munkalapon, és az összes hiperhivatkozás ugyanahhoz a fájl elérési útjához vagy címéhez kapcsolódik, de most ezt a hiperhivatkozási útvonalat egyszerre másik címre kell cserélnie. A hiperhivatkozások útjának egyenkénti megváltoztatása sok időt pazarolhat, van-e gyors megoldás a probléma megoldására?

Egyszerre több hiperhivatkozási útvonalat is módosíthat egy VBA kóddal ellátott munkalapon

Csináljon egyszerre több hiperhivatkozási utat egy munkalapon / munkafüzetben / több lapban / kijelölésben, csodálatos funkcióval


Egyszerre több hiperhivatkozási útvonalat is módosíthat egy VBA kóddal ellátott munkalapon

Tegyük fel, hogy van olyan adatlistája, amely ugyanazokkal a hiperhivatkozásokkal rendelkezik, mint az alábbi képernyőképen, és egy VBA-kóddal gyorsan lecserélheti a munkalapon található régi fájl elérési utat vagy címet egy újra.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak.

VBA kód: egyszerre több hiperhivatkozási útvonal módosítása

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és egy felszólító mező, amely lehetővé teszi a régi hiperhivatkozás címének a Régi szöveg doboz. Lásd a képernyőképet:

4. Kattints OK, és egy újabb prompt doboz jelenik meg, amely emlékezteti Önt a használni kívánt új hiperhivatkozás címének megadására.

5. Kattintson a gombra OK, ugyanazokat a régi hiperhivatkozási címeket egyszerre cserélte le az új. Képernyőképek megtekintése:


Csináljon egyszerre több hiperhivatkozási utat egy munkalapon / munkafüzetben / több lapban / kijelölésben, csodálatos funkcióval

Ha ki akarja cserélni a hiperhivatkozás útvonalait egy kijelölésből, több lapból, az aktuális munkafüzetből vagy több munkafüzetből, hogyan teheti meg? Val vel Keresés és csere jellemzője Kutools az Excel számára, gyorsan kezelheti ezt a feladatot.

Jegyzet:Ennek alkalmazásához Keresés és csere segédprogram, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > Navigáció, lásd a képernyőképet:

2. A nyitottban Navigáció tetején kattintson a gombra Keresse meg és cserélje ki fül, a Keresés és csere tetején kattintson a gombra Cserélje lapon, majd hajtsa végre a következő műveleteket:

  • Írja be a régi hiperhivatkozás szövegét, amelyet keresni szeretne Mit keres szövegmezőbe, majd írja be a helyettesíteni kívánt új hiperhivatkozás szövegét a Cserélje ki szövegdoboz;
  • Adja meg azt a kört, ahol meg szeretné találni, és cserélje le a hiperhivatkozás elérési útját a Belül legördülő lista;
  • Ezután válassza a Hiperhivatkozások lehetőséget a Nézet legördülő menüből;
  • Végül kattintson Találd meg mindet gombra, az összes megfelelő cella, amely tartalmazza a konkrét hivatkozást, fel van sorolva az alsó listamezőbe.

3. Ezután kattints a gombra Az összes cseréje gombra, a régi hiperhivatkozási utakat egyszerre cserélték újakra, lásd a képernyőképet:

Kattintson a Kutools for Excel letöltéséhez ingyenes próbaverzióért!


Relatívabb cikkek:

  • Kivonat a tényleges címeket a hiperhivatkozásokból
  • Tételezzük fel, hogy vannak olyan cellatartományai, amelyek hiperhivatkozásokat tartalmaznak, és most meg kell látnia a hiperhivatkozások valódi rendeltetési helyét, és ki kell vonnia őket a hiperhivatkozásokból az alábbi képernyőkép szerint. Vannak-e egyszerű módszerek a probléma gyors megoldására?
  • Kép URL-ek konvertálása tényleges képekké az Excelben
  • Ha az A oszlopban szerepel a kép URL-címeinek listája, akkor most le akarja tölteni a megfelelő képeket az URL-ekről, és a bal oldali képernyőképen megjeleníti a szomszédos B oszlopban. Az Excelben hogyan lehetne gyorsan és egyszerűen kivonni a tényleges képeket a kép URL-jéből?
  • Az URL-szöveg konvertálása kattintható hiperhivatkozássá az Excelben
  • Tételezzük fel, hogy több URL is van a munkalapon, de ezek nincsenek összekapcsolva, és most az összes leválasztatlan URL-t át kell konvertálni kattintható hiperhivatkozássá, az alábbi képernyőképek szerint. Természetesen duplán kattinthat rájuk, hogy kattinthatóvá váljanak, de ez sok időt igényel, ha sok URL van. Hogyan konvertálhat több összekapcsolhatatlan URL-t kattintható hiperhivatkozássá automatikusan az Excelben?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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