Vai al contenuto principale

Come modificare più percorsi di collegamento ipertestuale contemporaneamente in Excel?

Per qualche scopo, è possibile creare più collegamenti ipertestuali per i dati nel foglio di lavoro e tutti i collegamenti ipertestuali sono collegati allo stesso percorso o indirizzo di file, ma ora è necessario sostituire questo percorso del collegamento ipertestuale con un altro indirizzo alla volta. Modificare individualmente il percorso dei collegamenti ipertestuali può far perdere molto tempo, esiste un modo rapido per risolvere questo problema?

Modifica più percorsi di collegamento ipertestuale contemporaneamente in un foglio di lavoro con codice VBA

Cambia più percorsi di collegamento ipertestuale contemporaneamente in un foglio di lavoro / cartella di lavoro / più fogli / selezione con una funzionalità straordinaria


Modifica più percorsi di collegamento ipertestuale contemporaneamente in un foglio di lavoro con codice VBA

Supponendo di avere un elenco di dati con gli stessi collegamenti ipertestuali mostrati nella seguente schermata e con un codice VBA, è possibile sostituire rapidamente il vecchio percorso o indirizzo del file in un foglio di lavoro con uno nuovo.

1. Tenere premuto il tasto ALT + F11 chiavi e apre il file Finestra Microsoft Visual Basic, Applications Edition.

2. Clicchi inserire > Modulie incolla la seguente macro nel file Finestra del modulo.

Codice VBA: modifica più percorsi di collegamento ipertestuale contemporaneamente

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. Quindi premere F5 chiave per eseguire questo codice e una finestra di messaggio per consentire di inserire il vecchio indirizzo del collegamento ipertestuale nel file Vecchio testo scatola. Vedi screenshot:

4. Clic OKe viene visualizzata un'altra finestra di messaggio per ricordarti di inserire il nuovo indirizzo del collegamento ipertestuale che desideri utilizzare.

5. E poi clicca OK, tutti gli stessi vecchi indirizzi di collegamento ipertestuale sono stati sostituiti da quello nuovo contemporaneamente. Vedi screenshot:


Cambia più percorsi di collegamento ipertestuale contemporaneamente in un foglio di lavoro / cartella di lavoro / più fogli / selezione con una funzionalità straordinaria

Se desideri sostituire i percorsi del collegamento ipertestuale da una selezione, più fogli, workkook corrente o più cartelle di lavoro, come potresti fare? Con Trova e sostituisci caratteristica di Kutools for Excel, puoi affrontare rapidamente questa attività.

Nota:Per applicare questo Trova e sostituisci utility, in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Clic Kutools > Navigazione, vedi screenshot:

2. In aperto Navigazione fai clic su Trova e sostituisci scheda, nel Trova e sostituisci fai clic su sostituire scheda, quindi eseguire le operazioni seguenti:

  • Immettere il vecchio testo del collegamento ipertestuale che si desidera trovare nel file Trova quello che casella di testo e quindi digitare il nuovo testo del collegamento ipertestuale che si desidera sostituire con nel file Sostituire con casella di testo;
  • Specificare l'ambito in cui si desidera trovare e sostituire il percorso del collegamento ipertestuale dal file Nel quadro di menu `A tendina;
  • Quindi, seleziona Collegamenti ipertestuali dall'elenco a discesa Cerca in;
  • Finalmente, clicca Trova tutto , tutte le celle corrispondenti che contengono il testo del collegamento ipertestuale specifico sono state elencate nella casella di riepilogo in basso.

3. Quindi, fare clic Sostituisci tutto pulsante, i vecchi percorsi del collegamento ipertestuale sono stati modificati in quelli nuovi contemporaneamente, vedi screenshot:

Fai clic per scaricare Kutools per Excel per la prova gratuita!


Articoli più relativi:

  • Estrai indirizzi effettivi da collegamenti ipertestuali
  • Supponendo di avere un intervallo di celle che contengono collegamenti ipertestuali e ora è necessario vedere la destinazione reale dei collegamenti ipertestuali ed estrarli dai collegamenti ipertestuali come mostrato nella seguente schermata. Esistono modi semplici per risolvere rapidamente questo problema?
  • Converti URL immagine in immagini reali in Excel
  • Se hai un elenco di indirizzi URL di immagini nella colonna A, e ora, vuoi scaricare le immagini corrispondenti dagli URL e visualizzarle nella colonna adiacente B come mostrato nell'immagine a sinistra. In Excel, come potresti estrarre le immagini reali dagli URL delle immagini in modo rapido e semplice?
  • Converti il ​​testo dell'URL in un collegamento ipertestuale cliccabile in Excel
  • Supponendo di avere più URL nel foglio di lavoro, ma non sono collegati, e ora è necessario convertire tutti gli URL non collegati in collegamenti ipertestuali cliccabili, come mostrato nelle schermate seguenti. Ovviamente puoi fare doppio clic su di essi uno per uno per renderli cliccabili, ma questo richiederà tempo se ci sono molti URL. Come è possibile convertire più URL non collegati in collegamenti ipertestuali cliccabili automaticamente in Excel?

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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