Membuat Hyperlink Ke Website dan Email Di Userform VBA Excel

 Aplikasi Excelku. Hyperlink adalah suatu objek yang merupakan acuan untuk membuka objek lainnya, Hyperlink ini bisa berupa teks ataupun gambar. Seperti halnya link yang ada didalam website yang biasa kita lihat, dimana jika klik sebuah link maka akan terbuka sebuah jendela baru yang sudah ditentukan sebelumnya.

Pada kesempatan ini Saya akan memberikan sebuah tutorial mengenai Cara Membuat Hyperlink Ke Website Ataupun Email Didalam Userform VBA Excel. Dimana saat di klik nantinya akan terbuka secara otomatis alamat website atau pun email yang sudah kita tentukan. Bagi Sobat Excel yang suka membuat aplikasi berbasis VBA Excel hal ini tentunya bisa kita manfaatkan sebagai media promosi ke pengguna (user) aplikasi yang kita buat tersebut.

Cara Membuat Hyperlink Ke Website dan Email Di Userform VBA Excel

Berikut ini langkah-langkah dalam membuat hyperlink didalam Userform VBA Excel :

1. Buat sebuah Userform didalam lembar kerja Visual Basic Ms. Excel, untuk ukurannya silahkan disesuaikan dengan keinginan masing-masing;
2. Pada contoh ini Saya akan membuat hyperlink berupa teks/tulisan, dan untuk membuatnya silahkan tambahkan sebuah label kedalam Userform yang sudah kita buat tadi;

3. Ubah nama label menjadi LabelLink, cara mengubah namanya adalah seperti berikut :

Ubah pada kolom Name dari yang tadinya Label1 menjadi LabelLink, seperti pada gambar di atas. Sesuaikan juga jenis font (huruf), warna, dan ukurannya sesuai dengan keingin/kebutuhan. 

4. Ubah Caption dari label tadi, dan pada contoh ini Saya mengubah menjadi Aplikasi Excelku. 

Hasilnya akan menjadi seperti ini :

5. Sisipkan kode Macro di bawah ini kedalam Userform :

a. Kode Macro Hyperlink ke Website :

Private Sub LabelLink_Click()

ActiveWorkbook.FollowHyperlink Address:="https://aplikasiexcelku.blogspot.com", NewWindow:=True

Unload Me

End Sub

Silahkan ganti alamat website sesuai dengan keinginan masing-masing, dan hapus kode Unload Me jika Sobat Excel tidak menginginkan Userform akan tertutup secara otomatis jika hypelink tersebut di klik.

b. Kode Macro Hyperlink ke Email :

Private Sub LabelLink_Click()

ActiveWorkbook.FollowHyperlink Address:="mailto:emailanda@apalah.com", NewWindow:=True

Unload Me

End Sub

Ganti emailanda@apalah.com menjadi alamat email yang Sobar Excel inginkan. Silahkan jalankan Userformnya dan klik pada label yang sudah kita sisipkan hyperlink tadi.

Demikian artikel tentang Membuat Hyperlink Ke Website dan Email Di Userform VBA Excel, mudah-mudahan apa yang sudah Saya sampaikan ini bisa bermanfaat untuk kita semuanya. Terimakasih atas kunjungannya, dan Salam belajar.

Share :