Como contar células com texto e cor de preenchimento / fonte específicos no Excel?
Pode ser fácil contar o número de células que contêm apenas uma condição, como contar todas as células com texto específico ou cor de fonte / preenchimento. No entanto, você sabe como contar células com doenças múltiplas? Por exemplo, conte o número de células que contêm texto específico e cor de fonte / preenchimento. Este artigo mostrará a solução.
Conte as células com texto específico e preencha a cor com o código VBA
Contar células com texto específico e cor de fonte com código VBA
Conte as células com texto específico e preencha a cor com o código VBA
Supondo que você tenha uma tabela como a captura de tela abaixo, para contagem de 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. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe copie o código VBA abaixo para a janela Módulo.
Código VBA: conte 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 Sub
Note: No código, B2: B9 é o intervalo no qual você contará as células, E2 contém o texto e a cor de preenchimento em que você contará as células. Você pode alterá-los conforme sua necessidade.
3. aperte o F5 para executar o código, então um Kutools for Excel caixa de diálogo aparece, selecione uma célula para colocar o resultado e clique no botão OK botão. Veja a imagem:
Então, o resultado da contagem é mostrado na célula selecionada imediatamente.
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 cor da fonte da célula E2, faça o seguinte.
1. Abra a Microsoft Visual Basic para Aplicações janela pressionando o outro + F11 chaves.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe copie o código VBA abaixo para a janela Módulo.
Código VBA: conte células com texto e cor de fonte específicos
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 Sub
Note: No código, B2: B9 é o intervalo no qual você contará as células, E2 é o critério no qual você contará as células com base. Você pode alterá-los conforme necessário.
3. aperte o F5 para executar o código, então um Kutools for Excel caixa de diálogo aparece, selecione uma célula para colocar o resultado e clique no botão OK botão. Veja a imagem:
Você obterá o resultado conforme a 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 certas / palavras específicas em uma célula ou intervalo de células no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!