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

Fevereiro 2017


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.


Instruções

Acesse o editor VBA pressionando, simultaneamente, as teclas Alt + F11. 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

As configurações:

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

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 11 de maio de 2016 às 05:54 por ninha25.
Este documento, intitulado 'Número de células de acordo com sua cor no VBA 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 (br.ccm.net) ao utilizar este artigo.