Salt la conținutul principal

Cum se schimbă mai multe căi de hyperlink simultan în Excel?

Într-un anumit scop, puteți crea mai multe hyperlinkuri pentru datele dvs. în foaia de lucru și toate hyperlink-urile sunt legate de aceeași cale de fișier sau adresă, dar acum, trebuie să înlocuiți această cale de hyperlink cu altă adresă la un moment dat. Dacă schimbați în mod individual calea hyperlinkurilor, puteți pierde mult timp, există o modalitate rapidă de a rezolva această problemă?

Schimbați mai multe căi de hyperlink simultan într-o foaie de lucru cu cod VBA

Schimbați mai multe căi de hyperlink simultan într-o foaie de lucru / registru de lucru / foi multiple / selecție cu o caracteristică uimitoare


Schimbați mai multe căi de hyperlink simultan într-o foaie de lucru cu cod VBA

Presupunând că aveți o listă de date cu aceleași hyperlinkuri ca și următoarea captură de ecran prezentată și cu un cod VBA, puteți înlocui rapid vechea cale a fișierului sau adresa dintr-o foaie de lucru cu una nouă.

1. Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Fereastra modulului.

Cod VBA: modificați mai multe căi de hyperlink simultan

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. Apoi apăsați F5 pentru a rula acest cod și o casetă de prompt pentru a vă permite să introduceți vechea adresă de hyperlink în Text vechi cutie. Vedeți captura de ecran:

4. Clic OK, și se afișează o altă casetă de prompt pentru a vă reaminti introducerea noii adrese de hyperlink pe care doriți să o utilizați.

5. Apoi faceți clic pe OK, toate aceleași adrese de hyperlink vechi au fost înlocuite cu una nouă deodată. Vedeți capturi de ecran:


Schimbați mai multe căi de hyperlink simultan într-o foaie de lucru / registru de lucru / foi multiple / selecție cu o caracteristică uimitoare

Dacă doriți să înlocuiți căile de hyperlink dintr-o selecție, mai multe foi, coloana de lucru curentă sau mai multe registre de lucru, cum ați putea face? Cu Găsiți și înlocuiți caracteristică a Kutools pentru Excel, vă puteți ocupa rapid de această sarcină.

Notă:Pentru a aplica acest lucru Găsiți și înlocuiți utilitar, în primul rând, ar trebui să descărcați fișierul Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools > Navigare, vezi captura de ecran:

2. În deschise Navigare fereastră, faceți clic pe Găsiți și înlocuiți în tabul Găsiți și înlocuiți fereastră, faceți clic pe Înlocui , apoi efectuați următoarele operații:

  • Introduceți textul vechi al hyperlinkului pe care doriți să îl găsiți în Gaseste ce , apoi tastați noul text cu hyperlink pe care doriți să îl înlocuiți în Înlocui cu casetă de text;
  • Specificați domeniul în care doriți să găsiți și înlocuiți calea hyperlinkului din În lista verticală;
  • Apoi, selectați hyperlinkuri din meniul derulant Look in;
  • În cele din urmă, faceți clic pe Găsiți toate buton, toate celulele corespunzătoare care conțin textul hyperlinkului specific au fost listate în caseta de listă de jos.

3. Apoi apasa Înlocuiește-le pe toate , vechile căi de hyperlink au fost schimbate în cele noi simultan, vezi captura de ecran:

Faceți clic pentru a descărca Kutools pentru Excel pentru încercare gratuită!


Mai multe articole relative:

  • Extrageți adresele reale din hyperlinkuri
  • Presupunând că aveți o gamă de celule care conțin hyperlinkuri, iar acum trebuie să vedeți destinația reală a hyperlink-urilor și să le extrageți din hyperlink-uri, după cum se arată în următoarea captură de ecran. Există modalități ușoare de a rezolva această problemă rapid?
  • Convertiți adresele URL ale imaginilor în imagini reale în Excel
  • Dacă aveți o listă de adrese URL de imagine în coloana A și acum, doriți să descărcați imaginile corespunzătoare din adresele URL și să le afișați în coloana B alăturată, așa cum este afișat ecranul din stânga. În Excel, cum ați putea extrage imaginile reale din adresele URL ale imaginilor rapid și ușor?
  • Convertiți textul URL în hiperlink pe care se poate face clic în Excel
  • Presupunând că aveți mai multe adrese URL în foaia de lucru, dar acestea nu sunt legate, iar acum trebuie să convertiți toate adresele URL neconectate în hyperlinkuri care pot fi făcute clic, după cum se arată în următoarele capturi de ecran. Desigur, puteți face dublu clic pe ele unul câte unul pentru a le face clic, dar acest lucru va consuma mult timp dacă există o mulțime de adrese URL. Cum ați putea converti mai multe adrese URL neconectate în hyperlinkuri care pot fi făcute clic automat în Excel?
  • Deschideți o pagină specifică a documentului PDF din hyperlinkul Excel
  • Când conectați o celulă la un fișier PDF, în mod normal, veți merge la prima pagină a fișierului PDF când faceți clic pentru a deschide hyperlinkul. Dacă trebuie să treceți direct la o anumită pagină a fișierului PDF făcând clic pe hyperlink, acest articol vă poate face o favoare.

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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