Contar o número de células com uma cor de célula específica utilizando 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

No separador Fórmulas do Microsoft Excel, sabemos que na > categoria Mais Funções Estatística existe uma função chamada CONTAR.SE que conta o número de células num intervalo que cumprem uma determinada condição. Os critérios para essa função estão limitados a texto ou números. No entanto, ao utilizar o VBA podemos criar uma função para contar o número de células com outros critérios, como a cor da célula.

CONTAR.SE

Mais informações

Ao utilizar o VBA, pode ser criada e guardada uma Função Definida pelo Utilizador (UDF) num ficheiro de add-in para que possa ser utilizada noutros livros e transferida para outros computadores.

Como criar um UDF

Eis os passos para criar um UDF para contar a cor da célula:

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

  2. No menu 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 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 seguinte script

  3. Feche a janela VBE para regressar ao Excel.

  4. Para testar o 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: =ContarCor

  1. Prima Enter. O resultado na célula F2 é 6. Isto significa que o número de células sombreadas a azul é 6.

    Prima Enter e, na célula F2, o resultado é 6. Significa que o número de células com a Cor da célula azul é de 6 células

  2. Pode testar utilizando outras cores. Altere a cor na célula F1 com a cor que pretender dos dados ao utilizar a Cor de Preenchimento>da Base.

    Também pode testar outra cor. Alterar a cor na célula F1 com a cor que pretender dos dados ao utilizar o Pincel de Formatação para obter a mesma cor

  3. Também pode zipar a UDF para que a função possa ser utilizada noutro livro ou noutro computador. Para o fazer, siga estes passos:

    Passo 1: guardar o livro

    a. Selecione Ficheiro e, em seguida, Selecione Guardar como. (Se necessário, selecione Procurar.)

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

    Nota

    Pode guardar o seu Add-In ficheiro onde quiser. No entanto, para que seja listado como um Add-In no seu programa do Excel, guarde-o na localização predefinida. No Windows 7, a localização predefinida para qualquer versão do Microsoft Excel é: C:\Utilizadores\RADDINI\AppData\Roaming\Microsoft\AddIns

    Passo 2: Instalar o Add-In

    a. Abra o Microsoft Excel no computador onde pretende instalar o Add-In.

    b. Abra a caixa Add-Ins de diálogo Abrir ao selecionar Os Add-Ins do Excel para Excel 2013 e posteriores no separador Programador. (Add-Ins no Excel 2010.)

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

    d. Vá para a localização do ficheiro onde o Add-In ficheiro de ficheiro está guardado (como uma pen USB ou uma pasta baseada na nuvem). Selecione o ficheiro e, em seguida, selecione Abrir.

    e. Na caixa Add-Ins de verificação, certifique-se de que a caixa de verificação do mesmo está desmarcada. Em seguida, selecione OK. Na caixa Add-Ins caixa de diálogo Certifique-se de que a caixa de verificação do adicionar está desmarcada. Em seguida, selecione OK.

O UDF Contar Cor da Célula está instalado e pronto a ser utilizado. Poderá aceder a esta função em qualquer altura ao colocar o cursor em qualquer célula na mesma e ao escrever:

=CountCcolor(range_data,criteria)

Exclusão de Exclusão de Exclusivo do Conteúdo das Soluções da Comunidade

A MICROSOFT CORPORATION E/OU OS RESPETIVOS FORNECEDORES NÃO REPRESENTAM A ADEQUAÇÃO, FIABILIDADE OU PRECISÃO DAS INFORMAÇÕES E DOS GRÁFICOS RELACIONADOS AQUI CONTIDOS. TODAS AS INFORMAÇÕES E GRÁFICOS RELACIONADOS SÃO FORNECIDOS "TAL COMO ESTÃO" SEM GARANTIAS DE QUALQUER TIPO. A MICROSOFT E/OU OS RESPETIVOS FORNECEDORES AO PRESENTE, EXCLUEM TODAS AS GARANTIAS E CONDIÇÕES NO QUE DIZ RESPEITO A ESTAS INFORMAÇÕES E GRÁFICOS RELACIONADOS, INCLUINDO TODAS AS GARANTIAS E CONDIÇÕES IMPLÍCITAS DE COMERCIALIZAÇÃO, ADEQUAÇÃO A UM FIM ESPECÍFICO, ESFORÇO POR PARTE DO COLABORADOR, TÍTULO E NÃO INFRAÇÃO. O ADQUIRENTE CONCORDA ESPECIFICAMENTE QUE, EM NENHUMA CIRCUNSTÂNCIA, A MICROSOFT E/OU OS RESPETIVOS FORNECEDORES SERÃO RESPONSÁVEIS POR QUAISQUER DANOS DIRETOS, INDIRETOS, INDIRETOS, INCIDENTAIS, ESPECIAIS, CONSEQUENTES OU QUAISQUER DANOS, INCLUINDO, SEM LIMITAÇÃO, DANOS POR PERDA DE UTILIZAÇÃO, DADOS OU LUCROS, DECORRENTES DE OU DE QUALQUER FORMA LIGADOS À UTILIZAÇÃO OU INCAPACIDADE DE UTILIZAÇÃO DAS INFORMAÇÕES E DOS GRÁFICOS RELACIONADOS AQUI CONTIDOS, QUER SEJA COM BASE NO CONTRATO, TORT, NEGLIGÊNCIA, RESPONSABILIDADE ESTRITA OU DE OUTRO MODO, MESMO QUE A MICROSOFT OU QUALQUER UM DOS SEUS FORNECEDORES TENHA SIDO AVISADO SOBRE A POSSIBILIDADE DE DANOS.