Bagaimana cara mengikuti hyperlink ke lembar tersembunyi di Excel?

Misalnya, saya memiliki buku kerja yang berisi beberapa lembar kerja, lembar master pertama memiliki hyperlink ke lembar lain, dan sekarang, saya menyembunyikan semua lembar kecuali yang pertama. Dalam kasus ini, hyperlink yang menautkan ke lembar tersembunyi tidak tersedia. Tapi, bagaimana Anda bisa membuat hyperlink ini berhasil? Ketika Anda mengklik satu hyperlink, lembar tersembunyi yang ditautkan akan dibuka sekaligus seperti gambar berikut yang ditampilkan:

Ikuti hyperlink untuk membuka lembar tersembunyi dengan kode VBA

Ikuti hyperlink untuk membuka lembar tersembunyi dan kemudian sembunyikan lagi dengan kode VBA

Ikuti hyperlink untuk membuka lembar tersembunyi dengan kode VBA

Kode VBA berikut dapat membantu Anda membuka lembar kerja tersembunyi saat mengklik hyperlink relatifnya, lakukan seperti ini:

1. Klik kanan tab lembar yang ingin Anda ikuti hyperlink ke lembar tersembunyi, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode berikut ke dalam Modul kosong:

Kode VBA: Ikuti hyperlink untuk membuka lembar tersembunyi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

Note: Pada kode di atas, angka 1 dalam Jika Target.Column = 1 Maka script menunjukkan nomor kolom yang berisi hyperlink, harap ubah sesuai kebutuhan Anda.

2. Kemudian simpan dan tutup jendela kode ini, sekarang, ketika Anda mengklik hyperlink yang menautkan ke lembar tersembunyi tertentu, lembar tersembunyi akan dibuka sekaligus.

Ikuti hyperlink untuk membuka lembar tersembunyi dan kemudian sembunyikan lagi dengan kode VBA

Terkadang, Anda perlu mengikuti hyperlink untuk membuka lembar tersembunyi, dan saat Anda kembali ke lembar master, Anda ingin lembar yang dibuka disembunyikan lagi. Kode VBA di bawah ini dapat membantu Anda:

1. Klik kanan tab lembar yang ingin Anda ikuti hyperlink ke lembar tersembunyi, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode berikut ke dalam Modul kosong:

Kode VBA: Ikuti hyperlink untuk membuka lembar tersembunyi saat kembali menyembunyikannya lagi:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

2. Kemudian simpan iklan tutup jendela kode, ketika Anda mengklik hyperlink, lembar tersembunyi yang ditautkan akan segera dibuka, tetapi, jika Anda kembali ke master sheet yang berisi hyperlink, lembar yang dibuka akan disembunyikan lagi secara otomatis.

Note: Kode ini hanya diterapkan ke nama lembar yang cocok dengan teks hyperlink Anda.

Demo: Ikuti hyperlink untuk membuka lembar tersembunyi dengan kode VBA