Μετάβαση στο κύριο περιεχόμενο

Πώς να αλλάξετε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα στο Excel;

Για κάποιο σκοπό, μπορείτε να δημιουργήσετε πολλαπλούς υπερσυνδέσμους για τα δεδομένα σας στο φύλλο εργασίας και όλοι οι υπερσύνδεσμοι συνδέονται με την ίδια διαδρομή αρχείου ή διεύθυνση, αλλά τώρα, πρέπει να αντικαταστήσετε αυτήν τη διαδρομή υπερσύνδεσης με άλλη διεύθυνση κάθε φορά. Για να αλλάξετε τη διαδρομή των υπερσυνδέσμων ξεχωριστά μπορεί να χάνετε πολύ χρόνο, υπάρχει ένας γρήγορος τρόπος επίλυσης αυτού του προβλήματος;

Αλλάξτε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα σε ένα φύλλο εργασίας με κώδικα VBA

Αλλάξτε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα σε ένα φύλλο εργασίας / βιβλίο εργασίας / πολλαπλά φύλλα / επιλογή με μια καταπληκτική δυνατότητα


Αλλάξτε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα σε ένα φύλλο εργασίας με κώδικα VBA

Ας υποθέσουμε ότι έχετε μια λίστα δεδομένων με τους ίδιους υπερσυνδέσμους όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης και με έναν κωδικό VBA, μπορείτε να αντικαταστήσετε γρήγορα την παλιά διαδρομή αρχείου ή διεύθυνση σε ένα φύλλο εργασίας με ένα νέο.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας.

Κωδικός VBA: αλλάξτε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα

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. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και ένα πλαίσιο προτροπής για να σας επιτρέψει να εισάγετε την παλιά σας διεύθυνση υπερσύνδεσης στο Παλιό κείμενο κουτί. Δείτε το στιγμιότυπο οθόνης:

4. Κλίκ OKκαι εμφανίζεται ένα άλλο πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε τη νέα διεύθυνση υπερσύνδεσης που θέλετε να χρησιμοποιήσετε.

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλες οι ίδιες παλιές διευθύνσεις υπερ-σύνδεσης έχουν αντικατασταθεί από τη νέα ταυτόχρονα. Δείτε στιγμιότυπα οθόνης:


Αλλάξτε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα σε ένα φύλλο εργασίας / βιβλίο εργασίας / πολλαπλά φύλλα / επιλογή με μια καταπληκτική δυνατότητα

Εάν θέλετε να αντικαταστήσετε τις διαδρομές υπερσύνδεσης από μια επιλογή, πολλά φύλλα, τρέχον workkook ή πολλά βιβλία εργασίας, πώς θα μπορούσατε να το κάνετε; Με Εύρεση και αντικατάσταση χαρακτηριστικό του Kutools για Excel, μπορείτε να αντιμετωπίσετε γρήγορα αυτήν την εργασία.

Σημείωση:Για να το εφαρμόσετε Εύρεση και αντικατάσταση βοηθητικό πρόγραμμα, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools > Πλοήγηση, δείτε το στιγμιότυπο οθόνης:

2. Στο άνοιγμα Πλοήγηση Παράθυρο, κάντε κλικ στο κουμπί Βρίσκω και αντικαθιστώ στην καρτέλα Εύρεση και αντικατάσταση Παράθυρο, κάντε κλικ στο κουμπί Αντικαταστήστε καρτέλα και, στη συνέχεια, κάντε τις ακόλουθες λειτουργίες:

  • Εισαγάγετε το παλιό κείμενο υπερσύνδεσης που θέλετε να βρείτε στο βρείτε αυτό πλαίσιο κειμένου και, στη συνέχεια, πληκτρολογήστε το νέο κείμενο υπερσύνδεσης με το οποίο θέλετε να αντικαταστήσετε στο Αντικατάσταση με πλαίσιο κειμένου;
  • Καθορίστε το εύρος στο οποίο θέλετε να βρείτε και αντικαταστήστε τη διαδρομή υπερσύνδεσης από το Εντός αναπτυσσόμενη λίστα
  • Στη συνέχεια, επιλέξτε Υπερσύνδεσμοι από το αναπτυσσόμενο μενού Look in.
  • Επιτέλους, κάντε κλικ στο κουμπί Βρείτε όλα κουμπί, όλα τα αντίστοιχα κελιά που περιέχουν το συγκεκριμένο κείμενο υπερσύνδεσης έχουν καταχωριστεί στο πλαίσιο λίστας κάτω.

3. Στη συνέχεια, κάντε κλικ στο κουμπί Αντικατάσταση όλων κουμπί, οι παλιές διαδρομές υπερσύνδεσης έχουν αλλάξει σε νέες ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

Κάντε κλικ για λήψη του Kutools για Excel για δωρεάν δοκιμή!


Σχετικά άρθρα:

  • Εξαγωγή πραγματικών διευθύνσεων από υπερσυνδέσμους
  • Ας υποθέσουμε ότι έχετε μια σειρά κελιών που περιέχουν υπερσυνδέσμους και τώρα πρέπει να δείτε τον πραγματικό προορισμό των υπερσυνδέσμων και να τα εξαγάγετε από τους υπερσυνδέσμους όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Υπάρχουν εύκολοι τρόποι για γρήγορη επίλυση αυτού του προβλήματος;
  • Μετατροπή διευθύνσεων URL εικόνας σε πραγματικές εικόνες στο Excel
  • Εάν έχετε μια λίστα διευθύνσεων URL εικόνας στη στήλη Α και τώρα, θέλετε να κατεβάσετε τις αντίστοιχες εικόνες από τις διευθύνσεις URL και να τις εμφανίσετε στην παρακείμενη στήλη Β όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης. Στο Excel, πώς μπορείτε να εξαγάγετε τις πραγματικές εικόνες από τις διευθύνσεις URL εικόνας γρήγορα και εύκολα;
  • Μετατροπή κειμένου url σε υπερ-σύνδεση με δυνατότητα κλικ στο Excel
  • Ας υποθέσουμε ότι έχετε πολλά URL στο φύλλο εργασίας σας, αλλά δεν είναι συνδεδεμένα και τώρα πρέπει να μετατρέψετε όλες τις αποσυνδεδεμένες διευθύνσεις URL σε υπερσυνδέσμους με δυνατότητα κλικ, όπως φαίνεται στα ακόλουθα στιγμιότυπα οθόνης. Φυσικά, μπορείτε να κάνετε διπλό κλικ σε ένα προς ένα για να τα κάνετε κλικ, αλλά αυτό θα είναι χρονοβόρο εάν υπάρχουν πολλά URL. Πώς θα μπορούσατε να μετατρέψετε πολλές συνδέσεις χωρίς σύνδεση σε υπερσυνδέσμους με δυνατότητα κλικ στο Excel;
  • Ανοίξτε μια συγκεκριμένη σελίδα εγγράφου PDF από υπερσύνδεσμο Excel
  • Όταν συνδέετε ένα κελί σε ένα αρχείο PDF, κανονικά, θα μεταβείτε στην πρώτη σελίδα του αρχείου PDF όταν κάνετε κλικ για να ανοίξετε τον υπερσύνδεσμο. Εάν πρέπει να μεταβείτε απευθείας σε μια συγκεκριμένη σελίδα του αρχείου PDF κάνοντας κλικ στον υπερσύνδεσμο, αυτό το άρθρο μπορεί να σας βοηθήσει.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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