CONT.SE Cor da Célula

Para responder a dúvida do leitor Paulo sobre como contar células pela cor no Excel eu criei esta função.

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

Ela complementa a outra função que criei no post Somase cor da célula.

Para isso foi criada a função abaixo:

  • Função que realiza a contagem  condicional de células pela cor
 

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 =gfCountIfColor(A2:A831;H2).

ContSe cor da célula
ContSe cor da célula
' 'Conta as células de cores semelhantes
Function gfCountIfColor(ByVal vInterval As Range, ByVal vColor As Range) As Double
    'Recalcula a função em qualquer alteração da planilha
    Application.Volatile
    Dim vCel As Range
    
    For Each vCel In vInterval.Cells
        If CLng(vCel.Interior.Color) = vColor.Interior.Color Then
            gfCountIfColor = gfCountIfColor + 1
        End If
    Next vCel
End Function
'

Download do Arquivo

Marcos Rieper


Marcos Rieper

Pai, marido, professor e consultor em Excel.

Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.

Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.

Excel não precisa ser complicado

Assine nossa newsletter e receba dicas práticas para dominar o excel