Excel’de yazı rengine göre hücreleri sayma işlemi

Excel’de renkli yazılarla girilmiş verilerin sayısını bulmayı öğreneceğiz.

Aşağıda gördüğünüz örnek tablomuz.

1- Tablo hazırladıktan sonra ALT + F11 tuşları iler Microsof Visual Basic penceresi açılır.

2- Açılan pencerede Ekle > Modül ‘ü açıyoruz.

3- Aşağıda bulunan kodu yazıyoruz.

Kod 
Yığını:
Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

4- Kodu yazdıktan sonra pencereyi kapatmadan Excel’e geçiyoruz.

5- Kırmızı renk ile başlıyoruz. Kırmızı renk ilk nerede başlıyorsa o hücreyi yazdık. Yani A3 hücresi.

Kod 
Yığını:
=CountColour(A1:C6;A3)

6- Mavi renk içinde aynı adımları takip ediyoruz.

7- Siyah renk içinde aynı adımları takip ediyoruz.