Görünməz hiperlinklər bəzən sizə problem yarada bilər. Və bu yazıda Excel iş vərəqinizdə görünməz hiperlinkləri tapmaq üçün VBA-dan istifadə edəcəyik.
Aşağıdakı bu şəkildə bütün xanaların eyni formata malik olduğunu görə bilərsiniz. Lakin bu hüceyrələr arasında bəzi görünməz hiperlinklər mövcuddur.
Hüceyrə seçmək lazım olduqda, əlbəttə ki, siçanınızdan istifadə edəcək və üzərinə klikləyəcəksiniz. Amma hüceyrədə görünməz hiperlink varsa, kompüter dərhal brauzeri işə salacaq və hiperlinki açacaq. Bu, çox qıcıqlandırıcıdır, çünki siz sadəcə hüceyrəni seçmək istəyirsiniz. Beləliklə, belə bir problemin qarşısını almaq üçün görünməz hiperlinkləri tapmaq lazımdır.
Görünməz Hiperlinkləri tapın
Həmin görünməz hiperlinkləri tapmaq üçün indi aşağıdakı addımları izləyə bilərsiniz.
- Klaviatura lövhəsində "Alt + F11" qısa yol düymələrini basın.
- Və sonra Visual Basic redaktorunda alətlər panelində "Daxil et" düyməsini basın.
- Bundan sonra, alt menyuda "Modul" seçimini seçin.
- İndi yeni modula aşağıdakı kodları daxil edin:
Sub FindHyperlinks()
Dim h Range kimi
ActiveSheet.UsedRange-də hər saat üçün
Əgər h.Hyperlinks.Count = 1 O zaman
h.İnteryer.Rəng = vbSarı
Axırıncı halda
Növbəti h
End Sub
Bu VBA kodlarında biz hiperlinkin olub-olmadığını mühakimə etmək üçün Count metodundan istifadə edirik. Hiperlink varsa, hüceyrə sarı rənglə doldurulacaq. Müəyyən diapazonda hiperlinkləri tapmaq lazımdırsa, siz kodlardakı diapazonu da dəyişə bilərsiniz.
- Sonra klaviaturada "F5" düyməsini basın. Bundan əlavə, redaktorun alətlər panelində "Abtı işə salın" düyməsini sıxa bilərsiniz.
Və sonra iş vərəqinə qayıda bilərsiniz. Burada hiperlink olan bütün xanalar xüsusi rənglə doldurulur. Beləliklə, bu hüceyrələri seçmək lazım olduqda daha diqqətli ola bilərsiniz.
Bundan əlavə, həmin hiperlinkləri silmək lazımdırsa, əvvəlki məqaləmizə müraciət edə bilərsiniz Excel Hüceyrələrində Hiperlinkləri Silmək üçün 3 Praktiki Metod. Lakin VBA tərəfindən hiperlinkləri tez bir zamanda silmək lazımdırsa, aşağıdakı hissəni oxumağa davam edə bilərsiniz.
Görünməz Hiperlinkləri silin
Bu hissədə siz görünməz hiperlinkləri tez silmək üçün VBA kodlarından istifadə edə bilərsiniz. Ancaq bunu etməzdən əvvəl həmin hiperlinklərdən istifadə etməyəcəyinizə əmin olmalısınız.
- İlk 3 addımı təkrarlayın və yeni modul daxil edin.
- İndi modula aşağıdakı kodları daxil edin:
Sub RemoveHyperlinks()
Dim h Range kimi
ActiveSheet.UsedRange-də hər saat üçün
Əgər h.Hyperlinks.Count = 1 O zaman
h.Hiperlinklər.Sil
Axırıncı halda
Növbəti h
End Sub
- Bundan sonra, alt işə salın. Beləliklə, bütün hiperlinklər iş vərəqindən silinəcək.
Siz həmçinin iş vərəqinə qayıdıb iş vərəqindəki formatı tənzimləyə bilərsiniz. Bu proses vasitəsilə siz bütün görünməz hiperlinkləri tez bir zamanda silə bilərsiniz.
Güclü Təmir Alətini işə salın
Excel-in xarab olduğunu tapdığınız zaman dərhal Excel-i düzəltməyə çalışmalısınız. Çünki məlumatların pozulmasının nəticəsi fəlakətli ola bilər. Üçün xlsx fayl problemini təmir edin, indi üçüncü tərəf alətimizə investisiya edə bilərsiniz. Bu alətdən bir çox Excel fayl korrupsiyası qurbanı istifadə edib. Demək olar ki, hamısı nəticədən məmnundur. Buna görə də, bu proqramı qaçırmayın.
Müəllif Giriş:
Anna Ma məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sənədlərin zədələnməsini təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com