Somar SE COR DA FONTE FOR AZUL

Question

Pessoal, tenho uma planilha de custos, onde tenho varias linhas, e um somatório das mesmas, SÓ QUE EU QUERO QUE ELE SOME SOMENTE O QUE FOR FONTE DA COR AZUL DENTRO DA SELEÇÃO.

Ex.   

Valor | Cor DA FONTE
---------------
   1     | VERMELHO
   2     | VERMELHO
   3     | VERMELHO
   4     | AZUL
   1     | VERMELHO
-------------------
Soma(Itens acima) = RESULTADO = 4

Obrigado

Answer 1

Oi Fernando,

Tem várias maneiras de fazer, fica aí uma:

vc vai chamar a função da seguinte maneira =SOMACOR(A1:B5;"VERDE")

Function SOMACOR(qRange As Range, ByVal qCor$) As Double
    Dim c As Range, xcolor&, xvalue#
   
    Select Case qCor$
        Case "VERMELHO"
        xcolor& = 255
        Case "PRETO"
        xcolor& = 0
        Case "AZUL"
        xcolor& = RGB(0, 0, 255)
        Case "VERDE"
        xcolor& = RGB(0, 255, 0)
        Case "AMARELO"
        xcolor& = RGB(255, 255, 0)
        Case "ROSA"
        xcolor& = RGB(255, 0, 255)
    End Select
   
    Contador = 0
    For Each c In qRange
        If c.Font.Color = xcolor Then
            Contador = Contador + 1
        End If
    Next
   
    SOMACOR = Contador
End Function

Espero ter ajudado!

 

Answer 2

Daniel tem alguma possibilidade de fazer com que o cálculo seja atualizado conforme eu altero as cores?

Abraços
Daniel Leite

Answer 3

 

Sim, Daniel.

Você pode chamar a procedure que conta as cores, toda vez que algo for feito na planilha.

Mas, não recomendo isto. Fica lento e nem sempre será preciso.

 

Atenciosamente,

 

Dan

Answer 4

Veja neste http://www.juliobattisti.com.br/forum//forum_posts.asp?TID=17978  varios exemplos para você fazer as somas.

 

[]'s