Kamis, 29 Desember 2016

Link ke Internet dengan Kode VBA Excel


Internet Link with VBA Excel - Banyak sekali yang bisa dilakukan dengan sebuah Kode VBA yang sebagian kecil iparengan.com sudah sharing diblog ini, tentunya dengan harapan dapat membantu mengatasi masalah Microsoft Excel Anda.

Salah satu hal yang dapat dilakukan dengan memanfaatkan kode VBA Excel adalah membuat Link ke Internet, Kode berikut ini berfungsi untuk langsung menuju ke sebuah halaman website (browser default tergantung dari pengaturan pengguna komputer)

Sub LinkKeInternet
ActiveWorkbook.FollowHyperlink "http://www.iparengan.com"
End Sub

Tempatkan kode tersebut di sebuah CommandButton atau yang lainnya, sehingga ketika pengguna meng-klik tombol tersebut, maka membuka sebuah jendela browser (jika belum terbuka) dengan alamat website yang sudah tertulis dalam sebuah kode diatas (http://www.iparengan.com)

Kode diatas dapat berfungsi dengan baik ketika sebuah komputer terhubung dengan jaringan internet, artinya ketika komputer dalam keadaan off-line maka sebuah pesan error akan ditampilkan. Untuk mengatasi permasalah ini, tambahkan sebuah perintah On Error Resume Next, sehingga meskipun pengguna meng-klik kode tersebut sedangkan komputer dengan keaadaan off-line, pesan error akan diabaikan. Lihat cara mengatasi error berikut ini

Sub LinkKeInternet
On Error Resume Next
ActiveWorkbook.FollowHyperlink "http://www.iparengan.com"
End Sub

Atau menggunakan On error GoTo . . .

Sub LinkKeInternet
On Error GoTo EE
ActiveWorkbook.FollowHyperlink "http://www.iparengan.com"
Exit Sub
EE : Msgbox "Komputer anda sedang offline," ,"Aktifkan koneksi internet anda"
End Sub

Ganti alamat website (http://www.iparengan.com) tersebut dengan alamat website yang anda inginkan.

Link ke Internet dengan Kode VBA Excel

Anda juga bisa memanfaatkan Textbox untuk mengisikan alamat website yang akan dikunjungi, caranya
+ Masuk jendela VBE
+ Pilih insert Userform dengan kontrol Textbox name Textbox1 dan satu tombol Commandbutton dengan Name Commandbutton1
+ Masukan kode macro sebagaimana kode macro diatas dengan ganti alamat website dengan Textbox1 pada event Commandbutton Click seprti dibawah ini

Private Sub CommandButton1_Click()
On Error GoTo EE
ActiveWorkbook.FollowHyperlink Textbox1
Exit Sub
EE : Msgbox "Komputer anda sedang offline," ,"Aktifkan koneksi internet anda"
End Sub

+ Silahkan coba kreasi anda dan simpan dengan Enable Macro

Demikianlah tips VBA untuk hari ini, tips Link ke Internet dengan Kode VBA Excel bisa diaplikasikan dengan menggunakan aplikasi microsoft excel visual basic for application (VBA), jika ada kesulitan dan pertanyaan seputar microsoft excel silahkan tanyakan pada kolom komentar dibawah, terimakasih.


EmoticonEmoticon