Contar o número de células com cor de célula específica utilizando 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. Aprenda o que isto significa para si e como pode ficar protegido.

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

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 esse MVPs que partilham proactivamente a sua experiência profissional com outros utilizadores. O artigo seria registado no Web site do MVP ou blogue mais tarde.
Sintomas
No Microsoft Excel fórmula, sabemos que, em Estatísticas categoria que é uma função para conta o número de células num intervalo que satisfazem a condição de dar, denominada contar.se. Critérios para essa função podem ser formatados como texto ou número. Mas na realidade, é possível não apenas texto ou número, mas também cores de células. Em seguida, como podemos pode obter os resultados com esses critérios durante a função contar.se não pode ser as soluções.


Resolução
Altough sem utilizar a função contar.se , ainda possa obter os resultados com a utilização do VBA. Com o VBA, a Microsoft pode criar um UDF (função definida pelo utilizador) e guarde-o num ficheiro de Suplemento para que possam ser utilizados para todos os livros e outro computador.


O que fazer
Aqui os passos para criar a contagem de células cor UDF:

  1. Abrir O Microsoft Excel em seguida, prima ALT + F11 para mostrar Editor do Visual Basic janela.
  2. No Inserir menu, seleccione 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. Fechar janela VBE e volte ao Excel.
  4. Para testar o UDF, crie alguns dados de exemplo ou pode transferir este ficheiro de exemplo Aqui.
  5. Na célula D3, escreva a função: = CountCcolorcritérios (range_data)
    na argumen de range_data, seleccione a célula C2 para C51
    na argumen de critérios, seleccione a célula F1


  6. Prima a tecla Introduza e na célula F2 o resultado é 6. Isso significa que o número de células com cor de célula azul é 6 células.


  7. Também pode testar a outra cor. Alterar a cor da célula F1 com a cor dos dados de utilização pretendido Pincel de formatação Para obter a mesma cor.


  8. Também é possível compactar UDF, para que a função pode ser utilizada num outro livro e o computador. Utilize a seguinte que este passos:


    Passo 1: Guardar o livro

    1. Preencher o nome que pretende com nome à Nome de ficheiro caixa. Aqui é o nome Cor da célula de contagem.
    2. Para o tipo de ficheiro, escolha Suplemento do Excel (.xlam) formato.



      Nota: Pode guardar o suplemento ficheiro em qualquer local que pretende. Mas se pretender que seja listada numa incorporada do Excel, deverá guardá-lo para a localização predefinida. No meu computador com o sistema operativo Windows 7, a localização predefinida para todas as versões do Microsoft Excel é: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns


    Passo 2: Instalar o suplemento

    1. Abrir O Microsoft Excel num computador que pretende instalar o aberto o suplemento. Suplementos caixa de diálogo, clicando em O suplemento com sobre o Para programadores no separador.
    2. Sobre o O suplemento com caixa de diálogo, clique em Procurar botão modo Procurar é apresentada a caixa de diálogo.


    3. Ir para esse ficheiro Add-In a localização do ficheiro é guardada. Escolha o ficheiro e, em seguida, clique em Abrir.
    4. Sobre o Suplementos caixa de diálogo Certifique-se a caixa de verificação suplemento é não verificada. Em seguida, clique em OK.

Agora, o UDF de cor de célula de contagem foi instalada e prontas a utilizar.

Exclusão de responsabilidade conteúdo Comunidade soluções

MICROSOFT CORPORATION E/OU OS RESPECTIVOS FORNECEDORES NÃO FAZEM NENHUMA AFIRMAÇÃO SOBRE A ADEQUAÇÃO, FIABILIDADE OU A EXACTIDÃO DAS INFORMAÇÕES E GRÁFICOS RELACIONADOS CONTIDOS NO PRESENTE REGULAMENTO. TODAS AS INFORMAÇÕES E GRÁFICOS RELACIONADOS SÃO FORNECIDOS "TAL COMO ESTÁ" SEM NENHUM TIPO DE GARANTIA. MICROSOFT E/OU OS RESPECTIVOS FORNECEDORES NÃO OFERECEM QUAISQUER GARANTIAS OU CONDIÇÕES NO QUE RESPEITA ÀS INFORMAÇÕES E GRÁFICOS RELACIONADOS, INCLUINDO TODAS AS GARANTIAS IMPLÍCITAS E CONDIÇÕES DE COMERCIALIZAÇÃO, ADEQUAÇÃO A UM FIM ESPECÍFICO, DILIGÊNCIA, TÍTULO E NÃO INFRACÇÃO. ESPECIFICAMENTE CONCORDA EM QUE NUNCA SERÃO MICROSOFT E/OU OS SEUS FORNECEDORES RESPONSÁVEL POR QUAISQUER PREJUÍZOS DIRECTOS, INDIRECTOS, PUNITIVOS, INCIDENTAIS, ESPECIAIS, CONSEQUENTES OU QUALQUER PREJUÍZO, INCLUINDO PREJUÍZOS, SEM LIMITAÇÃO, DANOS POR PERDA DE UTILIZAÇÃO, DADOS OU LUCROS, RESULTANTES OU EM QUALQUER FORMA RELACIONADOS COM A UTILIZAÇÃO OU INCAPACIDADE DE UTILIZAR AS INFORMAÇÕES E GRÁFICOS RELACIONADOS CONTIDOS NO PRESENTE REGULAMENTO , COM BASE NO CONTRATO, FACTO PREJUDICIAL, NEGLIGÊNCIA, RESPONSABILIDADE OBJECTIVA OU CASO CONTRÁRIO, MESMO MICROSOFT OU QUALQUER UM DOS SEUS FORNECEDORES TENHA SIDO AVISADA DA POSSIBILIDADE DE DANOS.

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 2815384 - Última Revisão: 02/02/2016 04:02:00 - Revisão: 8.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