alt zemin olmayan koşullu biçimlendirilmiş rengi sayma

[imparator26]

Alıntı:
MFA2000 tarafından gönderildi Mesajı Görüntüle
Merhaba,

Koşullu biçimlendirme ile renk sayımı manuel renk girişi sayımından biraz farklı:

Excel 2010 / İngilizce için

Aşağıdaki formülü (alt+11 → insert → module) yapıştırın


Sub SumCountByConditionalFormat()
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
Dim sumRes
Dim cntCells As Long
Dim indCurCell As Long

cntRes = 0
sumRes = 0

cntCells = Selection.CountLarge
indRefColor = ActiveCell.DisplayFormat.Interior.Color

For indCurCell = 1 To (cntCells - 1)
If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then
cntRes = cntRes + 1
sumRes = WorksheetFunction.Sum(Selection(indCurCell), sumRes)
End If
Next
MsgBox "Count=" & cntRes & vbCrLf & "Sum= " & sumRes & vbCrLf & vbCrLf & _
"Color=" & Left("000000", 6 - Len(Hex(indRefColor))) & _
Hex(indRefColor) & vbCrLf, , "Count & Sum by Conditional Format color"
End Sub


Excel sayfasına geri dönün, koşullu biçimlendirme ile renklenen sütunu tamamen tanımlayın,

Ctrl' ye basılı tutarak fareyi saydırmak istediğiniz renk üzerine tıklayın,

View → Macros → View Macros → Run basın,

Çıkan menüde Count' un karşısındaki rakam saydırmak istediğiniz renk adet' idir.

Diğer renkleri saydırmak için tekrar Ctrl' ye basılı tutarak renk seçin (renk sütunu halâ

tanımlıdır) ve işlemi tekrarlayın.

Dosyanızdan çıkarken (Save As → Save As Type → Excel Macro-Enabled Workbook) ile

çalışmanızı kaydetmeyi unutmayın.





İyi çalışmalar,
hocam ben de aynı konuyu araştırıyorum bu yukarıda sizin yazdığınız tam anlamıyla istediğimizi karşılamıyor ben yukarıdaki söylenenleri yapana kadar elle yaparım
acaba alt zemin kırmızı koşullu biçimlendirmeyi uygulayınca koşul olarak belirlediğimiz mavi rengin bir sütun veya satırda kaç tane olduğunu bulamazmıyız diyelim ki satır da arıyoruz satır sonuna gelip yeni rengi bir formül girerek ve sonrasında bunu aşağı doğru çekerek bütün tablo üzerinde işlevsel olmasını sağlayamazmıyız
bunun bir yolu yokmu yardımcı olursanız sevinirim

 

[imparator26]

Yardimci olurmusunuz olumlu olumsuz lutfen en azindan gunde 30 kere biri bisey yazmis mi diye takip etmemis olurum lutfen tesekkurler

 

[Korhan Ayhan]

Koşullu hücre rengini saydırmak zahmetlidir. Bunun yerine hücrenin rengini değiştiren koşulu formül içinde kullanabilirsiniz. Daha pratik olacaktır.

 

[imparator26]

renk say ile yaptım
yani dediğiniz gibi ilk önce sütündaki A ları seçtim sonra değiştirden aynı değerleri bulmasını sonra (ilk değer alt zemin rengim kırmızı idi kırmızı yı seçtim) bulduğu değeri mavi renge çevirmesini söyledim

Public Function renk_say(kendim As Range, aralik As Range)
    Dim excelce As Range
    Dim r_say As Long
    Application.Volatile
    kendimm = kendim.Interior.ColorIndex
    For Each excelce In aralik
        If excelce.Interior.ColorIndex = kendim.Interior.ColorIndex Then r_say = r_say + 1
    Next excelce
    renk_say = r_say
End Function

Public Function renk_topla(tkendim As Range, taralik As Range)
    Dim excelcenet As Range
    Dim r_say As Long
    Application.Volatile
    tkendimm = tkendim.Interior.ColorIndex
    For Each excelcenet In taralik
        If excelcenet.Interior.ColorIndex = tkendim.Interior.ColorIndex Then r_topla = r_topla + excelcenet.Value
    Next excelcenet
    renk_topla = r_topla
End Function

bu da idare eder aklıma gelmedi değil ancak hatta yaptım ama uğraştırıcı gözükmüştü gözüme ama artık katlanıcaz sanırım
teşekkürler cevap için