Οι αόρατοι υπερσύνδεσμοι μερικές φορές θα σας προκαλέσουν προβλήματα. Και σε αυτό το άρθρο, θα χρησιμοποιήσουμε το VBA για να βρούμε αόρατους υπερσυνδέσμους στο φύλλο εργασίας του Excel.
Σε αυτήν την παρακάτω εικόνα, μπορείτε να δείτε ότι όλα τα κελιά έχουν την ίδια μορφή. Αλλά υπάρχουν μερικοί αόρατοι υπερσύνδεσμοι μεταξύ αυτών των κυττάρων.
Όταν πρέπει να επιλέξετε ένα κελί, σίγουρα θα χρησιμοποιήσετε το ποντίκι σας και θα κάνετε κλικ σε αυτό. Αλλά εάν το κελί περιέχει έναν αόρατο υπερσύνδεσμο, ο υπολογιστής θα ξεκινήσει αμέσως το πρόγραμμα περιήγησης και θα ανοίξει τον υπερσύνδεσμο. Αυτό είναι πολύ ενοχλητικό επειδή θέλετε απλώς να επιλέξετε το κελί. Ως εκ τούτου, πρέπει να βρείτε τους αόρατους υπερσυνδέσμους για να αποφύγετε ένα τέτοιο πρόβλημα.
Βρείτε αόρατους υπερσυνδέσμους
Για να βρείτε αυτούς τους αόρατους υπερσυνδέσμους, μπορείτε τώρα να ακολουθήσετε τα παρακάτω βήματα.
- Πατήστε τα πλήκτρα συντόμευσης "Alt + F11" στην πλακέτα πλήκτρων.
- Και μετά στον επεξεργαστή της Visual Basic, κάντε κλικ στο κουμπί "Εισαγωγή" στη γραμμή εργαλείων.
- Μετά από αυτό, ορίστε την επιλογή «Ενότητα» στο υπομενού.
- Τώρα εισαγάγετε τους ακόλουθους κωδικούς στη νέα ενότητα:
Υπο Εύρεση Υπερσύνδεσμοι ()
Dim h As Range
Για κάθε ώρα στο ActiveSheet.UsedRange
Εάν h.Hyperlinks.Count = 1 Τότε
h. Εσωτερικό. Χρώμα = vb Κίτρινο
End If
Επόμενη ώρα
Sub End
Σε αυτούς τους κωδικούς VBA, χρησιμοποιούμε τη μέθοδο Count για να κρίνουμε εάν υπάρχει υπερσύνδεσμος. Εάν υπάρχει υπερσύνδεσμος, το κελί θα γεμίσει με κίτρινο χρώμα. Εάν πρέπει να βρείτε υπερσυνδέσμους σε ένα συγκεκριμένο εύρος, μπορείτε επίσης να τροποποιήσετε το εύρος στους κωδικούς.
- Στη συνέχεια, πατήστε το κουμπί "F5" στο πληκτρολόγιο. Εκτός αυτού, μπορείτε επίσης να κάνετε κλικ στο κουμπί "Run Sub" στη γραμμή εργαλείων του προγράμματος επεξεργασίας.
Και μετά μπορείτε να επιστρέψετε στο φύλλο εργασίας. Εδώ όλα τα κελιά με υπερσυνδέσμους γεμίζουν με ένα ειδικό χρώμα. Έτσι, μπορείτε να είστε πιο προσεκτικοί όταν πρέπει να επιλέξετε αυτά τα κελιά.
Επιπλέον, εάν πρέπει να καταργήσετε αυτούς τους υπερσυνδέσμους, μπορείτε να ανατρέξετε στο προηγούμενο άρθρο μας 3 Πρακτικές μέθοδοι για την κατάργηση υπερ-συνδέσεων σε κελιά Excel. Αλλά αν πρέπει να διαγράψετε άμεσα τους υπερσυνδέσμους από το VBA, μπορείτε να συνεχίσετε να διαβάζετε το παρακάτω μέρος.
Κατάργηση αόρατων υπερσυνδέσμων
Σε αυτό το μέρος, μπορείτε να χρησιμοποιήσετε κωδικούς VBA για γρήγορη αφαίρεση αόρατων υπερσυνδέσμων. Αλλά πριν το κάνετε αυτό, πρέπει να βεβαιωθείτε ότι δεν θα χρησιμοποιήσετε αυτούς τους υπερσυνδέσμους.
- Επαναλάβετε τα πρώτα 3 βήματα και εισαγάγετε μια νέα ενότητα.
- Τώρα εισαγάγετε τους ακόλουθους κωδικούς στη λειτουργική μονάδα:
Υποκατάργηση Υπερσύνδεσμοι ()
Dim h As Range
Για κάθε ώρα στο ActiveSheet.UsedRange
Εάν h.Hyperlinks.Count = 1 Τότε
h. Υπερσύνδεσμοι. Διαγραφή
End If
Επόμενη ώρα
Sub End
- Μετά από αυτό, εκτελέστε το δευτερεύον. Έτσι, όλοι οι υπερσύνδεσμοι θα αφαιρεθούν από το φύλλο εργασίας.
Μπορείτε επίσης να επιστρέψετε στο φύλλο εργασίας και να προσαρμόσετε τη μορφή στο φύλλο εργασίας. Μέσω αυτής της διαδικασίας, μπορείτε να αφαιρέσετε γρήγορα όλους τους αόρατους υπερσυνδέσμους.
Εκτελέστε ένα ισχυρό εργαλείο επισκευής
Όταν εντοπίσετε το Excel σας καταστρέφει, θα πρέπει να προσπαθήσετε να διορθώσετε το Excel αμέσως. Αυτό συμβαίνει επειδή το αποτέλεσμα μιας διαφθοράς δεδομένων μπορεί να είναι καταστροφικό. Ωστε να επιδιορθώστε το πρόβλημα του αρχείου xlsx, μπορείτε τώρα να επενδύσετε στο εργαλείο τρίτου κατασκευαστή μας. Αυτό το εργαλείο έχει χρησιμοποιηθεί από πολλά θύματα αλλοίωσης αρχείων Excel. Σχεδόν όλα είναι ικανοποιημένα με το αποτέλεσμα. Επομένως, μην χάσετε αυτό το λογισμικό.
Εισαγωγή συγγραφέα:
Η Άννα Μα είναι ειδική ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή εγγράφων εγγράφων ζημιών και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com