locked
Somar SE COR DA FONTE FOR AZUL RRS feed

  • Pergunta

  • 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

    quinta-feira, 8 de março de 2007 21:58

Todas as Respostas

  • 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!

     

    sexta-feira, 9 de março de 2007 03:19
  • Daniel tem alguma possibilidade de fazer com que o cálculo seja atualizado conforme eu altero as cores?

    Abraços
    Daniel Leite
    terça-feira, 20 de janeiro de 2009 18:00
  •  

    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

    quarta-feira, 21 de janeiro de 2009 00:34
  • Veja neste http://www.juliobattisti.com.br/forum//forum_posts.asp?TID=17978  varios exemplos para você fazer as somas.

     

    []'s

     

    quinta-feira, 22 de janeiro de 2009 23:04