Πώς να μετατρέψετε μια δέσμη διευθύνσεων 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 : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:
1. Επιλέξτε τα κελιά που περιέχουν τις διευθύνσεις URL κειμένου που θέλετε να ενεργοποιήσετε.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Σύνδεσμος > Μετατροπή υπερσυνδέσμων, δείτε το στιγμιότυπο οθόνης:
3. Στην Μετατροπή υπερσυνδέσμων , επιλέξτε Το περιεχόμενο των κυττάρων αντικαθιστά τις διευθύνσεις υπερσυνδέσμων επιλογή βάσει του Μετατροπή τύπου ενότητα και, στη συνέχεια, ελέγξτε Μετατροπή πηγής εύρος εάν θέλετε να βάλετε τις πραγματικές διευθύνσεις στο αρχικό εύρος, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί και οι διευθύνσεις URL κειμένου έχουν ενεργοποιηθεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:
Note: Εάν θέλετε να τοποθετήσετε το αποτέλεσμα σε άλλο κελί αντί για το αρχικό κελί, καταργήστε την επιλογή του Μετατροπή πηγής εύρος και επιλέξτε ένα κελί όπου πρέπει να εξάγετε το αποτέλεσμα από το εύρος αποτελεσμάτων όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
