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)).
Então é isso pessoal, agradeço a visita e o convido para retornar diariamente ao blog, que tem atualizações diárias.
Baixe a planilhaAbraço
Marcos Rieper