Farz edelim ki, birden çok çalışma sayfası olan bir çalışma kitabınız var, şimdi mevcut çalışma kitabındaki tüm sayfa adlarını listelemek istiyorsunuz, Excel'de bu sayfa adlarının bir listesini tek tek yazmadan oluşturmanın hızlı bir yöntemi var mı? Bu eğitim, çalışma sayfası adlarının Excel'de nasıl listeleneceğine ilişkin talimatlar vermektedir.

Formüller ile dinamik olarak bir çalışma kitabından tüm çalışma sayfası adlarının bir listesini alın

Kullanışlı bir özelliğe sahip bir çalışma kitabından tüm çalışma sayfası adlarının bir listesini alın

VBA kodu içeren bir çalışma kitabından tüm çalışma sayfası adlarının bir listesini alın

Formüller ile dinamik olarak bir çalışma kitabından tüm çalışma sayfası adlarının bir listesini alın

Excel'de, bir aralık adı tanımlayabilir ve ardından geçerli çalışma kitabındaki tüm sayfa adlarını listelemek için bir formül uygulayabilirsiniz, lütfen aşağıdaki adımları izleyin:

1. Tıklamaya git formül > İsim Yöneticisi, ekran görüntüsüne bakın:

2. In İsim Yöneticisi iletişim kutusunu tıklayın yeni düğmesi, ekran görüntüsüne bakın:

3. Dışarı fırladı Yeni isim iletişim kutusu, içine bir ad belirtin Name metin kutusuna kopyalayın ve ardından aşağıdaki formülü Anlamına gelir metin kutusu, ekran görüntüsüne bakın:

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

4. Sonra tıklayın OK > Kapanış iletişim kutularını kapatmak için lütfen tüm sayfa adlarını listelemek istediğiniz bir sayfaya gidin ve ardından aşağıdaki formülü boş bir hücreye girin:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

not: Yukarıdaki formülde, Sayfa adları 3. adımda tepede olduğunuz aralık adıdır.

5. Ve sonra boş hücreler görüntülendiğinde doldurma tutamacını hücrelere sürükleyin ve şimdi, geçerli çalışma kitabının tüm sayfa adları aşağıda gösterilen ekran görüntüsü gibi listelenmiştir:

6. Her sayfa için köprü oluşturmak istiyorsanız, lütfen aşağıdaki formülü kullanın:

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

not: Yukarıdaki formülde, A2 sayfa adını içeren hücredir ve A1 etkin hücrenin bulunmasını istediğiniz hücredir. Örneğin, köprü metnine tıklarsanız, sayfanın A1 hücresini bulacaktır.

7. Şimdi, köprü metnine tıkladığınızda, sizi o sayfaya götürecektir, aşağıdaki demoya bakın:

Kullanışlı bir özelliğe sahip bir çalışma kitabından tüm çalışma sayfası adlarının bir listesini alın

İle Sayfa Adlarının Listesini Oluşturun üçüncü taraf eklentisinin faydası Kutools for Excel, tek tıklamayla çalışma sayfası adları listesi oluşturabilir ve her çalışma sayfasına köprü ile bağlanabilirsiniz.

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

1. Tıkla 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, lütfen aşağıdaki ayarları belirtin:

(1.) Seçin çalışma sayfası dizin stilleri isterseniz, çalışma sayfası adlarını köprülerle veya makro düğmeleriyle oluşturabilirsiniz. (2.) Sayfa dizini için çalışma sayfası adlarını girin. (3.) Çalışma sayfası dizininin konumunu belirtin. (4.) Çalışma sayfası adlarını görüntülemek için yeni çalışma sayfasında ne kadar sütun kullanmak istediğinizi belirtin.

3. Ayarları tamamladıktan sonra OK. Tüm çalışma sayfası adları, mevcut çalışma kitabının yeni bir çalışma sayfasındaki bağlantılarla listelenmiştir. Ekran görüntüsüne bakın:

köprülü çalışma sayfası adları	makro düğmeli çalışma sayfası adları

VBA kodu içeren bir çalışma kitabından tüm çalışma sayfası adlarının bir listesini alın

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

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

VBA: Tüm çalışma sayfası adlarını yeni bir çalışma sayfasında köprülerle listeleyin:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. basın F5 Bu makroyu çalıştırmak için tuşuna basın. Artık etkin çalışma kitabındaki tüm çalışma sayfası adları Dizin adı verilen yeni bir çalışma sayfasında listelendi ve sayfa adları da her sayfaya bağlandı, ekran görüntüsüne bakın:

İlgili Makaleler