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
Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
