SOMASE COR DA CÉLULA EXCEL

Exemplo - Clique para ampliar

Objetivo: Função Somase Cor da Célula no Excel.

Hoje passarei as funções que criei para identificar a cor da célula e também outra que realiza a soma conforme a cor.

Esta função é relativamente muito simples, mas também pode ser muito útil, e seguindo a ideia de criar uma biblioteca própria de funções próprias do suplemento que poderão estar disponíveis sempre.

Para isso foram criadas duas funções. A primeira identifica qual é a cor de uma determinada célula, e a outra realiza a soma.

    • Função que realiza a identificação da cor da célula
'
'Identifica o código da cor da célula
Function gfCelColorName(ByVal vCel As Range) As String
  application.volatile
  gfCelColorName = vCel.Interior.Color 
End Function
'
  • Função que realiza a soma condicional pela cor
'
'Soma as células de cores semelhantes
Function gfSumIfColor(ByVal vInterval As Range, ByVal vColor As String) As Double
    Dim vCel As Range
    
    Application.Volatile
    
    For Each vCel In vInterval.Cells
        If CLng(vCel.Interior.Color) = vColor Then
            gfSumIfColor = gfSumIfColor + vCel.Value
        End If
    Next vCel
End Function
'

A utilização das fórmulas é bastante simples = gfCelColorName(A1) irá retornar o número da cor.

A fórmula gfSumIfColor pode trabalhar em conjunto com a gfCelColorName para realizar a soma conforme o exemplo =gfSumIfColor($E$2:$E$831;gfCelColorName(H2)).

 

 

Exemplo - Clique para ampliar

Exemplo – Clique para ampliar

Então é isso pessoal, agradeço a visita e o convido para retornar diariamente ao blog, que tem atualizações diárias.

Baixe a planilha

Abraço

Marcos Rieper