• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Renk, Karakter Sayısı, Gruplandırma

Katılım
20 Aralık 2013
Mesajlar
56
Excel Vers. ve Dili
2007 Türkçe
Merhaba arkadaşlar forumda çok araştırdım ama bulduğum formüller sorularımın tam karşılığını veremedi. Sizlerden ricam ekteki tabloda bulunan bir alandaki,

1)Kırmızı renkli hücrelerin sayısını
2)Bütün kırmızı renkli hücrelerde bulunan karakter sayısını
3)İçinde 2 karakter olan kırmızı renkli hücre sayısı
4)İçinde 3 karakter olan kırmızı renkli hücre sayısı
5)İçinde 4 karakter olan kırmızı renkli hücre sayısı
6)Aynı satırda bulunan kırmızı renkli hücre sayısını bulmamız.

Bu konuda tablo üzerinde uygulamalı olarak yardımcı olabilirseniz çok mutlu olurum. Teşekkürler.
 

Ekli dosyalar

örnek belirli aralıklar (C1:J15) için mi geçerli, yoksa değişken bir aralık mı var?
 
Merhaba,

6. madde hariç diğerleri tamam. 6. maddeyi de sonradan gördüm :)

Not : Hücreler Koşullu Biçimlendirme ile Biçimlendirilmemelidir.


Kod:
Function Renk(BenzerHucre As Range, Alan As Range, Optional Uzunluk As Integer = 0)
    Dim Hcr As Range
    Dim i   As Integer
    
    i = 0
    For Each Hcr In Alan
        If Hcr.Interior.ColorIndex = BenzerHucre.Interior.ColorIndex Then
            If Uzunluk = 0 Then
                i = i + 1
            Else
                If Len(Hcr) = Uzunluk Then
                    i = i + 1
                End If
            End If
        End If
    Next Hcr
    Renk = i
    
End Function
 

Ekli dosyalar

Merhaba,

6. madde hariç diğerleri tamam. 6. maddeyi de sonradan gördüm :)

Not : Hücreler Koşullu Biçimlendirme ile Biçimlendirilmemelidir.


Kod:
Function Renk(BenzerHucre As Range, Alan As Range, Optional Uzunluk As Integer = 0)
    Dim Hcr As Range
    Dim i   As Integer
    
    i = 0
    For Each Hcr In Alan
        If Hcr.Interior.ColorIndex = BenzerHucre.Interior.ColorIndex Then
            If Uzunluk = 0 Then
                i = i + 1
            Else
                If Len(Hcr) = Uzunluk Then
                    i = i + 1
                End If
            End If
        End If
    Next Hcr
    Renk = i
    
End Function


Necdet bey çok sağolun ama koşullu biçimlendirme kullanıyoruum maalesef. Hepsinin formülleri ayrı ayrı olursa da olur sonuçta değerine göre her birini sayfada ayrı ayrı konumlandıracağım bununla ilgili bir fikriniz var mıdır acaba teşekkürler
 
örnek belirli aralıklar (C1:J15) için mi geçerli, yoksa değişken bir aralık mı var?

evet aralık değişikliği olacak C1:J15 temsili aralıklardır.. her birinin formülü ayrı ayrı olursa çok daha iyi olur koşullu biçimlendirme ile bu renkleri elde ediyorum
 
şimdilik örneği inceler misiniz? SABİT aralık için istediğimiz sonuçları üretiyor mu? asıl sıkıntılı olan bir sonraki adım, hayırlısı !
NOT: BUL düğmesi şimdilik devre dışı sadece belirtilen aralıkta aaa değerlerini düzenleyip değişimi kontrol eder misiniz?
 

Ekli dosyalar

şimdilik örneği inceler misiniz? SABİT aralık için istediğimiz sonuçları üretiyor mu? asıl sıkıntılı olan bir sonraki adım, hayırlısı !
NOT: BUL düğmesi şimdilik devre dışı sadece belirtilen aralıkta aaa değerlerini düzenleyip değişimi kontrol eder misiniz?

Evet bravo istediğim şekilde bir şeyler olmuş :) :) devam edecek mi bu çalışma?
 
inşallah :) birazdan bakarım
 
Merhaba,

1)Kırmızı renkli hücrelerin sayısını: B1
2)Bütün kırmızı renkli hücrelerde bulunan karakter sayısını: Bu maddeyi anlamadım
3)İçinde 2 karakter olan kırmızı renkli hücre sayısı: B3
4)İçinde 3 karakter olan kırmızı renkli hücre sayısı: B4
5)İçinde 4 karakter olan kırmızı renkli hücre sayısı: B5
6)Aynı satırda bulunan kırmızı renkli hücre sayısını bulmamız.: C sutunu

dosyanız ekte
 

Ekli dosyalar

Systran, Tasmed ve Necdet bey sizlere ayrı ayrı teşekkür ediyorum ilgilendiğiniz için :)
 
mak ve min renk örneğini buraya ekliyorum.

aralıklarda koşullu biçimlendirme var
 

Ekli dosyalar

Çok mersi Sysran bu da farklı bir yaklaşım teşekkür ederim tekrardan :)
 
Geri
Üst