maxi_cex Posted March 12, 2013 Share Posted March 12, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
Cyph3r Posted March 12, 2013 Share Posted March 12, 2013 Renge göre filtreleme yapılıyorda, saydırma olayını bulamadım valla :huh: Quote Link to comment Share on other sites More sharing options...
maxi_cex Posted March 12, 2013 Author Share Posted March 12, 2013 (edited) Ö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 Quote Link to comment Share on other sites More sharing options...
kalelibilişim Posted March 12, 2013 Share Posted March 12, 2013 Şöyle bir örnek işini görür mü ? http://s3.dosya.tc/server/yDLxuT/YeniMicrosoftOfficeExcel_al__maSayfas_.xlsx.html Quote Link to comment Share on other sites More sharing options...
maxi_cex Posted March 13, 2013 Author Share Posted March 13, 2013 Şö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. Quote Link to comment Share on other sites More sharing options...
maxi_cex Posted March 14, 2013 Author Share Posted March 14, 2013 Konu güncel henüz çözemedim arkadaşlar yardımınızı bekliyorum. Quote Link to comment Share on other sites More sharing options...
Berdush_03 Posted March 14, 2013 Share Posted March 14, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
maxi_cex Posted March 14, 2013 Author Share Posted March 14, 2013 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. Quote Link to comment Share on other sites More sharing options...
kalelibilişim Posted March 14, 2013 Share Posted March 14, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
maxi_cex Posted March 14, 2013 Author Share Posted March 14, 2013 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. Quote Link to comment Share on other sites More sharing options...
kalelibilişim Posted March 14, 2013 Share Posted March 14, 2013 (edited) Ş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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.