Neste artigo você irá aprender como montar uma função no VBA que irá lhe permitir contar a quantidade de células coloridas no Excel, como se fosse um CONT.SE de cor.
Aonde será passada um intervalo de células coloridas, e também a cor deseja, e a função irá retornar a quantidade de células que tem a cor buscado, muito parecido com o CONT.SE.
Vídeo aula CONT.SE de cor
Assista ao vídeo abaixo, caso prefira aprender como fazer para criar a fórmula que irá contar cor no Excel assistindo a um vídeo.
Não se esqueça de se INSCREVER no nosso canal.
E coloque o seu melhor e-mail abaixo para receber todas as nossas novidades em primeira mão.
Criar fórmula para contar células por cor
Infelizmente o Excel não disponibiliza por padrão uma fórmula para contar cor no Excel.
Porém é possível criar uma função no VBA, que conseguirá contar cores no Excel independente se a célula tem uma formatação condicional de cor ou ela simplesmente está colorida.
Para podermos criar uma função no VBA precisamos ir na guia “Desenvolvedor” e depois clicar em “Visual Basic”.
Na tela do VBA, vá em “Projeto – VBAProject” e clique com o botão direito do mouse no nome da planilha que você estiver usando, no meu caso é “Planilha1(Planilha1)”.
Ao clicar com o botão direito do mouse, algumas opções irão aparecer na tela.
Clique em “Inserir” e logo em seguido em “Módulo”.
O VBA irá disponibilizar uma tela aonde será inserido o código que iremos utilizar para criar a fórmula.
CONT.SE cor da célula
Contar cor no Excel é algo que muitas pessoas buscam a solução e por isso, a própria Microsoft, disponibilizou o código em VBA para resolver esse problema.
O código irá montar uma função, que meio que irá se comportar como um CONT.SE de cor da célula.
Será passado um intervalo de cores, e a cor buscada e a função irá retornar a quantidade de células com aquela cor dentro do intervalo.
O código disponibilizado pela Microsoft está em Inglês, por isso eu fiz uma pequena alteração nele para facilitar a interação com a função em Português.
Basicamente, eu traduzi o nome da função para o Português, nos pontos marcados em vermelho.
Se quiser, pode copiar o código com a alteração para o Português.
Function ContarCor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
ContarCor = ContarCor + 1
End If
Next datax
End Function
Utilizando a função ContarCor
Agora vamos utilizar a função que acabamos de criar no VBA.
Primeiramente, vamos deixar a nossa planilha igual a planilha abaixo.
Agora, na célula F1, vamos digitar =contar, veja que o Excel mostra todas as funções que tem a palavra contar, incluindo a função que acabamos de criar, a “ContarCor”.
Termine de preencher o nome da função e abra parênteses.
No primeiro argumento da função, iremos passar um intervalo de células com cores.
É nesse intervalo que a função irá buscar e contar a quantidade de vezes que a cor desejada é encontrada no intervalo.
No segundo argumento, selecione a célula que possui a cor desejada.
No meu caso é a célula G1.
Veja que a função retornou o valor 4, que é o valor correto quando contamos a quantidade de células, dentro do intervalo selecionado, que possuem a cor verde.
Agora, vamos arrastar a função para as outras células.
Clique na célula F1 e arraste o cursor no local indicado.
Ao arrastar o cursor para o local indicado, o seu formato irá mudar.
Nesse momento, dê dois cliques, que o Excel irá arrastar a função para as outras células.
E pronto, a função “ContarCor” contou corretamente a quantidade de células coloridas, dentro do intervalo, que tem a cor especificada.
Compartilhe ou Comente
Se você curtiu esse artigo aonde mostramos como contar células coloridas no Excel utilizando o VBA, compartilhe com as suas redes sociais e não se esqueça de deixar um comentário aqui embaixo caso você tenha ficado com alguma dúvida.