Skip to main content

Excel'de üstü çizili hücreleri nasıl sayabilir veya toplayabilirsiniz?

Author: Xiaoyang Last Modified: 2025-07-21

Excel'de, verileri eski, alakasız veya geçersiz olarak işaretlemek için belirli hücrelere üstü çizili biçimlendirmesi uygulamak yaygın bir uygulamadır. Bu görsel ipucu, veri yönetimini büyük ölçüde iyileştirebilir ve analiz sırasında önemli olan bilgilere odaklanmanıza yardımcı olabilir. Ancak, sayma veya toplama gibi hesaplamalar yapmak gerektiğinde, üstü çizili olmayan hücrelerden ayrı olarak üstü çizili hücrelerin sonuçlarını elde etmek isteyebilirsiniz. Bu senaryolarla nasıl başa çıkılacağını anlamak, iş akışınızı hızlandırabilir ve daha doğru içgörülere yol açabilir. Bu makale, çeşitli veri yönetimi ihtiyaçları için esneklik sunan özelleştirilebilir VBA fonksiyonlarını kullanarak Excel'de üstü çizili veya çizili olmayan hücreleri sayma ve toplama konusunda birkaç pratik yöntem sağlar.

Excel'de VBA ile üstü çizili hücreleri sayma

Excel'de VBA ile üstü çizili olmayan hücreleri sayma

Excel'de VBA ile üstü çizili hücreleri hariç tutarak toplama

Kutools for Excel Kullanarak Üstü Çizili Hücreleri Sayma veya Toplama


Excel'de üstü çizili hücreleri sayma

Belirli bir aralıktaki üstü çizili biçimlendirilmiş hücrelerin toplam sayısını belirlemeniz gerekiyorsa, Excel'in yerleşik fonksiyonlarıyla doğrudan bir şekilde gerçekleştirilemez, çünkü üstü çizili gibi metin biçimlendirmesini tanıyan bir formül bulunmamaktadır. Bu nedenle, VBA'da Kullanıcı Tanımlı Fonksiyon (UDF) kullanmak pratik bir çözüm haline gelir. Bu yaklaşım özellikle yapılacaklar listelerini yönetirken, envanter güncellemelerinde ya da tamamlanan, geçersiz veya eski veri noktalarını belirtmek için üstü çizili kullanılan herhangi bir senaryoda oldukça faydalıdır.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2. VBA penceresinde, yeni bir modül oluşturmak için Ekle > Modül'e tıklayın ve ardından aşağıdaki kodu Modül Penceresi'ne yapıştırın.

VBA kodu: Üstü çizili hücreleri sayma

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. Kodu girdikten sonra, çalışma kitabınızı (makroyu korumak için) kaydedin, ardından VBA düzenleyicisini kapatın ve çalışma sayfanıza dönün. Sonucun görünmesini istediğiniz herhangi bir boş hücreye şu formülü girin (örneğin, A2:B14 aralığındaki üstü çizili hücreleri kontrol etmek için): =CountStrike(A2:B14)

İpucu: A2:B14'ü kontrol etmek istediğiniz başka bir aralıkla değiştirebilirsiniz.

count strikethrough cells with user defined function

4. Formülü çalıştırmak için Enter tuşuna basın ve Excel, belirtilen aralıktaki tüm üstü çizili hücrelerin sayısını hemen görüntüleyecektir. Bu, ilerlemeyi etkili bir şekilde izlemenize veya ihtiyaca göre artık girişleri kaldırmaya olanak tanır. Ekran görüntüsüne bakın:

count strikethrough cells result

Önleme: Bu VBA kodunun gelecekte de kullanılabilir olması için dosyayı .xlsm (Excel Makro Etkin Çalışma Kitabı) formatında kaydetmelisiniz.


Excel'de üstü çizili olmayan hücreleri sayma

Bazı durumlarda, sadece belirli bir aralıkta üstü çizili biçimlendirmesi olmayan hücrelerin sayısını bilmek isteyebilirsiniz. Örneğin, proje takip tablolarında veya satış verilerinde, genellikle yalnızca aktif/geçerli girişleri (yani, üstü çizili olmayanları) saymak istersiniz. Excel'in varsayılan COUNT veya COUNTA fonksiyonları metin biçimlendirmesini görmezden gelir, bu yüzden özel bir VBA çözümü bu tür ihtiyaçlar üzerinde hassas bir kontrol sunar.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Yeni bir kod modülü eklemek için Ekle > Modül'e gidin. Aşağıdaki kodu o modül penceresine yapıştırın.

VBA kodu: Üstü çizili olmayan hücreleri sayma

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. Makro etkin çalışma kitabınızı kaydedin, çalışma sayfasına dönün ve boş bir hücreye formülü girin (örneğin, A2:B14 için): =countnostrike(A2:B14) Ardından, sonucu almak için Enter tuşuna basın. Excel seçilen aralıktaki üstü çizili olmayan hücreleri sayacaktır.

count non strikethrough cells with user defined function

Not: Yukarıdaki örnekte, A2:B14 değerlendirilen hücrelerin aralığıdır. Çalışma sayfanız için aralık referansını gerektiği gibi ayarlayın. Ayrıca, birleştirilmiş hücreler veya özel biçimlendirme bazen sonuçları etkileyebilir—aralığınızda yalnızca amaçlanan hücreler bulunduğundan emin olun.


Excel'de üstü çizili hücreleri hariç tutarak toplama

Artık aktif olmayan veya görmezden gelinmesi gereken (yani, üstü çizili biçimlendirilmiş) sayısal verilerle uğraşırken, yalnızca geçerli sayıları toplamak genellikle çok önemlidir. Bu, bütçe çizelgelerinde, envanter yönetimi veya görev takibinde yaygındır; burada üstü çizili girişler artık kullanılmayan veya tamamlanmış öğeleri temsil eder ve toplamlardan çıkarılmalıdır. Excel'in yerleşik SUM fonksiyonu biçimlendirilmiş ve biçimsiz hücreler arasında ayrım yapmadığından, bu işlem için Kullanıcı Tanımlı VBA Fonksiyonuna ihtiyaç duyulur.

1. Microsoft Visual Basic for Applications düzenleyicisini açmak için ALT + F11 tuşlarını kullanın.

2. Bir modül eklemek için Ekle > Modül'e tıklayın ve aşağıdaki kodu o modül penceresine yapıştırın.

VBA kodu: Üstü çizili hücreleri hariç tutarak toplama

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. VBA düzenleyicisini kaydedip kapatın. Hedef çalışma sayfanızda, boş bir hücre seçin ve aşağıdaki formülü girin (örneğin, B2:B14 için): =excstrike(B2:B14) Enter tuşuna basın ve Excel, belirttiğiniz aralıktaki üstü çizili biçimlendirme içermeyen hücreleri toplayacak ve artık değerleri dışlayan bir toplamı anında sağlayacaktır.

sum non strikethrough cells with user defined function

Not: B2:B14'ü gerçek veri aralığınıza göre ayarlayın. Bu fonksiyon, değerlerinden bağımsız olarak üstü çizili hücreleri görmezden gelir. Beklenmedik sonuçlar alırsanız, tüm hücrelerin sayısal girişler içerdiğinden ve doğru biçimlendirme olduğundan emin olun.

Pratik İpucu: Herhangi bir hücrenin üstü çizili durumunu değiştirdikten sonra toplamayı yenilemeniz gerekiyorsa, çalışma sayfasını yeniden hesaplamak için F9 tuşuna basın.


Kutools for Excel Kullanarak Üstü Çizili Hücreleri Sayma veya Toplama

Sadece üstü çizili biçimlendirilmiş hücreleri saymak veya toplamak istiyorsanız, Excel bunun için yerleşik bir yola sahip değildir—ancak Kutools for Excel, Özel Filtre özelliğiyle bunu kolaylaştırır.

1. Sütunu Seçin

Üstü çizili biçimlendirmesi olan hücreleri içeren sütuna tıklayın.

2. Özel Filtreyi Açın

Kutools Plus sekmesine gidin, ardından Özel Filtre > Üstü Çizili Hücreleri Filtrele'ye tıklayın.

3. Filtreyi Onaylayın

Şartı karşılayan kaç hücre olduğunu gösteren bir iletişim kutusu açılacaktır. Devam etmek için Tamam'a tıklayın.

kutools-filter-result

4. Sonuçları Görüntüleme

Üstü çizili hücreler şimdi filtrelenmiş ve görülebilir haldedir. Filtrelenmiş aralığı seçin—Excel'in alt kısmındaki durum çubuğunda anında Toplam, Ortalama ve Sayı'yı göreceksiniz.

kutools-count-sum

✨ Neden Kutools Kullanılır?

Kutools for Excel, bu gibi güçlü ve kullanımı kolay 300'den fazla özellik sunar—karmaşık formüller veya VBA kodu yazmadan zaman kazanmanıza ve üretkenliği artırmanıza yardımcı olur.

Biçime göre filtreleme, veri temizleme, sayfaları birleştirme veya toplu düzenleme yapıyorsanız, Kutools işinizi saniyeler içinde basitleştirir.

👉 Kutools for Excel'i 30 gün boyunca ücretsiz deneyin ve eksikliğini hissettiğiniz şeyleri keşfedin!


İlgili makaleler:

Excel'de bir hücre aralığındaki kalın sayıları nasıl toplarsınız / sayarsınız?

Excel'de arka plan rengine göre hücreleri nasıl sayabilir veya toplayabilirsiniz?

Excel'de yazı tipi renklerine göre hücreleri nasıl sayabilir veya toplayabilirsiniz?

En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın: Akıllı Yürütme   |  Kod Oluştur  |  Özel Formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur  |  Geliştirilmiş İşlevleri Çağır
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle   |  Boş Satırları Sil   |  Sütunları veya Hücreleri Verileri Kaybetmeden Birleştir   |   Formül Olmadan Yuvarla ...
Süper ARA: Çok Kriterli Düşeyara    Çoklu Değer Düşeyara  |   Çoklu sayfa araması   |   Bulanık Eşleme ....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştır ...
Öne Çıkan Özellikler: Izgara Odaklama   |  Tasarım Görünümü   |   Gelişmiş formül çubuğu    Çalışma Kitabı & Çalışma Sayfası Yöneticisi   |  Otomatik Metin Kütüphanesi (Auto Text)   |  Tarih Seçici   |  Veri Birleştir   |  Hücreleri Şifrele/Şifre Çöz    Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtrele...) ...
En İyi15 Araç Seti12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...)   |   50+ Grafik Türü (Gantt Grafiği, ...)   |   40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...)   |   19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...)   |   12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...)   |   7 Birleştir & Böl Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...)   |   ... ve daha fazlası

Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar.  En çok ihtiyacınız olan özelliği almak için buraya tıklayın...


Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır

  • Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
  • Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!