Cara Membuat Hyperlink / Berpindah Ke Sheet Excel Yang di Hide
Dalam bekerja dengan Excel, terkadang kita perlu membuat hyperlink untuk berpindah ke sheet lain yang telah dihide. Namun, Excel tidak memungkinkan kita untuk membuat hyperlink langsung ke sheet yang dihide. Oleh karena itu, kita perlu menggunakan beberapa trik untuk membuat hyperlink tersebut.
Banyak alasan seseorang menghide sheetnya, diantaranya karena sheet terlalu banyak, jadi dengan menghide sheetnya akan terlihat lebih rapih. Berikut cara untuk membuat hyperlink atau berpindah ke sheet excel yang di hide.
Langkah 1: Membuat Hyperlink
Pertama tama, buatlah hyperlink ke sheet yang dihide. Anda dapat membuat hyperlink dengan menekan tombol "Insert" > "Hyperlink" atau dengan menekan tombol "Ctrl + K".
1. Pilih sel yang ingin Anda jadikan hyperlink.
2. Tekan tombol "Insert" > "Hyperlink" atau tekan tombol "Ctrl + K".
3. Pilih "Place in This Document" sebagai jenis hyperlink.
4. Pilih "Nama Sheet Yang Ingin di Linkan" sebagai nama sheet yang ingin Anda tuju.
5. Klik tombol "OK".
Langkah 2: Membuat Sheet yang Dihide
Selanjutnya, klik kanan pada sheet yang akan dihide atau di sembunyikan, lalu klik tulisan hide.
Setelah sheet dihide maka link yang sebelumnya di buat tidak akan berfungsi.
Langkah 3: Menggunakan Fungsi VBA
Namun, karena sheet yang dihide tidak dapat diakses langsung, kita perlu menggunakan fungsi VBA untuk membuat hyperlink tersebut. Berikut adalah contoh kode VBA yang dapat Anda gunakan:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next
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
Langkah 4: Cara Memasukan Fungsi VBA
Copy terlebih dahulu Code VBA di atas, setelah itu klik kanan pada sheets tempat link dibuat, kemudian klik kanan lalu klik View Code. Kemudian pastekan Code VBA pada lembar kosong.
Langkah 5: Cara Buat Otomatis Sheets Terhide Setelah Link di Tekan
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub
Posting Komentar