Como contar células com texto específico e cor de preenchimento/fonte no Excel?
Pode ser fácil para você contar o número de células que contêm apenas uma condição, como contar todas as células com um texto específico ou cor de fonte/preenchimento. No entanto, você sabe como contar células com múltiplas condições? Por exemplo, contar o número de células que contêm tanto um texto específico quanto uma cor de fonte/preenchimento. Este artigo mostrará 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 de fonte com código VBA
Contar células com texto específico e cor de preenchimento com código VBA
Suponha que você tenha uma tabela conforme mostrado na captura de tela abaixo; para contar 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. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie o código VBA abaixo para a janela 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 SubObservação: No código, B2:B9 é o intervalo onde você contará as células, E2 contém o texto e a cor de preenchimento que você usará como base para contar as células. Você pode alterá-los conforme necessário.
3. Pressione a tecla F5 para executar o código, então uma caixa de diálogo Kutools para Excel aparecerá, selecione uma célula para colocar o resultado e clique no botão OK. Veja a captura de tela:
O resultado da contagem será exibido imediatamente na célula selecionada.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Contar células com texto específico e cor de fonte com código VBA
Para contar células no intervalo B2:B9 com base no texto e na cor de fonte da célula E2, siga os passos abaixo.
1. Abra a janela Microsoft Visual Basic for Applications pressionando as teclas Alt + F11.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie o código VBA abaixo para a janela Módulo.
Código VBA: Contar células com texto específico e cor de 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 SubObservação: No código, B2:B9 é o intervalo onde você contará as células, E2 é o critério que você usará como base para contar as células. Você pode alterá-los conforme necessário.
3. Pressione a tecla F5 para executar o código, então uma caixa de diálogo Kutools para Excel aparecerá, selecione uma célula para colocar o resultado e clique no botão OK. Veja a captura de tela:
Você obterá o resultado conforme mostrado na captura de tela abaixo:
Artigos relacionados:
- Como contar o número de células entre dois valores ou datas no Excel?
- Como contar células com texto específico na seleção no Excel?
- Como contar se a célula contém texto ou parte do texto no Excel?
- Como contar o número de palavras específicas em uma célula ou em um intervalo de células no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins