Membuat Hyperlink dengan Worksheet_Event (Sebuah Alternatif)

Hyperlink adalah salah satu fasilitas di Excel yang sangat membantu dalam mempermudah navigasi sebuah workbook. Membuat hyperlink juga sangat mudah. Tulisan kali ini adalah membuat Hyperlink dengan metode yang sedikit berbeda dengan biasanya.

Cara ini saya gunakan dalam pembuatan menu pada APLIKASI RAPORT 2011-2012 yang diupload di blog ini.

Metode yang digunakan adalah dengan memanfaatkan salah satu Worksheet_Events, yakni Worksheet_SelectionChange. Sebelum membahas langkah pembuatan hyperlink, perlu dibahas sedikit tentang Worksheet_Events.

Tentang Worksheet_Events

Sebagai salah satu objek dalam VBA Excel, Worksheet mempunyai events bawaan yang bisa dimanfaatkan. Beberapa events yang bisa digunakan adalah:

1. Worksheet_Activate() bekerja pada saat sheet diaktifkan.
2. Worksheet_BeforeRightClick() Bekerja pada saat sheet tersebut diklik kanan (nama sheetnya)
3. Worksheet_Deactivate(), bekerja pada saat kita pindah dari sheet tersebut ke sheet lain
4. Worksheet_SelectionChange() bekerja ketika sel aktif berubah (perpindahan kursor)
5. Worksheet_Change() bekerja ketika terjadi perubahan nilai sel pada worksheet
6. dan lain-lain

Untuk menggunakan Worksheet-Events, kita klik kanan nama sheet dimaksud, kemudian pilih View Code.

Pada jendela VBA, ada tulisan "General", kita pilih Worksheet

Secara otomatis, di layar akan tertulis Private Sub Worksheet_SelectionChange(ByVal Target As Range). Jika kita ingin memilih event yang lain, maka di  sebelah kanan, pada bagian Procedure, kita pilih event yang diinginkan, maka di layar akan tertulis pivate sub yang dimaksud. 

Apa saja kode yang bisa ditulis? Kode apapun bisa ditulis, mulai dari sekedar hanya menampilkan pesan seperti MessageBox hingga kode-kode canggih yang lain.

Yang perlu menjadi catatan, kode Target pada event SelectionChange adalah Sel yang di-Klik pada worksheet, sedang Target pada event Change adalah sel yang berubah nilainya.

Langkah Membuat Hyperlink :

• Siapkan sheet untuk Hyperlink misalnya di "Sheet1" lengkap dengan tulisan pada sel yang akan digunakan. Seperti gambar :

• Klik kanan nama sheet lalu pilih View Code seperli langkah di atas
• Pilih Worksheet pada bagian General, sehingga secara otomatis akan muncul tulisan seperti di bawah ini:

• Tuliskan kode berikut:

 Kode di atas, adalah contoh kode yang sederhana. Memang daripada menggunakan IF yang banyak seperti di atas, lebih enak menggunakan Select Case.

• Cobalah menguji hasilnya.

Kenapa repot-repot menggunakan Worksheet_events segala kalau menggunakan Hyperlink biasa saja sudah cukup? Keuntungannya adalah kita bisa berkreasi dengan menambahkan kode-kode lain seperti menampilkan pesan, menyembunyikan sheet-sheet lain yang sedang tidak aktif, dan lain sebagainya.


Pada workbook lampiran, saya sertakan :

1. Sheet1 : seperti langkah di atas
2. Sheet2 : Kodenya menggunakan Select Case
3. Sheet3 : Kodenya beda
4. Sheet4 : Sekaligus menyembunyikan sheet - sheet lain selain sheet yang dituju. 
5. Sheet5 : Menambahkan pesan

Workbook bisa didownload di sini atau di sini

Artikel Terkait: