Contar o número de células com cor de célula específica usando o VBA

O suporte para o Office 2003 terminou

A Microsoft terminou o suporte para o Office 2003 em 8 de abril de 2014. Esta alteração afetou as suas atualizações de software e opções de segurança. Saiba o que isto significa para você e como permanecer protegido.

IMPORTANTE: Este artigo foi traduzido pelo software de tradução automática da Microsoft e eventualmente pode ter sido editado pela Microsoft Community através da tecnologia Community Translation Framework (CTF) ou por um tradutor profissional. A Microsoft oferece artigos traduzidos automaticamente por software, por tradutores profissionais e editados pela comunidade para que você tenha acesso a todos os artigos de nossa Base de Conhecimento em diversos idiomas. No entanto, um artigo traduzido pode conter erros de vocabulário, sintaxe e/ou gramática. A Microsoft não é responsável por qualquer inexatidão, erro ou dano causado por qualquer tradução imprecisa do conteúdo ou por seu uso pelos nossos clientes.

Clique aqui para ver a versão em Inglês deste artigo: 2815384

Sobre o autor:

MVPEste artigo é fornecido pelo MVP Raddini Rahayu. A Microsoft está tão agradecer que MVPs que proativamente compartilham suas experiências profissionais com outros usuários. O artigo seria postado em Site do MVP ou blog mais tarde.
Sintomas
No campo fórmula do Microsoft Excel, sabemos que na categoria estatística existe uma função para contar o número de células em um intervalo que atendam a uma dada condição, chamada CONT.se. Critérios sobre essa função podem ser formatados como texto ou número. Mas, na verdade, ele poderia ser não somente texto ou número, mas também cores de células. Então, como podemos obter os resultados com esses critérios já que a função CONT.se pode não ser a solução?


Resolução
Apesar de não usarmos a função CONTIF , ainda podemos obter os resultados com o uso do VBA. Com o VBA, podemos criar um UDF (função definida pelo usuário) e salvá-lo no arquivo para que ele pode ser usado para cada pasta de trabalho e de outro computador.


O que fazer
Veja as etapas para criar a UDF para contagem de cor de célula:

  1. Abrir O Microsoft Excel em seguida, pressione ALT + F11 para mostrar Editor do Visual Basic janela.
  2. Em Inserir Selecione Módulo para criar um módulo. Em seguida, escreva o seguinte script:
    Function CountCcolor(range_data As range, criteria As range) As Long    Dim datax As range    Dim xcolor As Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data    If datax.Interior.ColorIndex = xcolor Then        CountCcolor = CountCcolor + 1    End IfNext dataxEnd Function

  3. Feche a janela do VBE e volta para o Excel.
  4. Para testar o UDF, criar alguns dados de exemplo, ou você pode baixar este arquivo de exemplo aqui.
  5. Na célula D3, escreva a função: = CountCcolorcritérios (range_data)
    Selecione a célula em argumen de range_data C2 para C51
    em argumen de critérios, selecione a célula F1


  6. Pressione Enter e, na célula F2 o resultado é 6. Isso significa que o número de células com cor de célula azul é de 6 células.


  7. Você também pode testar outra cor. Alterar a cor da célula F1 com qualquer cor desejada dos dados Pincel Para obter a mesma cor.


  8. Você também pode compactar o UDF para que a função pode ser usada em outra pasta de trabalho e da máquina. Faça isso etapas a seguir:


    Etapa 1: Salvar a pasta de trabalho

    1. Preencha o nome que você deseja nomeado à Nome do arquivo caixa. Aqui, o nome Contagem de cor da célula.
    2. O tipo de arquivo, escolha Suplemento do Excel (.xlam) formato.



      Observação:: Você pode salvar seu arquivo em qualquer local desejado. Mas se quiser ser listado no Excel incorporado, salvá-lo no local padrão. Em Meu computador com sistema operacional Windows 7, o local padrão para todas as versões do Microsoft Excel é: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns


    Etapa 2: Instalar o Add-In

    1. Abrir O Microsoft Excel no computador que você deseja instalar o suplemento aberto Os Add-Ins caixa de diálogo clicando em Suplemento sobre o Desenvolvedor guia.
    2. Sobre o Suplemento caixa de diálogo, clique em Procurar botão isso Procurar caixa de diálogo é exibida.


    3. Vá para a localização de ficheiros de arquivo Add-In for salvo. Escolha o arquivo e, em seguida, clique em Abrir.
    4. Sobre o Os Add-Ins caixa de diálogo Verifique se a caixa de seleção é não verificado. Em seguida, clique em OK.

Agora o UDF de cor de célula de contagem tem instalado e pronto para usar.

Isenção de conteúdo de soluções de comunidade

MICROSOFT CORPORATION E/OU SEUS RESPECTIVOS FORNECEDORES TORNAM NÃO OFERECE REPRESENTAÇÕES SOBRE A ADEQUAÇÃO, CONFIABILIDADE OU PRECISÃO DAS INFORMAÇÕES E GRÁFICOS RELACIONADOS AQUI CONTIDOS. TODAS ESSAS INFORMAÇÕES E GRÁFICOS RELACIONADOS SÃO FORNECIDOS "COMO ESTÃO" SEM GARANTIA DE NENHUM TIPO. MICROSOFT E/OU SEUS RESPECTIVOS FORNECEDORES ISENTAM-SE TODAS AS GARANTIAS E CONDIÇÕES RELATIVAS A ESSAS INFORMAÇÕES E GRÁFICOS RELACIONADOS, INCLUINDO TODAS AS GARANTIAS IMPLÍCITAS E CONDIÇÕES DE COMERCIALIZAÇÃO, ADEQUAÇÃO UM PROPÓSITO PARTICULAR DILIGÊNCIA, TÍTULO E NÃO-VIOLAÇÃO. VOCÊ ESPECIFICAMENTE CONCORDA QUE SOB NENHUMA CIRCUNSTÂNCIA MICROSOFT E/OU SEUS FORNECEDORES SERÃO RESPONSÁVEIS POR QUAISQUER DANOS DIRETOS, INDIRETOS, PUNITIVOS, INCIDENTAIS, ESPECIAIS, CONSEQÜENTES, OU QUAISQUER DANOS, INCLUINDO, SEM LIMITAÇÃO, DANOS POR PERDA DE USO, DADOS OU LUCROS CESSANTES, DECORRENTES OU CONECTADO COM O USO DE OU INCAPACIDADE DE USAR AS INFORMAÇÕES E GRÁFICOS RELACIONADOS CONTIDOS NESTE DOCUMENTO , COM BASE EM CONTRATO, AGRAVO, NEGLIGÊNCIA, RESPONSABILIDADE ESTRITA OU CASO CONTRÁRIO, MESMO QUE A MICROSOFT OU QUALQUER UM DE SEUS FORNECEDORES TENHA SIDO AVISADA DA POSSIBILIDADE DE OCORRÊNCIA DE DANOS.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 2815384 - Última Revisão: 07/03/2016 18:29:00 - Revisão: 9.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010, Microsoft Excel 2013, Excel 2016

  • kbmvp kbcommunity kbstepbystep kbmt KB2815384 KbMtpt
Comentários