Hücre Rengine Göre; Toplama, Sayma ve Ortalama Bulma

Hücre Rengine Göre; Toplama, Sayma ve Ortalama Bulma

Aşağıdaki KTF ile hücre rengine göre; toplama, sayma ve ortalamayı bulmamızı sağlayan bir fonksiyon yazılmıştır.
‘Hücrenin rengine göre toplama, sayma ve ortalama bulur.

Function Renkİşlem(aln As Range, rhcr As Range, Optional işl As String = “T”)

Application.Volatile

‘ Opsiyon işl “T” Toplamı, “O” Ortalamayı, “S” saymayı belirtir.
‘ Opsiyon belirtimemiş ise sonuç toplamı verir.

Dim rhcrr As Long
Dim hcrs As Long
Dim snç As Variant
Dim hcr As Range

işl = UCase(işl) ‘Opsiyonun küçük harf olarak girilmesi halinde yanlış sonuç üretmeyecek.
snç = 0
hcrs = 0
rhcrr = rhcr.Interior.Color

If işl = “T” Or işl = “O” Then

For Each hcr In aln

If hcr.Interior.Color = rhcrr Then
snç = snç + hcr.Value
hcrs = hcrs + 1

End If

Next hcr

End If

If işl = “S” Then
For Each hcr In aln

If hcr.Interior.Color = rhcrr Then snç = snç + 1

Next hcr

End If

If işl = “O” Then
snç = snç / hcrs

End If

Renkİşlem = snç

End Function

Dosya:

RengeGöre Sayma Toplama Ortalama

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>