Hücre Rengine Göre Toplama Fonksiyonu

Bu bölümde hücre rengine göre toplama işlemi yapacağız.

Aşağıdaki makro kodu, seçtiğimiz hücre rengi ile aralıktaki eşleşen hücrelerin değerini toplar. Yani hücre rengine göre toplama işlemi yapılmış olur:

Function makro_toplam(EslesenRenk As Range, Aralik As Range)

Application.Volatile True

Dim Hucre As Range
Dim myRenk As Long

myRenk = EslesenRenk.Cells(1, 1).Interior.Color

For Each Hucre In Aralik
    If Hucre.Interior.Color = myRenk Then
        makro_toplam = makro_toplam + Hucre.Value
    End If
Next Hucre

End Function

Not: Fonksiyonu girerken formül çubuğundaki fonksiyon işaretine tıklarsanız değişkenleri görebilirsiniz:

Paylaş: