boyalı hücrelerin sayılması

T

TRABLUS

Misafir
Herkese selamlar;benim bir sorum olucak elimde 1000 satırlık liste var (isim veya rakam)bunların bir kısmı renkli bu renkli hücrelerin sayısını bulmam için bir formül verebilirmisiniz.Þimdiden herkese teşekkür ederim.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Merhaba;

Tek renk mi yoksa değişik renkler mi var ?
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Yerleşik fonksiyonlarla olur mu bilemiyorum ama eğer bu iş için VBA kullanmak istersen, örneğin A sütunundaki renkli hücrelerin sayısını bulmak için;

Kod:
Sub Test()
    Dim NoA As Long, No As Long
    Dim MyRng As Range
    NoA = Cells(65536, 1).End(xlUp).Row
        For Each MyRng In Range("A1:A" & NoA)
            If MyRng.Interior.ColorIndex > 0 Then No = No + 1
        Next
    MsgBox "Renkli hücrelerin sayisi = " & No
End Sub
 
T

TRABLUS

Misafir
ilginize çok teşekkür ederim.Bu bayağı işimi görücek.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Ã?nemli değil, rica ederim.

Eğer isterseniz bu iş için aşağıdaki gibi bir kullanıcı tanımlı fonksiyon da kullanabilirsiniz.

Fonksiyonun kullanım şekli:

=CountColors(A1:A1000)

Yeni bir module yerleştirilecek kodlar:

Kod:
Function CountColors(Alan As Range) As Long
    Dim No As Long
    Dim MyRng As Range
    For Each MyRng In Alan
        If MyRng.Interior.ColorIndex > 0 Then No = No + 1
    Next
CountColors = No
End Function
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
Merhaba

sadece bende mi MyRng.Interior.ColorIndex hücre renkli olsada olmasada -4142 dönüyor?
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Selam ALPEN;

Dolgu rengi olmayanlarda o değeri vermesi gerekir. (Araç çubuğundan yapılmış dolgu renklerinde)

Edit:
1) Eğer dolgu rengini "Conditional Formatting" ile yaparsan, sanki dolgu rengi hiç yokmuş gibi o kodla yine -4142 değerini alırsın.
2) Eğer dolgu rengi "Conditional Formatting" ile yapılmışsa o zaman, aşağıdaki gibi birşey denemelisin:

Kod:
MsgBox MyRng.FormatConditions(1).Interior.ColorIndex
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
haha, evet cond. formatlı oldugunu unutmuşum hücrelerin.

:kafa: bu gif e birde dronk dronk efektli ses eklesek diyorum.

teşekkürler.
 
Katılım
12 Ağustos 2004
Mesajlar
11
"Raider"]Ã?nemli değil, rica ederim.

Eğer isterseniz bu iş için aşağıdaki gibi bir kullanıcı tanımlı fonksiyon da kullanabilirsiniz.

Fonksiyonun kullanım şekli:

=CountColors(A1:A1000)

Yeni bir module yerleştirilecek kodlar:

Kod:
Function CountColors(Alan As Range) As Long
    Dim No As Long
    Dim MyRng As Range
    For Each MyRng In Alan
        If MyRng.Interior.ColorIndex > 0 Then No = No + 1
    Next
CountColors = No
End Function
[/quote]

Raider Slm ;

Peki bu renkli hücreleri bir yerde toplamak istersek yani filtreleme yöntemi gibi o zaman ne yapmamız gerekecek ? Renkler kosullu. Makro bilmiyorum varsa baska bir öneri lütfen . Tesekkürler .
 
Üst