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

Πώς να μετατρέψετε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους στο Excel;

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

doc ενεργοποίηση υπερσυνδέσμων 1

Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους με τύπους

Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους με κώδικα VBA

Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους Kutools για Excel


βέλος μπλε δεξιά φούσκα Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους με τύπους

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

Εισαγάγετε αυτόν τον τύπο: = HYPERLINK (A2, A2) σε ένα κενό κελί όπου θέλετε να εξάγετε το αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να εφαρμόσετε αυτόν τον τύπο στα κελιά που θέλετε και όλες οι διευθύνσεις URL κειμένου έχουν μετατραπεί σε ενεργούς υπερσυνδέσμους, δείτε το στιγμιότυπο οθόνης:

doc ενεργοποίηση υπερσυνδέσμων 2


βέλος μπλε δεξιά φούσκα Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους με κώδικα VBA

Ο παρακάτω κώδικας VBA μπορεί επίσης να σας βοηθήσει να επιλύσετε αυτήν την εργασία, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους:

Sub activateHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τα κελιά που θέλετε να μετατρέψετε σε υπερ-συνδέσεις με δυνατότητα κλικ, δείτε το στιγμιότυπο οθόνης

doc ενεργοποίηση υπερσυνδέσμων 3

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

doc ενεργοποίηση υπερσυνδέσμων 4


βέλος μπλε δεξιά φούσκα Μετατρέψτε μια δέσμη διευθύνσεων URL κειμένου σε ενεργούς υπερσυνδέσμους Kutools για Excel

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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

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

1. Επιλέξτε τα κελιά που περιέχουν τις διευθύνσεις URL κειμένου που θέλετε να ενεργοποιήσετε.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Σύνδεσμος > Μετατροπή υπερσυνδέσμων, δείτε το στιγμιότυπο οθόνης:

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

doc ενεργοποίηση υπερσυνδέσμων 6

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

doc ενεργοποίηση υπερσυνδέσμων 4

Note: Εάν θέλετε να τοποθετήσετε το αποτέλεσμα σε άλλο κελί αντί για το αρχικό κελί, καταργήστε την επιλογή του Μετατροπή πηγής εύρος και επιλέξτε ένα κελί όπου πρέπει να εξάγετε το αποτέλεσμα από το εύρος αποτελεσμάτων όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

doc ενεργοποίηση υπερσυνδέσμων 7

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

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
LA OPCION 2:
Convierta un montón de URL de texto en hipervínculos activos con código VBA

ANDA PERFECTO!
GRACIAS!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Tak for input, men jeg kunne ikke få konverteringen til at virke.

Den skrev bare en lang liste text:

= HYPERLINK (A2, A2)

Problemet var, at du havde skrevet formlen med komma og ikke med semikolon.

Den rette formel er =hyperlink(A2;A2)
This comment was minimized by the moderator on the site
Thank you much!!!!
This comment was minimized by the moderator on the site
Спасибо большое за ваш труд
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations