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

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (45)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Uimitor mi-a economisit mult efort.
Acest comentariu a fost redus la minimum de moderatorul de pe site
iubesc, îmi economisești o tonă de muncă.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, ați putea să-mi dați codul VB dacă trebuie să schimb linkurile în Powerpoint în loc de Excel? Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, pare să funcționeze grozav, dar unele caractere (de exemplu „\” și „%”). În cazul meu, am adrese de hyperlink ca [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] și Trebuie să pornesc [../../../../../../Application%20Data/Microsoft/] departe de adresă de la sute de link-uri. Începutul legăturilor este același, dar sfârșitul este diferit. Ai vreun sfat bun?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumiri!!!! :lol: asta a ajutat foarte mult.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum aș schimba acest lucru pentru a actualiza hyperlinkurile care fac trimiteri la referințe dintr-un registru de lucru, mai degrabă decât adresele web externe?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Avem nevoie de același lucru, încercați aceste modificări: 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.ActiveSheet Application.ActiveWorkbook xOld = Application.InputBox("Text vechi:", xTitleId, "", Type:=2) xNew = Application.InputBox("Text nou:", xTitleId, "", Type:=2) Pentru fiecare Ws În Wb.Worksheets, „Application.ScreenUpdating = False For Each xHyperlink In Ws.Hyperlinks Debug.Print („voy” și xHyperlink.SubAddress) xHyperlink.SubAddress = Înlocuire(xHyperlink.SubAddress, xOld, xNew = Creeen NextpdatingS) Următoarea aplicație. End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
mauricio- Ești minunat! Mulțumiri! De asemenea, pentru un alt raport, voi avea nevoie de el doar pentru a actualiza link-urile doar din filele specificate, este posibil?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc multumesc !!!!!!!! m-ai salvat pentru 2 zile de muncă aici
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a modifica mai multe hyperlinkuri „text de afișat” în același timp?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru o bucată genială de program. Funcționează ca un farmec... „WLC”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sclipitor! Mulțumesc mult!!!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, băieți, ce îmi lipsește, primesc „Eroare de compilare - Variabila nedefinită” pentru XTitleId în Excel 2013 :cry:
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu-ți face griji, mi-am dat seama și am stabilit ca un șir
Acest comentariu a fost redus la minimum de moderatorul de pe site
a fost de mare ajutor, mulțumesc foarte mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este cel mai util articol Excel pe care l-am întâlnit vreodată. Am avut multe probleme în care hyperlinkurile dintr-un fișier devin corupte sau vreau să mut locația unor fișiere hyperlinkate, iar actualizarea a fost întotdeauna o problemă majoră. Programatorul meu Excel nu a avut o soluție simplă. Acest lucru funcționează ireproșabil. Sunt foarte recunoscător - mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Wow! Acest lucru m-a economisit ATÂT.MULT.TIMP. Esti minunata. Mulțumesc pentru împărtășire!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru este genial. M-ai economisit ATÂT.MULT.TIMP. azi. Mulțumesc pentru împărtășire!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc foarte mult pentru dezvoltarea acestui lucru! Am avut un utilizator care a creat o grămadă de hyperlinkuri pe mai multe file (cel puțin câteva sute) și aveau cumva o cale de fișier către folderul AppData\Roaming de pe unitatea lui c în loc de către folderul de rețea. Am putut folosi scriptul dvs. VBA pentru a elimina acea parte a codului de link și acum totul funcționează. Ne-a economisit probabil o săptămână de actualizare și mi-a luat mai puțin de 2 minute să le implementez!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Uimitor. A funcționat ca un farmec pe Excel 2013, nu este necesară nicio modificare, spre deosebire de remedieri similare pe care le-am văzut pentru această problemă. VA MULTUMESC foarte mult. Salvat o durere de cap masivă și ore de timp.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat să-l rulez pe hyperlinkuri care conțin referințe la alte foldere, dar nu a funcționat. Cum aș schimba acest lucru pentru a actualiza hyperlinkurile care fac trimitere la foldere dintr-un hard disk, mai degrabă decât adrese web externe?
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL