Cek Validitas Hyperlink Internal

Halo sobat, pada beberapa waktu yang lalu, mimin sudah memposting dan menjelaskan mengenai contoh code macro untuk membuat dan menghapus hyperlink. Nah, kali ini mimin akan sharing contoh macro untuk mengecek validitas hyperlink internal.

Apa yang dimaksud dengan hyperlink internal?

Hyperlink internal merupakan tautan dengan target masih berada dalam satu workbook yang sama. Misalnya pada bagian sel lain ataupun pada sheet yang lain. 

Kenapa hyperlink menjadi tidak valid?

Hyperlink internal menjadi tidak valid biasanya karena user men-delete sel atau sheet yang menjadi target alamat hyperlink. Selain itu, merubah nama sheet target hyperlink juga bisa menyebabkan hyperlink menjadi tidak valid.

Membuat Fungsi buatan sendiri untuk mengecek validitas hyperlink.

Dengan VBA kita bisa membuat fungsi sendiri atau UDF (User Defined Function) yang bisa digunakan untuk mengecek apakah sebuah sel memiliki hyperlink yang valid atau tidak. berikut fungsi yang mimin namai VALIDHL

Function VALIDHL(sel As Range) As Boolean Dim TestSubAddr As Range On Error GoTo skip VALIDHL = False Set TestSubAddr = Range(sel.Hyperlinks(1).SubAddress) VALIDHL = True Exit Function skip: End Function

VALIDHL akan menghasilkan nilai TRUE jika memiliki  hyperlink yang valid dan nilai FALSE jika tidak memiliki hyperlink atau memiliki hyperlink tetapi tidak valid.

Cara menggunakan code:

Setelah di copy paste ke module standar, fungsi VALIDHL bisa langsung digunakan. Caranya seperti menggunakan fungsi bawaan excel biasa.

Misalnya: untuk mengecek apakah sel "A1" mengandung hyperlink yang valid atau tidak, maka kita bisa mengetikan rumus di sel "A2" sebagai berikut:

= VALIDHL(A1)

Perhatikan contoh cara penggunaan fungsi VALIDHL di excel.

Menandai semua sel yang mengandung hyperlink tidak valid

Selain dengan menuliskan rumus VALIDHL di excel. Kita juga bisa menggunakan fungsi VALIDHL dalam sebuah macro untuk mengecek validitas hyperlink tiap-tiap sel dalam range terpilih.

Caranya dengan menambahkan code berikut ke dalam module VBA.

Sub CekDanTandaiBrokenHyperlinkInternal() Dim sel As Range, Target As Range Set Target = Selection For Each sel In Target If sel.Hyperlinks.Count > 0 Then If VALIDHL(sel) = False Then sel.Interior.Color = 13551615 sel.Font.Color = 393372 Else sel.Interior.Color = 16777215 sel.Font.Color = 12673797 End If End If Next End Sub

Cara menggunakan code 

• Pastikan code sub CekDanTandaiBrokenHyperlinkInternal beserta code fungsi VALIDHL sudah di copy paste di module vba dalam workbook yang sama.
• Pilih atau seleksi range yang ingin kamu cek apakah ada hyperlink yang tidak valid
• Jalankan macro (via Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

Jika proses sudah dijalankan dengan benar, maka kamu akan mendapati semua sel yang mengandung hyperlink yang tidak valid berwarna merah muda (style: bad)

*** 

Itulah contoh code macro VBA yang bisa kamu gunakan untuk mengecek dan menandai semua sel yang mengandung hyperlink tidak valid.

Jika sobat tertarik mengetahui lebih lanjut mengenai contoh-contoh code vba lainnya, silahkan telusuri konten blog ini via DAFTAR ISI. Atau barangkali sobat tertarik dengan materi dalam link di bawah ini, silahkan di intip dulu ya.

• Membuat dan menghapus hyperlink
• Menghapus Semua Gambar Sekaligus

Jika teman - teman ada kritik / saran / koreksi, jangan segan segan utuk tinggalkan kritik / saran / anda di kolom komentar. 

Salam...😎😎😎