Cara membuat HyperLinks Ke Web dan E-Mail Dengan UserForm Vba Excel
HyperLinks Ke Web dan E-Mail Dengan UserForm Vba Excel - Perhatikan gambar format gif dibawah..!! Pada UserForm Terdapat Label yang dapat diklik dan menuju ke Website tertentu yang diterapkan dalam kode Vba.
Caranya cukuplah mudah, ikuti saja posting ini hingga habis, Copy code dan terapkan ke Aplikasi yang sedang anda rancang.
 |
| HyperLinks Ke Web dan E-Mail Dengan UserForm Vba Excel |
Dengan penggunaan Hyperlink kita juga dapat membuat link help aplikasi ke link website yang sudah kita siapkan untuk dapat dipelajari oleh pengguna aplikasi.
Aplikasi yang mencantumkan tombol Help yang mengarahkan link tombol Help ke sebuat Webiste akan terlihat lebih keren.
Hyperlink perlu digunakan dalam aplikasi yang untuk promosi website yang kemungkinan besar oleh pengguna aplikasi akan mengunjunginya.
Ikuti langkah-langkah yang akan admin sajikan pada artikel ini.
Buatlah sebuah aplikasi percobaan dengan mengikuti langkah-langkah yang admin jelaskan.
Buatlah sebuah aplikasi percobaan dengan mengikuti langkah-langkah yang admin jelaskan.
Membuat aplikasi percobaan untuk menguji coba kode merupakan salah satu cara untuk memahami dan mengetahui fungsi dan cara kerja kode yang digunakan.
Cara bikin Hyperlink Ke Web dan E-Mail :
- Buka Excel, dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11. Jangan lupa disave dengan format Enable Macro atau Binary
- Pada Jendela Visual Basic rancang Aplikasi sesuai dengan gambar diatas. Tambahkan UserForm dengan Caption "HyperLinks To Web And E-Mail", tambahkan Label1 dengan Caption "www.senbakusen.com" atau dengan website anda, dan Label2 dengan Caption "senbakusen@gmail.com" atau dengan email anda.
- Klik kanan pada Label1 dengan Caption "www.senbakusen.com", pilih View Code dan masukkan kode berikut ini
Private Sub Label1_Click()
Link = "http://www.senbakusen.com"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
'Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub
Link = "http://www.senbakusen.com"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
'Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub
- Klik kanan pada Label2 dengan Caption "senbakusen@gmail.com", pilih View Code dan masukkan kode berikut ini
Private Sub Label2_Click()
Link = "mailto:senbakusen@gmail.com"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
'Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub
Link = "mailto:senbakusen@gmail.com"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
'Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub
- Selesai..!! Uji aplikasi dengan klik Run atau dengan menekan tombol F5 pada keyboard. Bila rancangan dan penempatan kode sudah anda ikuti dengan benar maka aplikasi akan berjalan seperti yang terlihat pada gambar gif diatas.
Bagi anda yang memiliki modifikasi lainnya share kode dikolom komentar. Bila artikel ini dirasakan bermanfaat mohon dapat dishare ke teman-teman lain melalui media sosial.
Sampaikan saran dan kritikan serta pertanyaan kepada admin melalui kotak komentar yang tersedia dibawah artikel ini.
Pak, tolong pada postingan nya input data pada file berbeda , tidak berjalan seperti yang bapak gambarkan
BalasHapusPunya saya digambar format gif berjlan.. mungkin masih ada yang salah tu... cek lagi perbaris kodenya
Hapus