Como manter um total acumulado numa única célula no Excel?
Este artigo mostra-lhe um método simples para manter um total acumulado numa única célula no Excel. Por exemplo, se a célula A1 contiver atualmente o número 10, ao introduzir outro valor — como 5 —, o conteúdo de A1 passará automaticamente a 15 (10 + 5). Siga os passos abaixo para o conseguir facilmente.
Manter total acumulado numa única célula com código VBA
Manter total acumulado numa única célula com código VBA
O código VBA abaixo ajuda-o a manter um total acumulado numa célula. Siga os passos seguintes, um de cada vez.
1. Abra a folha de cálculo que contém a célula onde irá manter o total acumulado. Clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto.
2. Na janela Microsoft Visual Basic for Applications que se abre, copie e cole o código VBA abaixo na janela de Código. Veja a imagem:
Código VBA: Manter total acumulado numa única célula
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End SubNota: No código, A1 é a célula onde ficará o total acumulado. Indique a célula que preferir.
3. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
A partir de agora, ao digitar números na célula A1, o total será acumulado continuamente, tal como ilustrado na imagem seguinte.
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.
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