Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu nasıl oluşturulur?

Diyelim ki, yüzlerce çalışma sayfası içeren bir çalışma kitabınız var ve bu çok sayıdaki sayfa arasında belirli bir sayfaya gitmek çoğu insan için baş ağrısı yaratabilir. Bu durumda, bu çalışma sayfaları için bir içerik tablosu oluşturmak, belirli bir sayfaya hızlı ve kolay bir şekilde gitmenize yardımcı olabilir. Bu öğretici, tüm sayfalar için bir içerik tablosu oluşturmayı ve sayfa ekleme, silme veya isim değiştirme gibi işlemlerde tabloyu otomatik olarak güncellemeyi ele alacaktır.

Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak için formül kullanın

Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak için Kutools for Excel'i kullanın

Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak için VBA kodu kullanın

Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak için formül kullanın

Excel'de, bir hücre adı tanımlayarak ve formülde bu adı referans göstererek bir içerik tablosu oluşturabilirsiniz, lütfen aşağıdaki adımları izleyin:

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

2. Ardından, "Formül" > "Ad Tanımla" seçeneğine tıklayın, aşağıdaki ekran görüntüsüne bakın:

3. "Yeni Ad" iletişim kutusunda, "Ad" kutusuna "Sheetlist" adını girin, bunu kendi adınızla değiştirebilirsiniz ve ardından aşağıdaki formülü "Şuna Başvurur" metin kutusuna yazın.

=GET.WORKBOOK(1)&T(NOW())

4. Ardından, iletişim kutusunu kapatmak için "Tamam" düğmesine tıklayın.

5. Şimdi, içerik tablosunu 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)),"")

6. Ve sonra dolgu tutamacını boş hücreler görülene kadar aşağı doğru sürükleyin ve geçerli çalışma kitabındaki tüm sayfa adları (gizli sayfalar dahil) aşağıdaki ekran görüntüsünde gösterildiği gibi listelenmiştir:

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

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

8. Artık, köprü metnine tıkladığınızda o sayfaya anında gider. Ve eğer yeni bir sayfa eklerseniz, bir sayfayı silerseniz veya sayfa adını değiştirirseniz, içerik tablosu otomatik olarak güncellenecektir.

Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak için Kutools for Excel'i kullanın

Eğer "Kutools for Excel" eklentiniz varsa, "Gezinme" bölmesi tüm sayfa adlarını dikey olarak sol bölmede listeleyebilir ve belirli bir sayfaya hızlı ve kolay bir şekilde gidebilirsiniz.

Kutools for Excel kurulumundan sonra lütfen şu adımları izleyin:

1. "Kutools" > "Gezinme" seçeneğine tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Genişletilmiş "Gezinme" bölmesinde, "Çalışma Kitabı & Sayfa" simgesine tıklayın, tüm açık ç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, aşağıdaki ekran görüntüsüne bakın:

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

Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak için VBA kodu kullanın

Bazen, gizli sayfaları içerik tablosunda göstermenize gerek yoktur. Bu sorunu çözmek için aşağıdaki VBA kodu size yardımcı olabilir.

1. İçerik tablosunu oluşturmak istediğiniz yerde 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 bağlam menüsünden "Kodu Görüntüle" seçeneğini seçin, aşağıdaki ekran görüntüsüne bakın:

2. Açılan "Microsoft Visual Basic for Applications" penceresinde, aşağıdaki kodu sayfa kod penceresine kopyalayıp yapıştırın:

VBA kodu: Tüm sayfalar için otomatik olarak güncellenen bir içerik 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. Ardından, bu kodu çalıştırmak için "F5" tuşuna basın ve içerik tablosu yeni çalışma sayfasında anında oluşturulur, tüm gizli sayfalar içerik tablosunda gösterilmez, aşağıdaki ekran görüntüsüne bakın:

4. Bundan sonra, bir sayfayı sildiğinizde, eklediğinizde veya yeniden adlandırdığınızda, içerik tablosu dinamik olarak güncellenecektir.