Como contar ou somar células com texto riscado no Excel?
No Excel, é comum aplicar formatação de texto riscado a determinadas células para assinalar dados como desatualizados, irrelevantes ou inválidos. Essa indicação visual pode melhorar significativamente a gestão de dados e ajudá-lo a concentrar-se na informação relevante durante a análise. Contudo, ao realizar cálculos — como contagens ou somas — poderá precisar de distinguir os resultados das células com texto riscado daquelas sem essa formatação. Saber como lidar com estes cenários pode agilizar o seu fluxo de trabalho e conduzir a análises mais precisas. Este artigo apresenta vários métodos práticos para contar e somar células com ou sem formatação de texto riscado no Excel, utilizando funções VBA personalizáveis que oferecem flexibilidade para diversas necessidades de gestão de dados.
Contar células com texto riscado com VBA no Excel
Contar células sem texto riscado com VBA no Excel
Somar excluindo células com texto riscado com VBA no Excel
Contar ou Somar Células com Texto Riscado Utilizando Kutools para Excel
Contar células com texto riscado no Excel
Se precisar de determinar o número total de células formatadas com texto riscado numa determinada gama, saiba que isso não é possível diretamente com as funções incorporadas do Excel, já que nenhuma fórmula nativa reconhece formatação de texto, como o risco. Nesse caso, a solução mais prática é recorrer a uma Função Definida pelo Utilizador (UDF) em VBA. Esta abordagem revela-se especialmente útil na gestão de listas de tarefas, atualizações de inventário ou qualquer cenário em que o texto riscado sinalize dados concluídos, inválidos ou obsoletos.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do VBA, clique em Inserir > Módulo para criar um novo módulo e, em seguida, cole o seguinte código na Janela do Módulo.
Código VBA: Contar células com texto riscado
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. Após introduzir o código, guarde a sua pasta de trabalho (para manter a macro), feche o editor do VBA e regresse à sua folha de cálculo. Numa célula vazia — onde desejar que o resultado apareça — introduza a seguinte fórmula (por exemplo, para verificar células com texto riscado no intervalo)A2:B14):=CountStrike(A2:B14)
Dica: Pode alterar A2:B14 para qualquer outra gama que deseje verificar.
4. Prima a tecla Enter para executar a fórmula e o Excel irá imediatamente apresentar a contagem de todas as células com texto riscado no intervalo limitado. Isto permite-lhe acompanhar eficientemente o progresso ou remover entradas obsoletas, conforme necessário. Veja a imagem:
Precaução: Para garantir que este código VBA permanece disponível para utilização futura, guarde o ficheiro no formato .xlsm (Livro do Excel com Macros Ativadas).
Contar células sem texto riscado no Excel
Há situações em que pode precisar apenas de contar as células que não têm formatação de texto riscado numa determinada gama. Por exemplo, em tabelas de acompanhamento de projetos ou dados de vendas, geralmente pretende contar apenas as entradas ativas ou válidas — ou seja, aquelas sem texto riscado — para operações posteriores. As funções padrão CONTAR ou CONT.VALORES do Excel ignoram a formatação do texto, pelo que uma solução VBA personalizada oferece o controlo preciso de que necessita.
1. Prima ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Aceda a Inserir > Módulo para adicionar um novo módulo de código. Cole o seguinte código nessa janela do módulo.
Código VBA: Contar células sem texto riscado
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. Guarde a sua pasta de trabalho com as macros ativadas, regresse à folha de cálculo e, numa célula vazia, introduza a fórmula (por exemplo, para)A2:B14):=countnostrike(A2:B14) Em seguida, prima Enter para obter o resultado. O Excel irá contar apenas as células dentro do intervalo selecionado que não têm formatação de texto riscado.
Nota: No exemplo acima, A2:B14 é a gama de células a ser avaliada. Ajuste a referência da gama conforme necessário para a sua folha de cálculo. Além disso, tenha em atenção que células mescladas ou formatações especiais podem, por vezes, afetar os resultados — verifique cuidadosamente se a sua gama contém apenas as células pretendidas.
Somar excluindo células com texto riscado no Excel
Ao trabalhar com dados numéricos em que certas entradas já não estão ativas ou devem ser ignoradas — ou seja, apresentam formatação de texto riscado — é frequentemente essencial somar apenas os números válidos. Esta situação é comum em folhas de orçamento, gestão de inventário ou acompanhamento de tarefas, onde as entradas com texto riscado representam itens obsoletos ou concluídos que devem ser excluídos dos totais. Como a função SOMA incorporada do Excel não distingue entre células formatadas e não formatadas, é necessária uma Função VBA Definida pelo Utilizador para realizar esta operação.
1. Utilize ALT + F11 para abrir o editor do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para adicionar um módulo e cole o código abaixo nessa janela do módulo.
Código VBA: Somar excluindo células com texto riscado
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. Feche o editor VBA. Na sua folha de cálculo de destino, escolha uma célula vazia e introduza a seguinte fórmula (por exemplo, para)B2:B14):=excstrike(B2:B14) Prima Enter e o Excel irá somar apenas as células no seu intervalo especificado que não têm formatação de texto riscado, fornecendo instantaneamente uma soma que exclui valores obsoletos.
Nota: Ajuste B2:B14 ao seu intervalo de dados real. Esta função ignora células com texto riscado, independentemente do respetivo valor. Se obtiver resultados inesperados, certifique-se de que todas as células contêm valores numéricos e a formatação correta.
Dica prática: Se precisar de atualizar a soma após alterar o estado de texto riscado de qualquer célula, recalcule a folha de cálculo premindo F9.
Contar ou Somar Células com Texto Riscado Utilizando Kutools para Excel
Se pretender contar ou somar apenas as células com formatação de texto riscado, o Excel não oferece uma forma incorporada de o fazer — mas o Kutools para Excel facilita-o com a sua funcionalidade Filtro Especial.
1. Selecione a coluna
Clique na coluna que contém as células formatadas com texto riscado.
2. Abra o Filtro Especial
Aceda ao separador KUTOOLS PLUS e clique em Filtro Especial > Filtrar Células com Tachado.
3. Confirme o filtro
Aparecerá uma caixa de diálogo a indicar quantas células correspondem à condição. Clique em OK para continuar.
4. Veja os resultados
As células com texto riscado estão agora filtradas e visíveis. Selecione o intervalo de filtro — verá imediatamente a soma, média e contagem na Barra de Status do Excel, na parte inferior.
✨Porque Utilizar o Kutools?
O Kutools para Excel oferece mais de 300 funcionalidades poderosas e fáceis de usar, como esta — ajudando-o a poupar tempo e aumentar a produtividade sem precisar de escrever fórmulas complexas ou código VBA.
Quer esteja a filtrar por formato, limpar dados, combinar folhas ou editar em lote, o Kutools simplifica o seu trabalho em segundos.
Artigos relacionados:
Como somar ou contar números em negrito num intervalo de células no Excel?
Como contar e somar células com base na cor de fundo no Excel?
Como contar ou somar células com base na cor da fonte 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