Número de células de acordo com sua cor no VBA 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. 

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

Fonte: http://br.ccm.net/

• Twitter
• Facebook
• Google +
• Linkedin
• Pinterest