Yazı Rengine Göre Hücreleri VBA ile Sayma

LEMIDURUPiNAR · 6 Eyl 2020

merhaba font rengine göre farklı renkdeki farklı rakamları saydırmak istiyorum yardımcı olabilirmisiniz

Ömer BARAN · 6 Eyl 2020

Merhaba, forumumuza hoşgeldiniz Sayın @LEMİ DURUPINAR .

Sorularınızı örnek belge üzerinden sorarsanız daha isabetli olur.
Forumumuzun SORU-CEVAP bölümünde dosya eklemek indirmek ÜCRETSİZdir.
Konuyla ilgili gerekli açıklama cevabımın altındaki İMZA bölümünde var.
.

ExcelDepo · 3 Kas 2026

Merhaba, yazı rengine göre sayma işlemi Excel'in hazır işlevleriyle yapılamadığı için küçük bir kullanıcı tanımlı işlev gerekir. Alt+F11 ile VBA penceresini açıp Insert > Module ile eklenen modüle aşağıdaki kodu yapıştırmanız yeterlidir:

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (12 satır). Giriş Yap

Formül nasıl çalışır?

Sayılacak her renk için bir örnek hücre hazırlanır; örneğin C1 hücresinin yazı rengi kırmızı, C2 hücresinin yazı rengi siyah yapılır.
Sonucun görüneceği hücreye =FONTRENGISAY(A1:A100;C1) yazılır. İlk bağımsız değişken sayılacak aralık, ikincisi rengi alınacak örnek hücredir.
İşlev aralıktaki dolu hücrelerin yazı rengini örnek hücrenin rengiyle karşılaştırır ve eşleşenleri sayar; boş hücreler sayılmaz.
A:A gibi tüm sütun seçildiğinde yalnız sayfanın kullanılan alanı taranır; böylece hesaplama gereksiz yere yavaşlamaz.

Notlar

Yazı rengini değiştirmek Excel'de yeniden hesaplamayı tetiklemez; renk değiştirildikten sonra sonucu güncellemek için F9 tuşuna basılmalıdır.
Koşullu biçimlendirmeyle verilen renkler bu işlevle okunamaz; işlev yalnız elle verilen yazı rengini dikkate alır.
Dosya makro içerdiği için .xlsm biçiminde kaydedilmelidir.

Yazı Rengine Göre Hücreleri VBA ile Sayma

LEMIDURUPiNAR

ExcelDepo

Ömer BARAN

ExcelDepo

Bahadır Örkmes

Benzer konular Benzer kaynaklar Benzer dosyalar