Wednesday, November 16, 2016

Cara Bikin 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. Hyperlink perlu digunakan dalam aplikasi yang untuk promosi website yang kemungkinan besar oleh pengguna aplikasi akan mengunjunginya. 

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.


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
  • 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

  • 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.
Demikian Posting Cara Bikin HyperLinks Ke Web dan E-Mail Dengan UserForm Vba Excel. Semoga dapat dikembangkan dengan kebutuhan aplikasi masing-masing. Bagi anda yang memiliki modifikasi lainnya share kode dikolom komentar. Semoga bermanfaat.

2 komentar

Pak, tolong pada postingan nya input data pada file berbeda , tidak berjalan seperti yang bapak gambarkan

Punya saya digambar format gif berjlan.. mungkin masih ada yang salah tu... cek lagi perbaris kodenya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon