Contoh Kode Macro Event: Hyperlink Apa Saja dalam Excel VBA
Contoh kode macro di bawah ini menjalankan event pada suatu tombol CommandButton (salah satu objek ActiveX dalam VBA) yang tertempel di atas worksheet dengan judul caption tombolnya berupa suatu alamat blog yang sebenarnya bukan hyperlink, melainkan tulisan biasa saja.
Event Worksheet_FollowHyperlink dicetuskan ketika Anda meng-klik hyperlink apa saja yang ada pada worksheet, bisa suatu alamat file, folder, jaringan intranet maupun internet.
Adapun langkah pembuatan tombolnya dipertunjukkan dalam gambar di bawah ini:
Ikuti langkah-langkah berikut ini untuk mengaplikasikan kode macro ke dalam tombol tersebut:
1. Buat sebuah tombol dari menu ribbon Developer > Controls > Insert > ActiveX Control > Command Button.
2. Ganti judul caption CommandButton1 menjadi link misalnya https://bukuyudi.blogspot.com dengan cara klik kanan tombol lalu pilih CommandButton Object > Edit.
3. Non-aktifkan Design Mode pada grup tab Controls agar tombol bisa digunakan.
4. Dalam Excel, letakkan kursor pada sel mana saja di worksheet lalu klik kanan tab sheet yang akan diuji-coba.
5. Pilih View Code.
6. Pada kotak pilihan Object (General) di atas module worksheet klik tanda panah di ujungnya.
7. Pilih CommandButton1.
8. Pada kotak pilihan Procedure (Declarations) di atas module worksheet, klik tanda panahnya di ujungnya.
9. Pilih Click.
10. Ketik kode berikut tepat dibawah Private Sub CommandButton1_Click:
11. Kode lengkapnya menjadi seperti berikut:
CommandButton1.Parent.Parent.FollowHyperlink CommandButton1.Caption
End Sub
12. Tekan Alt+F11 untuk kembali ke jendela Excel.
13. Sambungkan komputer Anda pada internet lalu klik tombol yang telah Anda buat untuk membuka browser menampilkan alamat web yang dituju.
Demikian pembahasan tentang event FollowHyperlink dalam macro VBA Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.