0
Obrigado

Algumas palavras de agradecimento nunca são demais.

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 . Tradução feita por Lucia Maurity y Nouria. Última modificação: por Lucia Maurity y Nouria.

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.

0 Comentário