DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function renkli_hucre_say(alan As Range) As Long
Dim hcr As Range, tplm As Long
For Each hcr In alan
If hcr.Interior.ColorIndex <> xlNone Then tplm = tplm + 1
Next
renkli_hucre_say = tplm
End Function
Function renkli_hucre_say(alan As Range) As Long
Dim hcr As Range, tplm As Long
[COLOR=red]Application.Volatile[/COLOR]
For Each hcr In alan
If hcr.Interior.ColorIndex <> xlNone Then tplm = tplm + 1
Next
renkli_hucre_say = tplm
End Function
peki renge göre nasıl saydırabiliz, sırf kırmızı, sırf siyah veya yeşil vb. ve renk kodlarını mevcut renge göre nasıl buluruz.
konu ile ilgili başlıkları inceledim, fakat tam istediğimi bulamadım. benim istediğim renkli hücre dolu ise say şeklinde olacaktı. yani hücre rengi fark etmez, dolgu rengi var ise ve içinde değer var ise saymasını istiyorum.Zaten konu ile örnek dosya eklemişiz. Defalarca işlendi bu soru.
Renkli zemin ve Font Özelliklerine Göre Uygulamalar
.