Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengikuti hiperpautan kepada helaian tersembunyi dalam Excel?

Contohnya, saya mempunyai buku kerja yang mengandungi banyak helaian kerja, helaian pertama mempunyai hyperlink ke helaian lain, dan sekarang, saya menyembunyikan semua helaian kecuali yang pertama. Dalam kes ini, pautan yang dihubungkan dengan helaian tersembunyi tidak tersedia. Tetapi, bagaimana anda boleh membuat hyperlink ini berjaya? Apabila anda mengklik satu hiperpautan, helaian tersembunyi yang dipaut akan dibuka sekaligus seperti tangkapan skrin berikut:

hyperlink doc ke helaian tersembunyi 1

Ikuti hyperlink untuk membuka lembaran tersembunyi dengan kod VBA

Ikut hiperpautan untuk membuka helaian tersembunyi dan kemudian sembunyikan lagi dengan kod VBA


Senaraikan semua nama lembaran kerja dan hubungkan ke setiap helaian:

dengan Kutools untuk Excel's Buat Senarai Nama Lembaran utiliti, anda boleh dengan cepat menyenaraikan semua nama lembaran kerja dalam helaian baru dengan hiperpautan atau butang makro yang anda perlukan.

nama lembaran kerja dengan hiperpautan nama lembaran kerja dengan butang makro
doc-list-worksheet-names2  2 doc-list-worksheet-names2  2 doc-list-worksheet-names2

Ikuti hyperlink untuk membuka lembaran tersembunyi dengan kod VBA


Kod VBA berikut boleh membantu anda membuka lembaran kerja tersembunyi apabila mengklik pautan hyperlinknya, sila lakukan seperti ini:

1. Klik kanan tab helaian yang anda mahu ikuti hyperlink ke helaian tersembunyi, dan kemudian pilih Lihat Kod dari menu konteks, muncul Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin dan tampal kod berikut ke dalam Modul kosong:

Kod VBA: Ikuti hyperlink untuk membuka kunci tersembunyi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    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

hyperlink doc ke helaian tersembunyi 2

Nota: Dalam kod di atas, nombor tersebut 1 dalam hal ini Jika Target.Column = 1 Kemudian skrip menunjukkan nombor lajur yang mengandungi hyperlink, sila ubah keperluan anda.

2. Kemudian simpan dan tutup tetingkap kod ini, sekarang, apabila anda mengklik pautan yang menghubungkan ke helaian tersembunyi tertentu, helaian tersembunyi akan dibuka sekaligus.


Ikut hiperpautan untuk membuka helaian tersembunyi dan kemudian sembunyikan lagi dengan kod VBA

Kadang-kadang, anda perlu mengikuti hyperlink untuk membuka helaian tersembunyi, dan apabila anda kembali helah, anda mahu helaian yang dibuka disembunyikan lagi. Kod di bawah VBA boleh memihak kepada anda:

1. Klik kanan tab helaian yang anda mahu ikuti hyperlink ke helaian tersembunyi, dan kemudian pilih Lihat Kod dari menu konteks, muncul Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin dan tampal kod berikut ke dalam Modul kosong:

Kod VBA: Ikuti hyperlink untuk membuka kunci tersembunyi apabila kembali menyembunyikannya semula:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    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

hyperlink doc ke helaian tersembunyi 3

2. Kemudian simpan iklan menutup tetingkap kod, apabila anda mengklik hiperpautan, helaian tersembunyi yang berkaitan akan dibuka dengan serta-merta, tetapi, jika anda mengembalikan helaian induk yang mengandungi hyperlink, kunci yang dibuka akan disembunyikan secara automatik sekali lagi.

Nota: Kod tesis hanya digunakan pada nama kunci yang sepadan dengan teks hiperpautan anda.


Demo: Ikuti hyperlink untuk membuka lembaran tersembunyi dengan kod VBA

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.