Note: The other languages of the website are Google-translated. Back to English

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:

doc hyperlink ke lembar tersembunyi 1

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

doc hyperlink ke lembar tersembunyi 2

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

doc hyperlink ke lembar tersembunyi 3

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari
    300
    fitur yang kuat
    . Mendukung Office/Excel
    2007-2019 dan 365
    . Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap
    30
    percobaan gratis -hari. Jaminan uang kembali 60 hari.
tab kte 201905

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 dengan
    50%
    , dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (9)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menyembunyikan lembar yang memiliki hyperlink. Saya ingin dapat mengklik pada lembar pergi ke lembar hyperlink dan kemudian klik kembali ke lembar dan tutup lembar tersembunyi. Saya sudah mencoba instruksi Anda tetapi tidak berhasil. Tidak yakin apa yang saya lakukan salah.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki lembar yang disembunyikan yang berisi hyperlink. Saya ingin dapat pergi ke lembar tersembunyi dan menutupnya ketika saya kembali ke lembar asli. Saya menggunakan kode tetapi tidak berhasil.
Komentar ini diminimalkan oleh moderator di situs
Saya telah menggunakan kode ini pada dua lembar berbeda di buku kerja saya, dan dalam kedua kasus itu berfungsi dengan baik, kecuali untuk hyperlink pertama di setiap halaman. Saya mendapatkan "Subscript out of range error" dan debugger menunjuk ke "Sheets(strLinkSheet).Visible = True" tepat setelah "end if". Adakah orang lain yang melihat kesalahan ini? Itu hanya pada tautan pertama di halaman. (hyperlink saya ada di kolom A, dan mulai dari baris 2)
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya telah menggunakan kode ini pada dua lembar berbeda di buku kerja saya, dan dalam kedua kasus itu berfungsi dengan baik, kecuali untuk hyperlink pertama di setiap halaman. Saya mendapatkan "Subscript out of range error" dan debugger menunjuk ke "Sheets(strLinkSheet).Visible = True" tepat setelah "end if". Adakah orang lain yang melihat kesalahan ini? Itu hanya pada tautan pertama di halaman. (hyperlink saya ada di kolom A, dan mulai dari baris 2)Oleh HelzBelz[/quote] Nama sheet tidak boleh memiliki spasi seperti "Sheet 1". Saya memperbaiki nama sheet saya menjadi "Sheet1" dan kesalahan berhenti.
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode pada dua lembar berbeda. Ini berfungsi untuk salah satu dari sekitar 40 hyperlink pada satu lembar dan membuka dua dari sekitar 10 hyperlink satu detik, lembar pada lembar kedua yang terbuka kembali bersembunyi ketika saya kembali ke lembar. Kesalahan yang saya dapatkan ketika tidak akan membuka lembar adalah Run-time error"9": skrip di luar jangkauan dan kode yang mengarahkan saya ke - Sheets(strLinkSheet).Visible = True Setiap ide tentang perubahan apa yang diperlukan membuat kode berfungsi di semua lembar? Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
"teks" hyperlink saya hanya angka, dan tidak berfungsi ...
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menggunakan kode ini tetapi hanya ingin menerapkannya ke kolom A. Saya memiliki tautan alamat web lain di sel lain yang menyebabkan masalah saat menjalankan kode ini.
Komentar ini diminimalkan oleh moderator di situs
Saya telah membuat banyak buku kata dan saya ingin mengindeksnya dalam satu halaman.

NB: Maksud saya adalah saya ingin menyembunyikan semua lembar, lembar akan ditautkan dengan gambar pengaturan ke halaman utama. Dengan mengklik gambar yang ditautkan, lembar akan ditampilkan dan ketika saya kembali ke lembar utama lembar yang tidak disembunyikan akan disembunyikan lagi
Komentar ini diminimalkan oleh moderator di situs
Tidak yakin apakah saya akan mendapatkan respons untuk yang ini, tetapi ketika saya mengklik salah satu hyperlink saya, saya mendapatkan kesalahan "referensi tidak valid".
Semuanya masih berfungsi, saya hanya perlu mengklik ok untuk melanjutkan.
Adakah yang tahu apa yang menyebabkan kesalahan ini untuk kode ini?
Terima kasih,
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL