Toplama işlemi yapılacak alan ve arka plan rengini verecek ilgili alan parametreleri verildiğinde bu arka plan renklerine sahip hücrelerdeki sayıları toplayan ve sonucunu yazdıran VBA kodudur. Kullanıcı tanımlı fonksiyon örneğidir.
Option Explicit
Function ArkaPlanRengineGoreToplamaIslemiYap(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).Interior.ColorIndex
geciciToplam = 0
On Error Resume Next
For Each hucre In aralik.Cells
If hucre <> "" Then
If hucre.Interior.ColorIndex = renkIndeks Then
geciciToplam = geciciToplam + hucre.value
End If
End If
Next
On Error GoTo 0
Set hucre = Nothing
ArkaPlanRengineGoreTopla = geciciToplam
End Function
=ArkaPlanRengineGoreToplamaIslemiYap(J1:M8;J5)