Excell 2010 Da Kırmızı Renkli Yazıları Sayma

[maxi_cex]

Arkadaşlar Excell 2010 da hücrelerdeki kırmızı ve siyah renkteki yazıları ayrı ayrı saymasını istiyorum. (Örneğin Hücreye önceden kırmızı bir yazı yazmışsam sildiğim zaman onu saymasın.) Bilen arkadaşlardan yardımlarını bekliyorum.

Edited March 12, 2013 by maxi_cex

[Cyph3r]

Renge göre filtreleme yapılıyorda, saydırma olayını bulamadım valla :huh:

[maxi_cex]

Örnek çalışması aşağıdaki linkte var. Galiba visual basic macrosunu kullanarak yapmışlar. Benim istediğim hücre içerisindeki yazıyı silince onu saymasın.

 

http://s3.dosya.tc/server/YDRjbw/Zeminrengivefontag_rei_lemler.xls.html

 

Kodları ise aşağıdadır.

 

 

Function renksay(Aralık As Range, _
    Renkİndeksi As Integer, _
    Optional OfText As Boolean = False) As Long
'Bu fonksiyon belirtilen aralıktaki zemin renginin kaç tane olduğunu verir
'
'
Dim rng As Range
Application.Volatile True

For Each rng In Aralık.Cells
If OfText = True Then
    renksay = renksay - _
            (rng.Font.ColorIndex = Renkİndeksi)
Else
    renksay = renksay - _
       (rng.Interior.ColorIndex = Renkİndeksi)
End If
Next rng

End Function

 

 

Edited March 12, 2013 by maxi_cex

[kalelibilişim]

Şöyle bir örnek işini görür mü ? 

http://s3.dosya.tc/server/yDLxuT/YeniMicrosoftOfficeExcel_al__maSayfas_.xlsx.html 

[maxi_cex]

Şöyle bir örnek işini görür mü ? 

http://s3.dosya.tc/server/yDLxuT/YeniMicrosoftOfficeExcel_al__maSayfas_.xlsx.html 

 

ilgin için teşekkür ederim ama senin yazdığın formülde A ya da B olanları say demişsin. Bende A ya da B yerine bir sürü seri nolu cihaz var onların içerisinde arızalı cihazların seri nolarını kırmızı renkte yazmıştım. Ondan dolayı kırmızı renkli olan yazıları sayması gerekli, onunla beraber sildiğim hücredeki seri noları da kırmızı olarak görmemesi lazım yoksa onu da sayıyor.

[maxi_cex]

Konu güncel henüz çözemedim arkadaşlar yardımınızı bekliyorum.

[Berdush_03]

Konu güncel henüz çözemedim arkadaşlar yardımınızı bekliyorum.

 

 

 

Excel sayfasında kullanmanız gereken kod: =Renksay($D$3:$D$12;6;1)
Kodla ilgili açıklama:
1- Renksay: Komut
2- $D$3:$D$12: D sütununda istenilen aralık. (Burayı kendinize göre düzenleyebilirsiniz.
3- 1: Renk kodu, bu kodu istediğiniz rengi saydırmak için değiştirmelisiniz.

 

Edited March 14, 2013 by Berdush_03

[maxi_cex]

 

 

Excel sayfasında kullanmanız gereken kod: =Renksay($D$3:$D$12;6;1)
Kodla ilgili açıklama:
1- Renksay: Komut
2- $D$3:$D$12: D sütununda istenilen aralık. (Burayı kendinize göre düzenleyebilirsiniz.
3- 1: Renk kodu, bu kodu istediğiniz rengi saydırmak için değiştirmelisiniz.

 

 

Senin bahsettiğin kısma kadar doğru renkleri sayıyor. Fakat örnek olarak kırmızı fontlu veri sayısından bir tane sildiğin zaman 1 değer düşmüyor.

[kalelibilişim]

Sanırım çözdüm : Excell renk değişikliklerini anında algılayıp formül sonucunu ona göre yeniden hesaplayamıyor.

Kaydet butonuna bastıktan sonra sanırım formül sonucu doğru görünecek.

Edited March 14, 2013 by kalelibilişim

[maxi_cex]

Sanırım çözdüm : Excell renk değişikliklerini anında algılayıp formül sonucunu ona göre yeniden hesaplayamıyor.

Kaydet butonuna bastıktan sonra sanırım formül sonucu doğru görünecek.

 

 

Kaydet dediğim zaman ya da kaydedip yeniden başlattığım zaman sonuç yine aynı işe yaramadı. Excell hücresinde son olarak hangi renk ile yazı yazılmış ise silip yeniden bir şey yazdığın zaman aynı rengi kullanıyor. Bu hücre içindekini sildikten sonra font rengini boş vermesi gerekli.

[kalelibilişim]

Şimdi denedim maalesef dediğin gibi...

 

Edit :

 

Tam olarak senin istediğin değil ama şöyle bir çözüm önerebilirim:

Kırmızı seri no ların başına - işareti koy yani kırmızılar negatif sayı olsun.

Böyle olunca B sutunu için

Sıfırdan büyükleri say formülü =EĞERSAY(B:B;">0")  

Sıfırdan küçükleri say formülü =EĞERSAY(B:B;"<0")

 

İşine yararsa hücre biçimlendirmesinden negatif sayılar direk kırmızı görünecek gibi ayarlanabilir.

Ayrıca bastaki - işareti seni rahatsız ediyorsa yine onun görünmemesi de sağlanabilir.

Edited March 14, 2013 by kalelibilişim