Ana içeriğe atla

Tüm görünür veya gizli sayfaları çalışma kitabından nasıl listeleyebilirim?

Bazı gizli çalışma sayfalarını içeren büyük bir çalışma kitabınız varsa, şimdi, tüm görünür ve gizli sayfaları aşağıdaki ekran görüntüsü gibi bir çalışma sayfasında ayrı ayrı listelemeniz gerekir. Bu yazıda, görünür ve gizli tüm sayfaların Excel'de nasıl listeleneceğinden bahsedeceğim.

belge listesi görünür sayfalar 1

Tüm görünür ve gizli sayfaları VBA kodu ile ayrı ayrı listeleyin

Kutools for Excel ile Excel'deki tüm görünür sayfaları listeleyin


ok mavi sağ balon Tüm görünür ve gizli sayfaları VBA kodu ile ayrı ayrı listeleyin

Bir çalışma sayfasında görünen ve gizli sekme adlarını listelemek için, aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen şunu yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Tüm görünür ve gizli sayfaları ayrı ayrı listeleyin:

Sub NameSheets()
'Updateby Extendoffice
    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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, tüm görünür, gizli, çok gizli sayfalar, aşağıdaki ekran görüntüsü gibi ayrı ayrı yeni bir sayfada listelenir:

belge listesi görünür sayfalar 2


ok mavi sağ balon Kutools for Excel ile Excel'deki tüm görünür sayfaları listeleyin

Eğer varsa Kutools for Excel, Onun ile Sayfa Adlarının Listesini Oluşturun özelliği, geçerli çalışma kitabının tüm görünür sayfalarını her sekmeye köprülerle hızlı bir şekilde listeleyebilirsiniz.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. 

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. tıklayın Kutools Artı > Çalışma Sayfası > Sayfa Adlarının Listesini Oluşturun, ekran görüntüsüne bakın:

2. In Sayfa Adlarının Listesini Oluşturun iletişim kutusu:

(1.) Seçin Bir köprü listesi içerir altında Sayfa Dizini Stilleri Bölüm;

(2.) Sayfa dizini için bir çalışma sayfası adı girin.

(3.) Çalışma sayfası dizininin konumunu belirtin.

(4.) Çalışma sayfası adlarını sayfa dizininde ne kadar sütun görüntülemek istediğinizi belirtin.

belge listesi görünür sayfalar 4

3. Ve sonra tıklayın Ok düğmesi, tüm görünür sayfalar yeni bir sayfada listelenmiştir, gizli sayfaları hariç tutar, ekran görüntüsüne bakın:

belge listesi görünür sayfalar 5

İndir'i tıklayın ve Kutools for Excel'i Şimdi ücretsiz deneyin!

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Da error el codigo que aparece ahi el correcto seria: 

Sub NameSheets()

Dim x As Long
Dim y As Long
Dim z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
Dim i As Integer

x = 1
y = 1
z = 1
shtCnt = ActiveWorkbook.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
This comment was minimized by the moderator on the site
Hello, Solange,
Thanks for your enthusiastic comment, both the code you provided and the code in this article work well.Thanks again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations