Como contar / somar células tachadas no Excel?
No Excel, sempre formatamos tachado para algumas células que indicam que os valores das células são inúteis ou inválidos, para que possamos analisar os dados com mais precisão. Neste artigo, falarei sobre como fazer alguns cálculos no intervalo com essas células tachadas no Excel.
Contar células tachadas no Excel
Contagem sem células tachadas no Excel
Soma exclui células tachadas no Excel
Contar células tachadas no Excel
Se você quiser saber quantas células com formato tachado em um intervalo, você pode criar uma Função Definida pelo Usuário, siga as seguintes etapas:
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: contagem de células tachadas
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. Em seguida, salve e feche este código, volte para a planilha e insira esta fórmula = CountStrike (A2: B14) para uma célula em branco, veja a captura de tela:
4. Em seguida, pressione Entrar e todas as células tachadas foram contadas. Veja a imagem:
Contagem sem células tachadas no Excel
Mas, às vezes, você pode querer contar apenas o número de células normais que excluem as células tachadas. O código a seguir pode ajudá-lo.
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: contagem sem células tachadas
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. Em seguida, salve e feche este código, volte para sua planilha, digite esta fórmula = countnostrike (A2: B14) em uma célula em branco e pressione Entrar chave, então você obterá o resultado de que precisa.
Note: Nas fórmulas acima, A2: B14 é o intervalo ao qual você deseja aplicar as fórmulas.
Soma exclui células tachadas no Excel
Como as células tachadas não são usadas, aqui, desejo somar apenas os números normais sem os números tachados. Para resolver esta tarefa, você também precisa de uma Função Definida pelo Usuário.
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: soma exclui células tachadas
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. Em seguida, salve e feche este código, volte para sua planilha, digite esta fórmula = excstrike (B2: B14) em uma célula em branco e pressione Entrar e você obterá a soma de todos os números sem as células tachadas. Veja a imagem:
Note: Nas fórmulas acima, B2: B14 é o intervalo no qual você deseja somar células sem o formato de tachado.
Artigos relacionados:
Como somar / contar números em negrito em um intervalo de células no Excel?
Como contar e somar células com base na cor de fundo no Excel?
Como contar / somar células com base nas cores das fontes 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!