Excel'de üstü çizili hücreleri nasıl sayabilir veya toplayabilirsiniz?
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.
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:
Ö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.
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.
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.
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.
✨ 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 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!