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. Bu kadar çok sayfa arasında belirli birine ulaşmak çoğu kullanıcı için zorlu olabilir. İşte tam da bu noktada, çalışma sayfalarınız için bir içerik tablosu oluşturmak, hedeflediğiniz sayfaya hızlı ve kolay erişmenizi sağlar. Bu öğretici, tüm sayfalar için bir içerik tablosu oluşturmayı ve yeni sayfa eklediğinizde, sildiğinizde ya da adını değiştirdiğinizde bu tabloyu otomatik olarak güncellemeyi adım adım gösteriyor.
Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak üzere formül kullanın
Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak üzere VBA kodu kullanın
Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak üzere formül kullanın
Excel’de, bir hücreye özel bir ad tanımlayarak ve bu ismi bir formülde kullanarak içerik tablosu oluşturabilirsiniz. Aşağıdaki adımları uygulayın:
1. İçindekiler tablosunu oluşturmak istediğiniz yere, tüm sayfaların önüne yeni bir sayfa ekleyin ve gerektiği gibi yeniden adlandırın.
2. Ardından, "Formüller" > "Ad Tanımla" seçeneğine tıklayın; ekran görüntüsüne göz atın:
3. "Yeni Ad" iletişim kutusunda, "Ad" kutusuna "Sheetlist" yazın (istediğiniz gibi değiştirebilirsiniz) ve ardından "Şuna Başvurur" metin kutusuna aşağıdaki formülü girin.
=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 boş bir hücreye aşağıdaki formülü girin:
=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")6. Ardından, boş hücreler görünene kadar dolgu tutamacını aşağı doğru sürükleyin. Böylece 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 listelenir:
7. Ardından, içerik tablosu için bir köprü oluşturmanız gerekir; bunun için aşağıdaki formülü kullanın:
=HYPERLINK("#'"&,A2&,"'!A1","Go To Sheet")
8. Artık köprü metnine tıkladığınızda doğrudan ilgili sayfaya yönlendirileceksiniz. Yeni bir sayfa eklerseniz, bir sayfayı silerseniz ya da sayfa adını değiştirirseniz, içerik tablosu otomatik olarak güncellenir.
- 1. Bu yöntemle, gizli sayfalar dahil tüm sayfalar tablo içeriğine eklenir.
- 2. Dosyayı bir sonraki açışınızda formüllerin sorunsuz çalışması için "Excel Makro Etkin Çalışma Kitabı" biçiminde kaydetmelisiniz.
Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak üzere Kutools for Excel kullanın
Eğer "Kutools for Excel" eklentiniz varsa, "Gezinme" özelliği tüm sayfa adlarını sol bölmede dikey olarak listeler ve sizi belirli bir sayfaya anında yönlendirir.
Kutools for Excel yüklendikten sonra, şu şekilde devam edin:
1. "Kutools" > "Gezinme" seçeneğine tıklayın; ekran görüntüsüne göz atın:
2. Genişletilen "Gezinme" bölmesinde "Çalışma Kitabı ve Sayfa" simgesine tıklayın. Üstteki liste kutusunda tüm açık çalışma kitapları, alttaki liste kutusunda ise ilgili çalışma kitabındaki tüm görünür sayfalar görüntülenir; ekran görüntüsüne bakın:
3. Artık sol bölmedeki sayfa adına tıklayarak doğrudan ilgili sayfaya geçebilirsiniz. Bir sayfayı sildiğinizde, eklediğinizde ya da yeniden adlandırdığınızda, bölmedeki sayfa listesi anında güncellenir.
Tüm sayfalar için otomatik olarak güncellenen bir içerik tablosu oluşturmak üzere VBA kodu kullanın
İçindekiler tablosunda gizli sayfaların görünmesini istemeyebilirsiniz. Bu sorunu çözmek için aşağıdaki VBA kodu size yardımcı olabilir.
1. İçindekiler tablosunu oluşturmak istediğiniz yere, tüm sayfalardan önce yeni bir sayfa ekleyin ve gerekirse yeniden adlandırın. Ardından sayfa sekmesine sağ tıklayıp bağlam menüsünden "Kodu Görüntüle" seçeneğini seçin; ekran görüntüsüne bakın:
2. Açılan "Microsoft Visual Basic for Applications" penceresinde, aşağıdaki kodu sayfa kodu bölümüne 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. İçerik tablosu hemen yeni çalışma sayfasında oluşturulur ve tüm gizli sayfalar içerik tablosunda görünmez; ekran görüntüsüne bakın:
4. Bundan sonra bir sayfayı sildiğinizde, eklediğinizde ya da yeniden adlandırdığınızda içerik tablosu otomatik olarak güncellenir.
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen alınmak için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin