Membuka website dengan kode macro Biasanya untuk membuka suatu website atau situs terlebih dahulu anda akan membuka browser yang terinstal pada komputer, baik dengan browser Chrome dari google maupun browser Edge dari Microsoft, setelah browser terbuka untuk menuju salah satu alamat website atau situs maka anda akan mengetikan alamat website yang akan dituju misalnya anda mengetikan alamat http://ruang-excel.blogspot.co.id tekan enter lalu anda akan dibawa kealamat tersebut


Selain cara diatas ternyata anda bisa juga memanfaatkan kode macro untuk menuju link website yang dikehendaki dan caranya sangat mudah sekali, saya akan membagikan secara lengkap dan benar cara Membuka website dengan kode macro sehingga dengan memanfaatkan kode macro untuk membuka link internet maka anda tidak perlu membuka browser terlebih dahulu




Cara ini akan bekerja dan tidak terjadi galat (BUG) jika komputer dalam keadaan online alias terhubung keinternet, jika komputer dalam mode online maka gunakan kode macro dibawah ini untuk menuju link keinternet

Sub Buka_Blog_RuangExcel ()
ActiveWorkbook.FollowHyperlink "http://www.ruang-excel.blogspot.co.id"
End Sub

Silahkan letakan kode macro diatas ditempat yang anda kehendaki, jika ingin otomatis berjalan saat excel diaktifkan maka tempatkan di Thisworkbook kode macronya akan sedikit berubah menjadi seperti ini

Private Sub Workbook_Open()
ActiveWorkbook.FollowHyperlink "http://www.ruang-excel.blogspot.co.id"
End Sub

Cara lain yaitu Menggunakan Textbox sebagai pengganti bar pada browser, jadi link yang akan dituju nantinya akan diketik terlebih dahulu pada textbox, misal dalam textbox saya akan menuliskan alamat http://www.ruang-excel.blogspot.co.id lalu saya akan memencet tombol untuk menuju alamat tersebut

Sub Buka_Blog_RuangExcel ()
ActiveWorkbook.FollowHyperlink Textbox1.Value
End Sub


Ingat komputer harus dalam keadaan online, jika komputer anda sedang offline maka akan terjadi galat atau bug sehingga kode macro tidak dapat bekerja

Manusia adalah tempatnya salah dan lupa, untuk mengatasi bug ketika komputer dalam keadaan offline maka tambahkan kode on error agar tidak terjadi galat atau bug ketika komputer offline, cara menggunakan on error sendiri ada dua ( setahu saya - kalau salah ya maklum manusia tempat salah dan lupa ) kedua cara terbut adalah

Cara pertama dengan On error resume next, saat macro berjalan dan menemukan kode yang salah maka macro tidak akan mengeksekusi kode yang salah tersebut dan akan melanjutkan tersu sampai akhir prosedur
Sub Buka_Blog_RuangExcel ()
On error resume next
ActiveWorkbook.FollowHyperlink "http://www.ruang-excel.blogspot.co.id"
End Sub

Cara kedua yaitu dengan On error goto ruangexcel, saat macro berjalan dan menemukan kode yang salah maka macro akan terhenti dan akan melompat ke kode macro ruangexcel

Sub Buka_Blog_RuangExcel ()
On error goto ruangexcel
ActiveWorkbook.FollowHyperlink "http://www.ruang-excel.blogspot.co.id"
Exit Sub
ruangexcel : Msgbox "Maaf komputer sedang dalam kondisi Offline", ,"Tidak ada koneksi Internet
End Sub

Silahkan anda pilih mau menggunakan on error yang mana

Saya kira tidak ada cara ketiga Membuka website dengan kode macro, dan kedua cara yang telah saya sebutkan sudah memenuhi, kalau ada yang bilang ada tiga cara untuk membuka website dengan kode macro, maka saya mengatakan ada 100 cara membuka website dengan kode macro


Demikianlah cara membuka website dengan kode macro, semoga bermanfaat
No comments