Renkli arkaplanları saydırabilceğim makro nedir?

[cnergiz]

VB'de yazılması gereken bir makro için acil yardımınıza ihtiyacım var.

Oluşturulacak Vb formülünde, seçtiğim hücrelerde arkaplanı renkli olanları saydırmasını istiyorum.

örnek

=renklisay(A1:C3)

Ã?rneğin bu 9 hücreden sadece 2 tanesinin arkplanı renkli ise bu formül 2 cevabını vermeli.

tşk.

 

[SGM020]

Ekteki dosya işinize yarar sanırım.

Kolay gelsin.

 

[veyselemre]

[vb:1:d1172a757c]Function renklisay(adres As Range) As Double
say = 0
For Each hucre In adres.Cells
If hucre.Interior.ColorIndex <> xlNone Then say = say + 1
Next hucre
renklisay = say
End Function
[/vb:1:d1172a757c]

 

[cnergiz]

İlginiz için teşekkürler.

Ben başka biyerden böyle birşey buldum. Bu da çalışıyor.

Public Function RenkSay(Alan1, Alan2)
Dim Alan As Range, Sayac
For Each Alan In Range(Alan1, Alan2)
If Alan.Interior.ColorIndex <> xlNone Then Sayac = Sayac + 1
Next
RenkSay = Sayac
End Function