Excel çalışma kitabında hızlı sayfa sayımı

Açık bir Excel çalışma kitabındaki kesin sayfa sayısını öğrenmek için herhangi bir hücreye veya formül çubuğuna =COUNTA(Sheets()) (Rusça sürümde =СЧЁТЗ(СписокЛистов())) formülünü girin. Bu işlem, gizli sayfalar dahil tüm sekmelerin toplam sayısını anında görüntüler. Süreci otomatikleştirmeniz veya ayrıntılı istatistikler almanız gerekiyorsa, VBA makroları ve adlandırılmış aralıklar oluşturma gibi yöntemler de mevcuttur.

Dizi formülü ile basit yöntem

En erişilebilir yöntem programlama gerektirmez ve tüm modern sürümlerde (2016, 2019, 2021, 365) çalışır. Fonksiyon, tüm sayfaların adlarından oluşan dinamik bir dizi döndürür; biz de bu diziyi sayarız.

Talimatlar:

1. Aktif sayfada herhangi bir boş hücre seçin.
2. Formülü girin:
   • Rusça sürüm için: =СЧЁТЗ(СписокЛистов())
   • İngilizce sürüm için: =COUNTA(Sheets())
3. Enter tuşuna basın.

Sonuç, dosyadaki toplam sekme sayısını gösteren bir tam sayı olacaktır.

VBA makrosu ile otomasyon

Farklı dosyalardaki sayfa sayısını sık sık kontrol etmeniz gerekiyorsa veya standart menü aracılığıyla görüntülenemeyen "çok gizli" sayfalar içeren çalışma kitaplarıyla çalışıyorsanız, makro kullanmak daha uygundur. Sonucu bir açılır pencerede gösterecektir.

Kopyalanacak kod:

Sub ShowSheetCount()
    Dim totalSheets As Integer
    ' Veri sayfaları ve grafikler dahil tüm nesneleri sayar
    totalSheets = ThisWorkbook.Sheets.Count
    
    MsgBox "Çalışma kitabındaki toplam sayfa sayısı: " & totalSheets, vbInformation, "İstatistik"
End Sub

Nasıl çalıştırılır:

1. Visual Basic düzenleyicisini açmak için Alt + F11 tuşlarına basın.
2. Menüden Insert > Module seçeneğini seçin.
3. Yukarıdaki kodu beyaz pencereye yapıştırın.
4. Düzenleyiciyi kapatın ve Alt + F8 tuşlarına basın, ShowSheetCount seçeneğini seçin ve Çalıştır düğmesine tıklayın.

Paneller için adlandırılmış aralık oluşturma

Bu yöntem, raporlar veya kontrol panelleri (dashboard'lar) oluşturuyorsanız ve çalışma alanındaki fazladan hücreler kullanmadan başlıkta sayfa sayısını görüntülemek istiyorsanız kullanışlıdır.

1. Formüller sekmesine gidin > Ad Yöneticisi (veya Ctrl + F3 tuşlarına basın).
2. Yeni Oluştur düğmesine tıklayın.
3. Ad alanına örneğin ToplamSayfa yazın.
4. Başvuru yeri (veya "Nesne") alanına şu formülü yapıştırın: =COUNTA(Sheets()).
5. Tamam düğmesine tıklayın.

Artık çalışma kitabındaki herhangi bir hücreye =ToplamSayfa yazabilirsiniz ve bu hücre güncel sekme sayısını gösterecektir. Bu, ekip çalışmasında formülleri daha okunabilir hale getirir.

Sayım yöntemlerinin karşılaştırılması

Sık yapılan hatalar ve çözümler

• Formül #AD? hatası döndürüyor: Fonksiyon adını kontrol edin. Eski Excel sürümlerinde (2016 öncesi) Sheets() fonksiyonu mevcut olmayabilir. Böyle bir durumda yalnızca VBA makrosunu kullanın.
• Argüman ayırıcı: Sisteminiz noktalı virgülü ayırıcı olarak kullanıyorsa, formül içinde fonksiyonların arasında gereksiz virgül olmadığından emin olun (bu durumda argüman olmasa da, iç içe geçmiş formüller için bu önemlidir).
• Sheets ve Worksheets arasındaki fark: Makrolarda Worksheets.Count özelliği yalnızca tablolu sayfaları sayar ve grafik sayfalarını yoksayar. Sheets.Count özelliği ise çalışma kitabındaki tüm sekmeleri sayar.

SSS

Sadece görünür sayfaları sayabilir miyim? Bunu Excel'in standart araçlarıyla yapmak zordur, çünkü Sheets() fonksiyonu Visible özelliğinden bağımsız olarak tüm adları döndürür. Sadece görünür sayfaları saymak için ws.Visible = -1 özelliğini kontrol eden bir For Each döngüsü içeren bir makro gerekecektir.

Sekmeyi sildikten sonra sayfa sayısı neden hemen değişmiyor? Formül kullanıldığında yeniden hesaplama otomatik olarak gerçekleşir. Eğer gerçekleşmezse, tüm çalışma kitabını zorla yeniden hesaplamak için F9 tuşuna basın. Makro ise çalıştırıldığı andaki durumun bir anlık görüntüsünü gösterir ve kendiliğinden güncellenmez.

Bu Excel'in çevrimiçi sürümünde çalışıyor mu? =COUNTA(Sheets()) formülü Excel for Web'de desteklenmektedir. VBA makroları tarayıcı sürümünde çalışmaz.