CONT.SE Cor da Célula

Para responder a dúvida do leitor Paulo sobre como contar células pela cor no Excel eu criei esta função.

Esta função é relativamente muito simples, mas também pode ser muito útil, e seguindo a idéia de criar uma biblioteca própria de funções próprias do suplemento que poderão estar disponíveis sempre.

Ela complementa a outra função que criei no post Somase cor da célula.

Para isso foi criada a função abaixo:


 

  • Função que realiza a contagem  condicional de células pela cor
 

A utilização das fórmulas é bastante simples = gfCelColorName(A1) irá retornar o número da cor.

A fórmula gfSumIfColor pode trabalhar em conjunto com a gfCelColorName para realizar a soma conforme o exemplo =gfCountIfColor(A2:A831;H2).

ContSe cor da célula

ContSe cor da célula

'<alteracao> 'Conta as células de cores semelhantes
Function gfCountIfColor(ByVal vInterval As Range, ByVal vColor As Range) As Double
    'Recalcula a função em qualquer alteração da planilha
    Application.Volatile
    Dim vCel As Range
 
    For Each vCel In vInterval.Cells
        If CLng(vCel.Interior.Color) = vColor.Interior.Color Then
            gfCountIfColor = gfCountIfColor + 1
        End If
    Next vCel
End Function
'</alteracao>

Download do Arquivo

Marcos Rieper

excel vba

SISTEMA DE GESTÃO CONTA AZUL

O Excel é uma plataforma de trabalho muito aberta para servir ao gerenciamento de dados de uma empresa, dado a complexidade e a integração entre as diversas áreas que a compõe. Mas é a melhor para analisar suas informações.

Com a intenção de atender as micro e pequenas empresas a Conta Azul criou um software de gestão aonde você tudo o que você precisa para gerir a sua empresa: Estoque, Vendas, Financeiro e ainda emite Nota Fiscal Eletrônica, tudo isso em um sistema simples de trabalhar, que você acessa pela internet, não há a necessidade de comprar servidores e preocupar-se com backup e atendimento através de 0800.

O preço da ferramenta também chama a atenção, sendo um preço mais do que justo para se ter o controle dos dados e a geração de informações para a análise do seu negócio.

ContaAzul é um software de gestão financeira e fiscal para micro e pequenas empresas. Ele funciona 100% em plataforma web, não necessitando nenhuma instalação ou atualização. Você pode acessar de qualquer lugar e não tem necessidade de comprar nova licença caso troque de computador.

  O Guia do Excel recomenda o Conta Azul no gerenciamento de sua empresa.
Use QR-Code to get this permaking using your Smartphone. QR Code for CONT.SE Cor da Célula

7 Comentários

  1. Adilson disse:

    Consegui instalar a função direitinho, só que percebi uma coisa:

    tenho uma sequência A1:Q1, cada célula muda a cor de acordo com o valor que insiro (condições). Por exemplo: coloco a1=8 ou 9, ela fica verde, b1=25, ela fica vermelha, etc. então na célula R1 quero q apareça quantas ficaram verdes, só que fica zero.

    O que descobri:
    Se eu coloco manualmente o preenchimento de verde, ele conta essas células. Só que quando a célula, que é branca, fica verde pela condição, ele considera ela como branca e conta como branca. Se pela condição ela é verde e eu ainda a preencho manualmente com verde, aí ele conta a célula. Me fiz entender?

    Que alteração faço no vba para acertar este detalhe?

    Desde já, agradeço!

  2. Tiago disse:

    Muito interressante.

    Só estou tendo dificuldades na instalação. Poderia dar uma força.
    Se alguem que conseguiu pudesse mandar uma planilha com o processo feito ficaria melhor pra eu entender. Consegui captar melhor a msgm utilizando e vendo funcionar do que somente lendo, até prq meu conhecimento é medio.

    Abraço e obrigado

  3. Wivian disse:

    Olá,
    Gostaria de uma ajuda para criar um semáforo, como se fosse um combo com as bolinhas com cores, para seleção manual da cor.

    Será que alguém sabe alguma forma de fazer?

    Grata,
    Wivian

  4. Tiago disse:

    Obrigado Marcos,

    Já consegui utilizar, não tinha visto com calma, mas é legal o video

  5. Tiago disse:

    A duvida que eu tenho agora é como eu poderia fazer para ele identificar pela cor da fonte ao inves do preenchimento

  6. Tiago disse:

    Consegui, basta mudar de If CLng(vCel.Interior.Color) = vColor.Interior.Color Then para If CLng(vCel.Font.Color) = vColor.Font.Color Then

Deixe o seu comentário


 
%d blogueiros gostam disto: