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:

15 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

excell mengatakan...

Terima kasih.....

excell mengatakan...

sama - sama.

excell mengatakan...

sama-sama pak Asep.

Erwin Suhendra 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?

Erwin Suhendra 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...

Unknown mengatakan...

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

terimakasih sebelumnya.

prazt 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)

Unknown mengatakan...


Terima kasih banyak, ilmunya sangat membantu dan menambah perbendaharaan trik pada excel. AKU ADA USUL. Bagai mana cara membuat file excel expire berbatas tangal bulan dan tahun, terima kasih sebelumnya

obat herbal diare mengatakan...

makasih bnyak buat infonya gan,, ijin coba yaaa

http://acemaxsok.com/

djuni mengatakan...

assalamualaikum..
mf mo tanya kang.. klik kanan pada sheet excell 2013 saya gak fungsi, kang..
mohon pencerahannya.

ambul mengatakan...

Keren....terima kasih