Neste artigo veja como realizar fazer uma função somase cor da célula, com código vba para a soma e download gratuito da planilha.
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.
Aplicar Função Somase Condicional por Cor da Célula
Para aplicar a função de soma condicional por cor da célula iremos utilizar o VBA, para isso é necessário que a guia Desenvolvedor esteja habilitada no seu Excel.
Clique na guia Desenvolvedor e no botão Visual Basic, irá ser aberto o Visual Basic Editor (VBE).
No Visual Basic Editor clique em Inserir->Módulo.
Após copie e cole o código abaixo no módulo inserido no VBE:
'<alteracao>
'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
'</alteracao>
'<alteracao>
'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
'</alteracao>
A utilização das fórmulas é bastante simples = gfCelColorName() irá retornar o número da cor, bastando selecionar o intervalo a determinar a cor da célula
E em seguida use a função =gfSumIfColor(Intervalo;Cor da célula), nela passamos o intervalo que desejamos somar, aonde passamos no primeiro parâmetro o intervalo que queremos somar e no parâmetro cor da célula usamos a função gfCelColorName e selecionamos uma célula com a mesma cor que desejamos somar.
Aplicação da Função de Soma Condicional por Cor
Veja o Exemplo abaixo:
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)).
Download da Planilha de Somase Cor da Célula no Excel
Para realizar o download da planilha de exemplo de somase cor da célula clique no botão abaixo:
