3 εύκολοι τρόποι για να ανοίξετε πολλαπλούς υπερσυνδέσμους στο Excel σας

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

Σε ορισμένες περιπτώσεις, κατά την προβολή ενός αρχείου Excel που αποτελείται από πολλούς υπερσυνδέσμους, ίσως θελήσετε να ανοίξετε μαζικά πολλαπλούς υπερσυνδέσμους. Εάν υπάρχουν μόνο τρεις ή περισσότεροι σύνδεσμοι για να ανοίξετε, μπορείτε απλώς να χρησιμοποιήσετε τη Μέθοδο 1 παρακάτω. Ωστόσο, εάν θέλετε να ανοίξετε μαζικά όλους τους συνδέσμους στα εύρη που θέλετε, μπορείτε να χρησιμοποιήσετε τη Μέθοδο 2. Φυσικά, μερικές φορές, μπορεί να θέλετε να ανοίξετε μαζικά όλους τους συνδέσμους που είναι διάσπαρτοι σε ολόκληρο το βιβλίο εργασίας. Στη συνέχεια, μπορείτε να χρησιμοποιήσετε τον τελευταίο τρόπο.

Μέθοδος 1: Άνοιγμα χειροκίνητων υπερσυνδέσμων ένα προς ένα

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

Μέθοδος 2: Άνοιγμα μαζικών υπερσυνδέσμων σε επιλεγμένες περιοχές

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

1. Πρώτα απ 'όλα, ενεργοποιήστε τον επεξεργαστή VBA στο τρέχον αρχείο Excel σύμφωνα με το "Πώς να εκτελέσετε τον κώδικα VBA στο Excel σας".
2. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα σε μια ενότητα ή έργο.

Sub BatchOpenHyperLinks_SelectedRanges()
    Dim objSelectedRange As Excel.Range
    Dim objHyperlink As Excel.Hyperlink

    'Get selected ranges
    Set objSelectedRange = Excel.Application.Selection
    For Each objHyperlink In objSelectedRange.Hyperlinks
        objHyperlink.Follow
    Next
End Sub

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

Μέθοδος 3: Άνοιγμα όλων των υπερσυνδέσμων σε ένα βιβλίο εργασίας

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

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

Sub BatchOpenHyperLinks_Workbook()
    Dim objWorksheet As Excel.Worksheet
    Dim objSelectedRange As Excel.Range
    Dim objHyperlink As Excel.Hyperlink

    'Process each worksheet
    For Each objWorksheet In ThisWorkbook.Sheets
        For Each objHyperlink In objWorksheet.Hyperlinks
            objHyperlink.Follow
        Next
    Next
End Sub

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

Επιδιόρθωση ζητημάτων Excel

Όπως τα έγγραφα του Word, τα βιβλία εργασίας του Excel είναι πολύ ευάλωτα. Δηλαδή, τα αρχεία Excel μπορεί να είναι κατεστραμμένα για πολλούς παράγοντες, όπως μόλυνση από ιούς, ανθρώπινα σφάλματα και σφάλματα του Excel και ούτω καθεξής. Ως εκ τούτου, θα πρέπει να προετοιμάσετε ένα ισχυρό εργαλείο επιδιόρθωσης του Excel, όπως DataNumen Excel Repair, Η οποία μπορεί να ανακτήστε το Excel δεδομένα χωρίς να ιδρώνεις.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com