Sabtu, 17 Desember 2011

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:

11 komentar:

Syahrini mengatakan...

wow, keren sekali......!

Anonim mengatakan...

Terima kasih atas ilmunya, sangat membantu saya dalam pekerjaan dalam aplikasi excel

asep mengatakan...

Terima kasih ilmunya

Udin Haeruddin mengatakan...

Terima kasih.....

Udin Haeruddin mengatakan...

sama - sama.

Udin Haeruddin mengatakan...

sama-sama pak Asep.

Unknown mengatakan...

Kok setelah di klik kanan untuk lihat daftar isi, daftar isi sheetnya, tulisan dasftar isi sheetnya Berbaris banyak bgt ya sebanyak kita klik sheetnya? Ada tambahan sintax untuk clearnya atau ngga?

Unknown mengatakan...

Kok setiap diklik sheetnya, terus kita klik kanan lagi ada tulisan daftar isi sebanyak kita klik tadi ya...berbaris panjang kebawah...

PUNDI-PUNDI mengatakan...

Makasih...

Agus Rizwan Ichwani mengatakan...

Mas kalau daftar isinya ditaro dipaling atas bisa gak atau memang hanya dibawah posisinya?

terimakasih sebelumnya.

praztmath mengatakan...

Assalam... mas heru, excel saya kok menu insert pada klik kanan kok tidak aktif, gmana cara mengaktifkan kembali? tampilannya seperti pada link berikut (https://word.office.live.com/wv/WordView.aspx?FBsrc=https%3A%2F%2Fwww.facebook.com%2Fdownload%2Ffile_preview.php%3Fid%3D1428980414026748%26time%3D1398505632%26metadata&access_token=100000067314571%3AAVLpDGmGjGo4nFJiqktvHFfKmSYmUY3qgJnCSKJsPUqwjw&title=menu+klik+kana+ada+yang+tidak+aktif.rtf)