[]
excelde kırmızı renkli hücre sayısını bulma
Evet, derdim budur.
Belirli bir renge boyanmış hücrelerin sayısını bulmak istiyorum. kolayca basitce bir yol bulamadım
Belirli bir renge boyanmış hücrelerin sayısını bulmak istiyorum. kolayca basitce bir yol bulamadım
tek bir sütundaysa renge göre sortlasan, sonra baksan kaç tane diye?
- hope ender
(15.11.12 11:37:52)
sürekli değişeceği için belli bir hücreye sayısını yazdırmak istiyorum
- kisa (15.11.12 11:38:26)
VBA bilen bi arkadaş lazım ozaman sana abicim.
- hope ender (15.11.12 11:43:17)
teşekkürler, kendim kasayım vba ya, hallederim de derdim daha basit bir yolu gelmiştir belki yeni versiyonlarla diyeydi. oturup uğraşayım o zaman.
- kisa (15.11.12 11:44:36)
formülle zor gibi vba dan anlar mısınız?
- halilibo
(15.11.12 11:46:20)
office 2007 ve üzeri için bir rengi filtreleyip, sonra hücreleri seçerek count'una bakabilirsin. formülle yapıp bir hücrede istiyorsan VB kullanmak zorundasın yukarıdaki linklerde verildiği gibi.
- desdinova (15.11.12 11:50:16)
VBA ile yapmak istersen aşağıdaki şekilde yapılabilir. Alt+F11 ile VBA kod editörünü aç. Modules bölümüne Insert Module yap.
Modülün içerisine şu fonksiyonu ekle:
Function RenkSay(Rng As Range, RngColor As Range) As Integer
Dim Cll As Range
Dim Clr As Long
Clr = RngColor.Interior.Color
For Each Cll In Rng
If Cll.Interior.Color = Clr Then
RenkSay = RenkSay + 1
End If
Next Cll
End Function
Artık RenkSay formülünü bu Excel içerisinde kullanabilirsin. Kullanımı şöyle:
=RenkSay(A1:A10;B1) (Meali:A1:A10 arasındaki hücrelerde B1 hücresininin rengiyle aynı renkte olan hücreleri say)
Not: Formül yazıldınta sonra renk değiştirildiğinde formüle yeniden gir-çık yapıldığında etkin olacaktır. Bu da aşılabilir bir sorun ama uzatmayayım daha fazla. :)
Modülün içerisine şu fonksiyonu ekle:
Function RenkSay(Rng As Range, RngColor As Range) As Integer
Dim Cll As Range
Dim Clr As Long
Clr = RngColor.Interior.Color
For Each Cll In Rng
If Cll.Interior.Color = Clr Then
RenkSay = RenkSay + 1
End If
Next Cll
End Function
Artık RenkSay formülünü bu Excel içerisinde kullanabilirsin. Kullanımı şöyle:
=RenkSay(A1:A10;B1) (Meali:A1:A10 arasındaki hücrelerde B1 hücresininin rengiyle aynı renkte olan hücreleri say)
Not: Formül yazıldınta sonra renk değiştirildiğinde formüle yeniden gir-çık yapıldığında etkin olacaktır. Bu da aşılabilir bir sorun ama uzatmayayım daha fazla. :)
- transparent layer (15.11.12 16:40:19 ~ 16:40:52)
1
