Yazı Rengine Göre Toplama İşlemi Yap - Microsoft Excel

Alan bilgisi ve istenilen rengin bulunduğu alan bilgisi verildiğinde bu şartlara göre toplama işlemi yapıp sonucu yazdıran VBA kodudur. Kullanıcı tanımlı fonksiyon örneğidir.

Option Explicit

Function YaziRengineGoreToplamaIslemiYap(aralik As Range, renkAlan As Range) As Double
    Dim hucre        As Range
    Dim geciciToplam As Double
    Dim renkIndeks   As Integer
    
    renkIndeks = renkAlan.Cells(1, 1).Font.ColorIndex
    geciciToplam = 0
    
    On Error Resume Next
    
    For Each hucre In aralik.Cells
        If hucre <> "" Then
            If hucre.Font.ColorIndex = renkIndeks Then
                geciciToplam = geciciToplam + hucre.value
            End If
        End If
    Next
    
    On Error GoTo 0
    Set hucre = Nothing
    
    YaziRengineGoreToplamaIslemiYap = geciciToplam
End Function

=YaziRengineGoreToplamaIslemiYap(A1:R20;C16)