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.