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:
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:
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.
- 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.
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.
En İyi Ofis Üretkenlik Araçları
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...
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!