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

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

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

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

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

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

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

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

Μετατρέψτε μια δέσμη διευθύνσεων 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 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τα κελιά που θέλετε να μετατρέψετε σε υπερ-συνδέσεις με δυνατότητα κλικ, δείτε το στιγμιότυπο οθόνης

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

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

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

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

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

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

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

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

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

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