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

or

Bagaimana untuk menyenaraikan semua helaian yang kelihatan atau tersembunyi dari buku kerja?

Jika anda mempunyai buku kerja yang besar yang mengandungi beberapa helaian tersembunyi, kini, anda perlu menyenaraikan semua helaian yang kelihatan dan tersembunyi secara berasingan dalam lembaran kerja seperti tangkapan skrin berikut. Artikel ini, saya akan bercakap mengenai cara menyenaraikan semua helaian yang kelihatan dan tersembunyi dalam Excel.

senarai doc 1 yang boleh dilihat

Senaraikan semua helaian yang kelihatan dan tersembunyi secara berasingan dengan kod VBA

Senaraikan semua helaian yang dilihat dalam Excel dengan Kutools untuk Excel


anak panah gelembung kanan biru Senaraikan semua helaian yang kelihatan dan tersembunyi secara berasingan dengan kod VBA

Untuk menyenaraikan nama tab yang kelihatan dan tersembunyi di dalam lembaran kerja, kod VBA berikut mungkin memberi anda nikmat, sila lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Senaraikan semua helaian yang kelihatan dan tersembunyi secara berasingan:

Sub NameSheets()
'Updateby Extendoffice 20161216
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, semua helaian yang kelihatan, tersembunyi, sangat tersembunyi disenaraikan dalam helaian baru secara berasingan seperti tangkapan skrin berikut:

senarai doc 2 yang boleh dilihat


anak panah gelembung kanan biru Senaraikan semua helaian yang dilihat dalam Excel dengan Kutools untuk Excel

Jika anda mempunyai Kutools untuk Excel, Dengan itu Buat Senarai Nama Lembaran ciri, anda dapat dengan cepat menyenaraikan semua buku kerja yang ada dengan pautan hiperpautan pada setiap tab.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Excel, sila lakukan seperti berikut:

1. Klik Enterprise > Lembaran kerja > Buat Senarai Nama Lembaran, lihat tangkapan skrin:

senarai doc 3 yang boleh dilihat

2. Di dalam Buat Senarai Nama Lembaran kotak dialog:

(1.) Pilih Mengandungi senarai hiperpautan di bawah Gaya Indeks Sheet seksyen;

(2.) Masukkan nama lembaran kerja untuk indeks lembaran.

(3.) Nyatakan lokasi indeks lembaran kerja.

(4.) Tentukan berapa banyak lajur yang anda mahu paparkan nama lembaran kerja dalam indeks lembaran.

senarai doc 4 yang boleh dilihat

3. Kemudian klik Ok butang, semua helaian yang kelihatan telah disenaraikan ke dalam helaian baru mengecualikan helai tersembunyi, lihat tangkapan skrin:

senarai doc 5 yang boleh dilihat

Klik Muat turun dan percubaan percuma Kutools untuk Excel 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.

Be the first to comment.