Renkleri toplama

[dEmir1]

Buna benzer diğer konulara baktım yalnız çok değişik .Böyle birşey mümkün müdür?

 

[İhsan Tank]

Buna benzer diğer konulara baktım yalnız çok değişik .Böyle birşey mümkün müdür?

merhaba
boş bir module oluşturarak

'kodları yazan : Yurttaş
Function Renklitopla(InRange As Range, WhatColorIndex As Integer, _
    Optional OfText As Boolean = False) As Double

Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
    If OfText = True Then
        OK = (Rng.Font.ColorIndex = WhatColorIndex)
    Else
        OK = (Rng.Interior.ColorIndex = WhatColorIndex)
    End If
    If OK And IsNumeric(Rng.Value) Then
        Renklitopla = Renklitopla + Rng.Value
    End If
Next Rng

End Function

bu kodu yazın
Yeşil rengin index'i 43
hücredeki formülü

=TOPLA(D3:D30)-Renklitopla(D3:D30;43;YANLIŞ)

bununla değiştirip dener misiniz

 

[dEmir1]

Bi yerde bi yalnışlık yapıyorum hata veriyor.Örnek üzerinde yapabilirmisin.

 

[İhsan Tank]

Bi yerde bi yalnışlık yapıyorum hata veriyor.Örnek üzerinde yapabilirmisin.

inceleyin lütfen

 

[dEmir1]

Teşekkür Ederim ihsan..İyi Çalışmalar.

 

[İhsan Tank]

Teşekkür Ederim ihsan..İyi Çalışmalar.

rica ederim
:yazici: