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).

' '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