Preskoči na glavno vsebino

Kako spremeniti več poti hiperpovezav hkrati v Excelu?

Za določen namen lahko na delovnem listu ustvarite več hiperpovezav za svoje podatke in vse hiperpovezave so povezane z isto potjo datoteke ali naslovom, zdaj pa morate to pot hiperpovezave hkrati zamenjati z drugim naslovom. Če želite spremeniti pot hiperpovezav posamezno, lahko zapravite veliko časa, ali obstaja hiter način za rešitev te težave?

Spremenite več poti hiperpovezav hkrati na delovnem listu s kodo VBA

Spremenite več poti hiperpovezav hkrati na delovnem listu / delovnem zvezku / več listih / izboru z neverjetno funkcijo


Spremenite več poti hiperpovezav hkrati na delovnem listu s kodo VBA

Recimo, da imate seznam podatkov z enakimi hiperpovezavami, kot je prikazano na spodnjem posnetku zaslona, ​​in s kodo VBA lahko staro pot datoteke ali naslov na delovnem listu hitro zamenjate z novo.

1. Drži dol ALT + F11 in odpre tipko Okno Microsoft Visual Basic za aplikacije.

2. klik Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.

Koda VBA: spremenite več poti hiperpovezav hkrati

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. Nato pritisnite F5 za zagon te kode in pozivno polje za vnos starega naslova hiperpovezave v Staro besedilo škatla. Oglejte si posnetek zaslona:

4. Kliknite OK, in novo okno s pozivom se prikaže, da vas opomni, da vnašate nov naslov hiperpovezave, ki ga želite uporabiti.

5. In nato kliknite OK, so vsi isti stari naslovi hiperpovezav zamenjani z novimi hkrati. Oglejte si posnetke zaslona:


Spremenite več poti hiperpovezav hkrati na delovnem listu / delovnem zvezku / več listih / izboru z neverjetno funkcijo

Če želite nadomestiti poti hiperpovezav iz izbora, več listov, trenutnega dela ali več delovnih zvezkov, kako bi to lahko storili? S Poišči in zamenjaj značilnost Kutools za Excel, lahko hitro rešite to nalogo.

Opomba:Če želite uporabiti to Poišči in zamenjaj pripomoček, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Kliknite Kutools > ostalo, glej posnetek zaslona:

2. V odprti ostalo podokno, kliknite Poiščite in nadomestite jeziček, v Poišči in zamenjaj podokno, kliknite Zamenjaj in nato naredite naslednje:

  • V polje vnesite staro besedilo hiperpovezave, ki ga želite najti Našli kaj in vnesite novo besedilo hiperpovezave, ki ga želite zamenjati, v Zamenjaj z besedilno polje;
  • Določite obseg, v katerem želite najti in nadomestiti pot hiperpovezave iz V okviru spustni seznam;
  • Nato v spustnem meniju Pogled v izberite Hiperpovezave;
  • Končno kliknite Poišči vse V spodnjem seznamu so navedene vse ustrezne celice, ki vsebujejo določeno besedilo hiperpovezave.

3. Nato kliknite Zamenjaj vse gumba so stare poti hiperpovezav hkrati spremenjene v nove, glejte posnetek zaslona:

Kliknite za prenos brezplačnega preizkusa Kutools za Excel!


Več relativnih člankov:

  • Izvlecite dejanske naslove iz hiperpovezav
  • Recimo, da imate vrsto celic, ki vsebujejo hiperpovezave, zdaj pa morate videti pravi cilj hiperpovezav in jih izvleči iz hiperpovezav, kot je prikazano na spodnji sliki zaslona. Ali obstajajo enostavni načini za hitro reševanje te težave?
  • Pretvorite URL-je slik v dejanske slike v Excelu
  • Če imate v stolpcu A seznam naslovov URL-jev slike in želite zdaj iz URL-jev prenesti ustrezne slike in jih prikazati v sosednjem stolpcu B, kot je prikazano na levi sliki zaslona. Kako lahko v Excelu hitro in enostavno izvlečete dejanske slike iz URL-jev slik?
  • Pretvori besedilo URL-ja v hiperpovezavo, ki jo je mogoče klikniti, v Excelu
  • Recimo, da imate na delovnem listu več url-ov, vendar niso povezani, zdaj pa morate vse nepovezane URL-je pretvoriti v hiperpovezave, ki jih je mogoče klikniti, kot je prikazano na spodnjih zaslonih. Seveda jih lahko dvakrat kliknete enega za drugim, da jih lahko kliknete, vendar bo to zamudno, če bo URL-jev veliko. Kako lahko v Excelu samodejno pretvorite več nepovezanih URL-jev v hiperpovezave, ki jih je mogoče klikniti?
  • Odprite določeno stran dokumenta PDF iz hiperpovezave Excel
  • Ko celico povežete z datoteko PDF, se običajno odpre prva stran datoteke PDF, ko kliknete, da odprete hiperpovezavo. Če morate s klikom na hiperpovezavo neposredno skočiti na določeno stran datoteke PDF, vam bo ta članek morda naredil uslugo.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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