Como contar células que contêm texto específico e têm um determinado preenchimento ou cor de fonte no Excel?
Pode ser fácil para si contar o número de células que cumprem uma única condição — por exemplo, todas as que contêm um texto específico ou apresentam um determinado tipo de letra ou cor de preenchimento. Mas sabe como contar células que satisfazem múltiplas condições em simultâneo? Por exemplo, quantas células contêm um texto específico **e** exibem um certo tipo de letra ou cor de preenchimento? Este artigo revela-lhe a solução.
Contar células com texto específico e Cor de preenchimento com código VBA
Contar células com texto específico e Cor da Fonte com código VBA
Contar células com texto específico e Cor de preenchimento com código VBA
Suponha que tem uma tabela como a apresentada na imagem seguinte. Para contar as células na coluna B com base no texto e na cor de preenchimento da célula E2, aplique o seguinte código VBA.
1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, em seguida, copie o código VBA abaixo para a janela do Módulo.
Código VBA: Contar células com texto específico e Cor de preenchimento
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubNota: No código, B2:B9 é o intervalo onde serão contadas as células; E2 contém o texto e a cor de preenchimento com base nos quais as células serão contadas. Pode alterá-los conforme necessário.
3. Prima a tecla F5 para executar o código. Em seguida, abre-se uma caixa de diálogo Kutools para Excel. Selecione uma célula para colocar o resultado e, depois, clique no botão OK. Veja a imagem:
O resultado da contagem aparece imediatamente na célula selecionada.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Contar células com texto específico e Cor da Fonte com código VBA
Para contar as células no intervalo B2:B9 com base no texto e na cor da fonte da célula E2, siga estes passos.
1. Abra a janela do Microsoft Visual Basic for Applications premindo as teclas Alt + F11.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir>Módulo, depois copie o código VBA abaixo para a janela do Módulo.
Código VBA: Contar células com texto específico e Cor da Fonte
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubNota: No código, B2:B9 é o intervalo onde as células serão contadas; E2 é o critério com base no qual a contagem será feita. Pode ajustá-los conforme necessário.
3. Prima a tecla F5para executar o código. Em seguida, abre-se uma caixa de diálogo Kutools para Excel, Por favor, selecione selecione uma célula para colocar o resultado e, de seguida, clique no botão OK. Veja a imagem:
Obterá o resultado tal como apresentado na imagem seguinte:
Artigos relacionados:
- Como contar o número de células entre dois valores ou datas no Excel?
- Como contar células que contêm um texto específico na seleção no Excel?
- Como contar se uma célula contém texto ou parte de um texto no Excel?
- Como contar o número de ocorrências de uma palavra específica numa célula ou num intervalo de células no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos