Cara Membuat Link ke Setiap Sheet di Workbook dengan Klik Kanan

Fasilitas Hyperlink di Ms Excel memang sangat handal untuk navigasi antar sheet. Namun, jika sheet yang kita miliki banyak, maka pekerjaan membuat hyperlink ke semua sheet menjadi agak panjang juga. Apalagi jika nama sheet diubah, maka tambah lagi pekerjaan kita.
Nah, pada tulisan kali ini, ExcelHeru akan memberikan tip untuk membuat menu klik kanan yang berfungsi sebagai link ke sheet yang lain.
Jadi, di sheet manapun dan di sel manapun kita klik kanan, akan ada tambahan menu berjudul "Daftar Isi" di paling bawah

Kalau tulisan "Daftar Isi" di klik, akan muncul daftar sheet yang bisa diklik untuk menuju sheet yang dituju.

Gimana cara membuatnya?

1. Tekan Alt + F11 untuk menuju VBA Editor
2. Pada bagian panel kiri, Double klik ThisWorkbook

3. Pada bagian kanan, di tempat yang kosong,kopi pastekan kode berikut:



Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cCont As CommandBarButton
    On Error Resume Next
    Application.CommandBars("Cell").Controls("Daftar Isi").Delete
    On Error GoTo 0
        Set cCont = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
        With cCont
            .Caption = "Daftar Isi"
            .OnAction = "IndexCode"
        End With
End Sub

4. Masih diVBA Editor, Pilih menu Insert > Module. Dan tuliskan kode berikut:

Sub IndexCode()

 Application.CommandBars("workbook Tabs").ShowPopup

End Sub

5. Tekan Alt+Q untuk kembali ke Excel

Sekarang silahkan coba klik kanan di sembarang sel pada sembarang sheet. 

File contoh bisa didownload di sini atau di boxnet di samping di folder Desember


Referensi:
Excel Hacks by David & Raina Hawley, 2004

Artikel Terkait: