Hyperlinkurile invizibile vă vor cauza uneori probleme. Și în acest articol, vom folosi VBA pentru a găsi hyperlinkuri invizibile în foaia de lucru Excel.
În această imagine de mai jos, puteți vedea că toate celulele au același format. Dar există unele hyperlinkuri invizibile între acele celule.
Când trebuie să selectați o celulă, cu siguranță veți folosi mouse-ul și faceți clic pe ea. Dar dacă celula conține un hyperlink invizibil, computerul va lansa imediat browserul și va deschide hyperlinkul. Acest lucru este foarte iritant pentru că doriți doar să selectați celula. Prin urmare, trebuie să găsiți hyperlinkurile invizibile pentru a evita o astfel de problemă.
Găsiți hyperlinkuri invizibile
Pentru a găsi acele hyperlinkuri invizibile, acum puteți urma pașii de mai jos.
- Apăsați tastele de comandă rapidă „Alt + F11” de pe tastatură.
- Apoi, în editorul Visual Basic, faceți clic pe butonul „Insert” din bara de instrumente.
- După aceea, alegeți opțiunea „Modul” din submeniu.
- Acum introduceți următoarele coduri în noul modul:
Sub FindHyperlinks()
Dim h ca interval
Pentru fiecare h din ActiveSheet.UsedRange
Dacă h.Hyperlinks.Count = 1, atunci
h.Interior.Color = vbYellow
Final, dacă
Următoarea h
End Sub
În aceste coduri VBA, folosim metoda Count pentru a judeca dacă există un hyperlink. Dacă există un hyperlink, celula va fi umplută cu culoare galbenă. Dacă trebuie să găsiți hyperlinkuri într-un anumit interval, puteți modifica și intervalul din coduri.
- Apoi apăsați butonul „F5” de pe tastatură. În plus, puteți de asemenea să faceți clic pe butonul „Run Sub” din bara de instrumente din editor.
Și apoi puteți reveni la foaia de lucru. Aici toate celulele cu hyperlink-uri sunt umplute cu o culoare specială. Astfel, puteți fi mai atent când trebuie să selectați acele celule.
În plus, dacă trebuie să eliminați acele hyperlinkuri, puteți consulta articolul nostru anterior 3 Metode practice pentru a elimina hyperlinkurile din celulele Excel. Dar dacă trebuie să ștergeți rapid hyperlinkurile prin VBA, puteți continua să citiți următoarea parte.
Eliminați hyperlinkurile invizibile
În această parte, puteți utiliza coduri VBA pentru a elimina rapid hyperlinkurile invizibile. Dar înainte de a face acest lucru, trebuie să vă asigurați că nu veți folosi acele hyperlinkuri.
- Repetați primii 3 pași și introduceți un nou modul.
- Acum introduceți următoarele coduri în modul:
Sub RemoveHyperlinks ()
Dim h ca interval
Pentru fiecare h din ActiveSheet.UsedRange
Dacă h.Hyperlinks.Count = 1, atunci
h.Hiperlinkuri.Șterge
Final, dacă
Următoarea h
End Sub
- După aceea, rulați sub-ul. Astfel, toate hyperlinkurile vor fi eliminate din foaia de lucru.
De asemenea, puteți reveni la foaia de lucru și puteți ajusta formatul în foaia de lucru. Prin acest proces, puteți elimina rapid toate hyperlinkurile invizibile.
Rulați un instrument puternic de reparații
Când descoperiți că Excel este corupt, ar trebui să încercați să remediați Excel imediat. Asta pentru că rezultatul coruperii datelor poate fi dezastruos. Pentru a reparați problema fișierului xlsx, acum puteți investi în instrumentul nostru terț. Acest instrument a fost folosit de multe victime ale coruperii fișierelor Excel. Aproape toate sunt mulțumite de rezultat. Prin urmare, nu ratați acest software.
Introducerea autorului:
Anna Ma este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați deteriorarea documentului document și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com