Excelde Font Renklerine Göre Sayı Adedi Bulma ve Toplama 

Excelde hücrenin yazı tipi rengine göre toplama ve hatta hücrenin rengine göre toplama yaptırabilirsiniz. bunun için aşağıda paylaştığım kodları ALT+F11 tuşlarına basarak karşınıza çıkan makro arayüzünde İnsert-Module adımını takip ederek yapıştırın. formüllerin tadını çıkarın.
Public Function FONTTOPLA(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
If rng.Font.Color = pRange2.Font.Color Then
xTotal = xTotal + rng.Value
End If
Next
FONTTOPLA = xTotal
End Function