Excel’de üstü çizili hücreleri nasıl sayar veya toplarsınız?
Excel’de, verileri güncel değil, ilgisiz veya geçersiz olarak işaretlemek amacıyla belirli hücrelere üstü çizili biçimlendirme uygulamak oldukça yaygındır. Bu görsel ipucu, veri yönetimi açısından önemli bir kolaylık sağlar ve analiz sırasında dikkatinizi kritik bilgilere odaklamanıza yardımcı olur. Ancak sayma veya toplama gibi hesaplamalar yaparken, üstü çizili hücrelerin sonuçlarını normal hücrelerden ayrı değerlendirmek isteyebilirsiniz. Bu tür senaryolarla etkili şekilde başa çıkmayı bilmek, iş akışınızı hızlandırır ve daha doğru içgörülere ulaşmanızı sağlar. Bu makale, Excel’de üstü çizili ya da üstü çizili olmayan hücreleri saymak ve toplamak için özelleştirilebilir VBA işlevlerini kullanan birkaç pratik yöntemi ele almaktadır.
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 dışlayarak toplama
Kutools for Excel ile Üstü Çizili Hücreleri Sayma veya Toplama
Excel'de üstü çizili hücreleri sayma
Belirli bir aralıkta üstü çizili biçimlendirme yapılmış hücrelerin toplam sayısını belirlemeniz gerekiyorsa, bunu Excel’in yerleşik işlevleriyle doğrudan yapamazsınız; çünkü metin biçimlendirmelerini—örneğin üstü çizili stilleri—tanıyan bir formül mevcut değildir. Bu nedenle, VBA ile bir Kullanıcı Tanımlı İşlev (UDF) oluşturmak en pratik çözümdür. Bu yaklaşım, yapılacaklar listeleri, envanter güncellemeleri veya üstü çizili biçimin tamamlanmış, geçersiz ya da eskimiş veri noktalarını işaretlemek için kullanıldığı her türlü senaryoda özellikle faydalıdır.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun. Microsoft Visual Basic for Applications penceresi.
2. VBA penceresinde yeni bir modül oluşturmak için Ekle > Modül seçeneğine 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ıp çalışma sayfanıza dönün. Sonucun görünmesini istediğiniz herhangi bir boş hücreye aşağıdaki formülü girin (örneğin,)A2:B14 aralığındaki üstü çizili hücreleri kontrol etmek için):=CountStrike(A2:B14)
İpucu: A2:B14 aralığını, kontrol etmek istediğiniz başka bir aralıkla değiştirebilirsiniz.
4. Formülü çalıştırmak için Enter tuşuna basın; Excel, sınırlı aralık içindeki tüm üstü çizili hücrelerin sayısını hemen gösterecektir. Bu, ilerlemenizi verimli şekilde takip etmenize veya eski girdileri gerektiğinde kaldırmanıza olanak tanır. Ekran görüntüsüne bakın:
Uyarı: Bu VBA kodunun gelecekte de kullanılabilir kalması için dosyayı .xlsm (Makro Etkin Excel Çalışma Kitabı) biçiminde kaydetmeniz gerekir.
Excel'de üstü çizili olmayan hücreleri sayma
Bir aralıkta yalnızca üstü çizili olmayan hücrelerin sayısına ihtiyaç duymanız mümkündür. Örneğin, proje takip tablolarında veya satış verilerinde genellikle yalnızca aktif/geçerli girdileri—yani üstü çizili olmayanları—ileriki işlemler için saymak istersiniz. Excel’in varsayılan SAY ve BOŞSAY işlevleri metin biçimlendirmesini dikkate almadığından, bu tür durumlarda özel bir VBA çözümüyle ihtiyacınız olan kesin kontrole sahip olabilirsiniz.
1. Microsoft Visual Basic for Applications penceresini başlatmak için ALT + F11 tuşlarına basın. Microsoft Visual Basic for Applications penceresi.
2. Yeni bir kod modülü eklemek için Ekle > Modül seçeneğine gidin. Aşağıdaki kodu bu 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 destekli çalışma kitabınızı kaydedin, çalışma sayfasına dönün ve boş bir hücreye aşağıdaki formülü girin (örneğin,)A2:B14 için):=countnostrike(A2:B14) Ardından sonucu almak için Enter tuşuna basın. Excel, belirtilen aralıkta üstü çizili biçimlendirme yapılmamış yalnızca o hücreleri sayacaktır.
Not: Yukarıdaki örnekte, A2:B14, değerlendirilen hücrelerin aralığıdır. Çalışma sayfanıza uygun şekilde aralık referansını ayarlayın. Ayrıca, birleştirilmiş hücrelerin veya özel biçimlendirmenin bazen sonuçları etkileyebileceğini unutmayın—aralığınızın yalnızca amaçlanan hücreleri içerdiğinden emin olun.
Excel'de üstü çizili hücreleri dışlayarak toplama
Sayısal verilerle çalışırken, bazı girdilerin artık geçerli olmadığı ya da göz ardı edilmesi gerektiği (yani üstü çizili olarak biçimlendirildiği) durumlar sıklıkla karşılaşılmaktadır. Bu tür senaryolarda yalnızca geçerli sayıları toplamak büyük önem taşır. Böyle bir ihtiyaç, özellikle bütçe sayfalarında, envanter yönetiminde veya görev takibinde yaygındır; çünkü üstü çizili girdiler genellikle eski veya tamamlanmış öğeleri temsil eder ve toplamlardan çıkarılmaları gerekir. Ancak Excel’in yerleşik TOPLA işlevi, biçimlendirilmiş ile biçimlendirilmemiş hücreleri birbirinden ayırt edemez; bu işlem için özel olarak yazılmış bir Kullanıcı Tanımlı VBA İşlevi gereklidir.
1. Microsoft Visual Basic for Applications düzenleyicisini açmak için ALT + F11 tuşlarını kullanın. Microsoft Visual Basic for Applications editörü.
2. Bir modül eklemek için Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu modül penceresine yapıştırın.
VBA kodu: Üstü çizili hücreleri dışlayarak 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; Excel, belirtilen aralıkta yalnızca üstü çizili olmayan hücreleri toplayacak ve anında eski değerleri hariç tutan bir toplam sunacaktır.
Not: B2:B14 aralığını gerçek veri aralığınızla eşleştirecek şekilde ayarlayın. Bu işlev, değeri ne olursa olsun üstü çizili hücreleri dikkate almaz. Beklenmeyen sonuçlar alırsanız, tüm hücrelerin sayısal veri içerdiğinden ve doğru biçimlendirildiğinden emin olun.
Pratik ipucu: Herhangi bir hücrenin üstü çizili durumunu değiştirdikten sonra toplamı yenilemeniz gerekiyorsa, çalışma sayfasını yeniden hesaplamak için F9 tuşuna basın.
Kutools for Excel ile Üstü Çizili Hücreleri Sayma veya Toplama
Üstü çizili biçimlendirmeye sahip yalnızca o hücreleri saymak veya toplamak istiyorsanız, Excel bunun için yerleşik bir çözüm sunmaz—ancak Kutools for Excel, Özel Filtre özelliğiyle bunu kolaylaştırır.
1. Sütunu seçin
Üstü çizili biçimlendirmeye sahip hücreleri içeren sütuna tıklayın.
2. Özel Filtreyi Açın
KUTOOLS PLUS sekmesine gidin, ardından Özel Filtre > Üstü Çizgili Hücreleri Filtrele seçeneğine tıklayın.
3. Filtreyi Onaylayın
Koşulu karşılayan kaç hücre bulunduğunu gösteren bir iletişim kutusu görünecektir. Devam etmek için Tamam düğmesine tıklayın.
4. Sonuçları Görüntüleyin
Üstü çizili hücreler artık filtrelenmiş ve görünür durumda! Filtre Aralığı’nı seçin—toplamı, ortalamayı ve sayımı hemen Excel’in Durum Çubuğu’nda göreceksiniz.
✨Neden Kutools Kullanmalısınız?
Kutools for Excel, karmaşık formüller veya VBA kodu yazmanıza gerek kalmadan zaman kazanmanızı ve üretkenliğinizi artırmanızı sağlayan 300’den fazla güçlü ve kullanımı kolay özelliğe sahiptir.
Biçime göre filtreleme, veri temizleme, sayfaları birleştirme ya da toplu düzenleme yapıyor olun—Kutools işinizi saniyeler içinde kolaylaştırır.
Kutools for Excel'i 30 gün boyunca ücretsiz deneyin ve neyi kaçırabileceğinizi keşfedin!
İlgili makaleler:
Excel’de bir hücre aralığındaki kalın biçimli sayıları nasıl toplarsınız veya sayarsınız?
Excel'de hücreleri arka plan rengine göre nasıl sayar ve toplarsınız?
Excel'de hücreleri yazı tipi rengine göre nasıl sayar veya toplarsınız?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek 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, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğ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 kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar