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


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.
Artigo original publicado por pijaku. Tradução feita por pintuda. Última modificação: 23 de fevereiro de 2018 às 06:14 por pintuda.
Este documento, intitulado 'VBA: número de células de acordo com sua cor no Excel ', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (https://br.ccm.net/) ao utilizar este artigo.
Como mudar maiúsculas para minúsculas no Excel
Gestão dos eventos “Sair” e “Entrar” da Caixa de Texto criados dinamicamente