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

  • Artigo
  • Aplica-se a:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Resumo

Na guia Fórmulas do Microsoft Excel, sabemos que, na categoria Estatística> Mais Funções, há uma função chamada CONT.SE que conta o número de células dentro de um intervalo que atendem a uma determinada condição. Os critérios para essa função são limitados a texto ou números. No entanto, usando o VBA, podemos criar uma função para contar o número de células com outros critérios, como cor da célula.

COUNTIF

Mais informações

Usando o VBA, uma UDF (Função Definida pelo Usuário) pode ser criada e salva em um arquivo de suplemento para que ela possa ser usada em outras pastas de trabalho e transferida para outros computadores.

Como criar uma UDF

Estas são as etapas para criar uma UDF para contar a cor da célula:

  1. Abra o Microsoft Excel e pressione Alt+F11 para mostrar a janela do VBE (Editor do Visual Basic).

  2. No menu Inserir , selecione Módulo para criar um módulo. Em seguida, digite o seguinte script:

    Function CountCcolor(range_data As range, criteria As range) As Long     Dim datax As range     Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function

    No menu Inserir, selecione Módulo para criar um módulo. Em seguida, escreva o script a seguir

  3. Feche a janela VBE para retornar ao Excel.

  4. Para testar a UDF, crie dados de exemplo que contenham uma coluna de células em várias cores.

  5. Na célula D3, escreva a função:

=CountCcolor(range_data,criteria)

  • No argumento "range_data", selecione a célula C2 a C51.

  • No argumento "critérios", selecione a célula F1.

    Na célula D3, escreva a função: =CountCcolor

  1. Pressione Enter. O resultado na célula F2 é 6. Isso significa que o número de células sombreadas em azul é 6.

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

  2. Você pode testar usando outras cores. Altere a cor na célula F1 com qualquer cor desejada dos dados usando a Cor de>Preenchimento Inicial.

    Você também pode testar outra cor. Altere a cor na célula F1 com qualquer cor desejada dos dados usando o Pincel de Formatação para obter a mesma cor

  3. Você também pode compactar a UDF para que a função possa ser usada em outra pasta de trabalho ou em outro computador. Para fazer isso, siga estas etapas:

    Etapa 1: Salvar a pasta de trabalho

    a. Selecione Arquivo e, em seguida, Salve como. (Selecione Procurar , se necessário.)

    b. Selecione Excel Add-In (.xlam) como o formato e dê um nome ao arquivo, como CountCcolor.

    Observação

    Você pode salvar seu arquivo Add-In onde quiser. Mas, para que ele seja listado como um Add-In em seu programa do Excel, salve-o no local padrão. No Windows 7, o local padrão para qualquer versão do Microsoft Excel é: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Etapa 2: Instalar o suplemento

    a. Abra o Microsoft Excel no computador em que você deseja instalar o Suplemento.

    b. Abra a Add-Ins de diálogo selecionando Suplementos do Excel para Excel 2013 e posteriores na guia Desenvolvedor. (Suplementos no Excel 2010.)

    c. Na caixa de diálogo Suplementos , selecione Procurar. Na caixa Add-In, clique no botão Procurar para que a caixa de diálogo Procurar seja exibida.

    d. Vá para o local do arquivo em que o arquivo Add-In é salvo (como uma unidade USB ou uma pasta baseada em nuvem). Escolha o arquivo e, em seguida, selecione Abrir.

    e. Na caixa Add-Ins caixa de diálogo, verifique se a caixa de seleção do suplemento está desmarcada. Selecione OK. Na caixa Add-Ins caixa de diálogo, verifique se a caixa de seleção do suplemento está desmarcada. Em seguida, selecione OK.

A UDF de Cor da Célula de Contagem está instalada e pronta para uso. Você poderá acessar essa função a qualquer momento colocando o cursor em qualquer célula da planilha e digitando:

=CountCcolor(range_data,criteria)

Aviso de isenção de responsabilidade por conteúdo de soluções da comunidade

A MICROSOFT CORPORATION E/OU SEUS RESPECTIVOS FORNECEDORES NÃO FAZEM NENHUMA REPRESENTAÇÃO SOBRE A ADEQUAÇÃO, CONFIABILIDADE OU PRECISÃO DAS INFORMAÇÕES E ELEMENTOS GRÁFICOS RELACIONADOS CONTIDOS AQUI. TODAS ESSAS INFORMAÇÕES E ELEMENTOS GRÁFICOS RELACIONADOS SÃO FORNECIDOS "NO ESTADO EM QUE SE ENCONTRAM" SEM GARANTIA DE QUALQUER TIPO. A MICROSOFT E/OU SEUS RESPECTIVOS FORNECEDORES ISENTAM TODAS AS GARANTIAS E CONDIÇÕES EM RELAÇÃO A ESSAS INFORMAÇÕES E ELEMENTOS GRÁFICOS RELACIONADOS, INCLUINDO TODAS AS GARANTIAS IMPLÍCITAS E CONDIÇÕES DE COMERCIALIZAÇÃO, ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA, ESFORÇO DE TRABALHO, TÍTULO E NÃO VIOLAÇÃO. VOCÊ CONCORDA ESPECIFICAMENTE QUE, EM NENHUM CASO, A MICROSOFT E/OU SEUS FORNECEDORES SERÃO RESPONSABILIZADOS POR QUAISQUER DANOS DIRETOS, INDIRETOS, PUNITIVOS, INCIDENTAIS, ESPECIAIS, CONSEQUENCIAIS OU QUAISQUER DANOS, INCLUINDO, SEM LIMITAÇÃO, DANOS POR PERDA DE USO, DADOS OU LUCROS, DECORRENTES DE OU DE QUALQUER MANEIRA CONECTADOS COM O USO OU INCAPACIDADE DE USAR AS INFORMAÇÕES E ELEMENTOS GRÁFICOS RELACIONADOS CONTIDOS NESTE DOCUMENTO, SEJA COM BASE EM CONTRATO, TORT, NEGLIGÊNCIA, RESPONSABILIDADE ESTRITA OU NÃO, MESMO QUE A MICROSOFT OU QUALQUER UM DE SEUS FORNECEDORES TENHA SIDO AVISADO SOBRE A POSSIBILIDADE DE DANOS.