VBA: número de células de acordo com sua cor no Excel

Faça uma pergunta

Esta dica fala de uma função personalizada criada no VBA (Visual Basic for Applications) disponível no Excel. Ela não funciona se as cores não forem oriundas de uma formatação condicional.

Como fazer

Acesse o editor VBA pressionando, simultaneamente, as teclas Alt + F11 e Insira um novo módulo: Inserir > Módulo. Neste módulo, Copie/Cole o seguinte código:

Function NúmeroCélulasCor(Trecho As Range, Cor As Byte) As Long
'Contar o número de células de uma determinada cor em um trecho dado 
'Trecho: intervalo de células à serem verificadas
'Cor: valor da cor procurada

Aplicação.Volátil

Dim Célula As Range

For Each Cellule In Trecho
    If Célula.Interior.ColorIndex = Cor And Not IsEmpty(Célula) Then
        NúmeroCélulasCor = NúmeroCélulasCor + 1
    End If
Next Célula

End Function

Feche o editor VBA e, em qualquer célula de sua planilha, digite a seguinte fórmula (por exemplo):

A B C D
1 =NúmeroCélulasCor (B4:B8;3)
2
3
4

Como configurar

B4:B8: intervalo a ser processado
3: cor a ser procurada (aqui, vermelho).

Você encontrará uma tabela dos códigos de cor aqui. Escolha os códigos de cor VBA (de 1 a 56).

Foto: © Microsoft.
Jean-François Pillou

Nosso conteúdo é produzido em colaboração com especialistas em tecnologia da informação sob o comando de Jean-François Pillou, fundador do CCM.net e diretor digital do Grupo Figaro. CCM é um site sobre tecnologia líder em nível internacional e está disponível em 11 idiomas.

Mais informações sobre a equipe do CCM

Veja também