Ana içeriğe atla

Otomatik olarak tüm sayfalar ve güncellemeler için içindekiler tablosu nasıl oluşturulur?

Yüzlerce çalışma sayfası içeren bir çalışma kitabınız olduğunu varsayalım, birden çok sayfa arasından belirli bir sayfaya gitmek çoğumuz için baş ağrısına neden olabilir. Bu durumda, bu çalışma sayfaları için bir içindekiler tablosu oluşturmak, belirli sayfalara hızlı ve kolay bir şekilde gitmenize yardımcı olabilir. Bu öğretici, tüm sayfalar için bir içindekiler tablosunun nasıl oluşturulacağı ve sayfa adlarını eklerken, silerken veya değiştirirken tablonun otomatik olarak nasıl güncelleneceği hakkında konuşacaktır.

Formüllerle otomatik olarak tüm sayfalar ve güncellemeler için bir içindekiler tablosu oluşturun

Tüm sayfalar ve güncellemeler için bir VBA koduyla otomatik olarak içindekiler tablosu oluşturun

Güçlü bir özellikle tüm sayfalar ve güncellemeler için içindekiler tablosu oluşturun


Formüllerle otomatik olarak tüm sayfalar ve güncellemeler için bir içindekiler tablosu oluşturun

Excel'de, bir aralık adı tanımlayarak ve bir formülde adı referans alarak bir içindekiler tablosu oluşturabilirsiniz, lütfen aşağıdaki adımları izleyin:

1. İçindekiler tablosunu oluşturmak istediğiniz tüm sayfaların önüne yeni bir sayfa ekleyin ve ihtiyacınıza göre yeniden adlandırın.

2. Daha sonra, formül > Adı Tanımla, ekran görüntüsüne bakın:

3. In Yeni isim iletişim kutusu, bir ad belirtin Sayfa Listesi içine İsim kutusunda, bunu kendinize göre değiştirebilir ve ardından şu formülü girebilirsiniz: = GET.WORKBOOK (1) & T (ŞİMDİ ()) içine Anlamına gelir metin kutusu, ekran görüntüsüne bakın:

4. Daha sonra, OK diyalog kutusunu kapatmak için düğmesini tıklayın.

5. Şimdi lütfen içindekiler tablosu oluşturmak istediğiniz yeni sayfaya gidin ve ardından aşağıdaki formülü boş bir hücreye girin:

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
not: Yukarıdaki formülde, Sayfa Listesi 2. adımda oluşturduğunuz aralık adıdır.

6. Ardından, boş hücreler görüntülenene ve mevcut çalışma kitabının tüm sayfa adları (gizli sayfalar dahil) aşağıda gösterilen ekran görüntüsü gibi listelenene kadar doldurma tutamacını hücrelere doğru sürükleyin:

7. Ardından, tablo içerikleri için köprüler oluşturmalısınız, lütfen aşağıdaki formülü kullanın:

=KÖPRÜ("#'"&A2&"'!A1","Sayfaya Git")
not: Yukarıdaki formülde, A2 sayfa adını içeren hücredir ve A1 o sayfada atlamak istediğiniz hücredir. Örneğin, köprü metnine tıklarsanız, o sayfanın A1 hücresini bulur.

8. Şimdi, köprü metnine tıklandığında, bir kerede o sayfaya gidecek. Ve yeni bir sayfa eklerseniz, bir sayfa silerseniz veya sayfa adını değiştirirseniz, tablo içerikleri otomatik olarak güncellenecektir.

notlar:
  • 1. Bu yöntemle, tüm gizli sayfalar tablo içeriğinde de görüntülenir.
  • 2. Dosyayı şu şekilde kaydetmelisiniz Excel Makro Etkin Çalışma Kitabı biçiminde, bu şekilde, bir dahaki sefere bu dosyayı açtığınızda formüller iyi çalışabilir.

Tüm sayfalar ve güncellemeler için bir VBA koduyla otomatik olarak içindekiler tablosu oluşturun

Bazen, tablo içeriğindeki gizli sayfaları görüntülemeniz gerekmez. Bu sorunu çözmek için aşağıdaki VBA kodu size bir iyilik yapabilir.

1. İçindekiler tablosunu oluşturmak istediğiniz tüm sayfaların önüne yeni bir sayfa ekleyin ve ihtiyacınıza göre yeniden adlandırın. Ardından, sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, ekran görüntüsüne bakın:

2. Açılan Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki kodu kopyalayıp sayfa kodu penceresine yapıştırın:

VBA kodu: Tüm sayfalar ve güncellemeler için otomatik olarak bir içindekiler tablosu oluşturun

Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
    If xWsh.Name <> xStrWShName Then
        If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
            Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
            Me.Range(xStrTCHeader).Offset(xI).Value = xI
            xI = xI + 1
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Daha sonra, tuşuna basın. F5 tuşuna basın ve tablo içeriği yeni çalışma sayfasında bir kerede oluşturulur, tüm gizli sayfalar tablo içeriğinde görüntülenmez, ekran görüntüsüne bakın:

4. Form şimdi açıkken, sayfa silerken, eklerken veya yeniden adlandırırken, tablo içerikleri dinamik olarak güncellenecektir.

not: Excel dosyasını da şu şekilde kaydetmelisiniz: Excel Makro Etkin Çalışma Kitabı çalışma kitabını bir sonraki açışınızda kodun başarılı bir şekilde çalışmasını sağlamak için biçimlendirin.

Güçlü bir özellikle tüm sayfalar ve güncellemeler için içindekiler tablosu oluşturun

Eğer varsa Kutools for Excelonun Gezinme bölmesi tüm sayfa adlarını sol bölmede dikey olarak listelemenize ve belirli bir sayfaya hızlı ve kolay bir şekilde gitmenize yardımcı olabilir.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. Tıkla Kutools > Navigasyon, ekran görüntüsüne bakın:

2. Genişletilmiş Navigasyon bölme, tıkla Çalışma Kitabı ve Sayfa simgesi, açılan tüm çalışma kitapları üstteki liste kutusunda listelenir ve çalışma kitabındaki tüm görünür sayfalar alttaki liste kutusunda görüntülenir, bkz. ekran görüntüsü:

3. Ve şimdi, sadece sol bölmeden sayfa adına tıklayarak sayfaya gidebilirsiniz. Ve bir sayfayı sildiğinizde, eklediğinizde veya yeniden adlandırdığınızda, bölmedeki sayfa listesi dinamik olarak güncellenecektir.

İpuçları: Varsayılan olarak, gizli sayfalar gezinme bölmesinde gösterilmez, gizli sayfaları görüntülemek istiyorsanız, sadece Tüm gizli çalışma sayfalarını göstermek / gizlemek için geçiş yapın simgesi, gizli sayfayı hemen gizlemek için bu simgeye tekrar tıklayın.

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations