Muitas vezes, surge uma situação em que precisamos somar (acumular) vários valores inseridos sequencialmente em uma célula:
Aqueles. se, por exemplo, você inserir o número 1 na célula A5, o número 1 deverá aparecer em B15. Se você inserir o número 1 em A7, 1 deverá aparecer na célula B22 e assim por diante. Em geral, o que os contadores (e não apenas eles) chamam de total cumulativo.
Você pode implementar esse acumulador de células de armazenamento usando uma macro simples. Clique com o botão direito do mouse na guia da planilha onde as células A1 e B1 estão localizadas e selecione no menu de contexto Texto original (Código fonte). Na janela do editor Visual Basic que se abre, copie e cole o código de macro simples:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Com Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End If End If End With End Sub Os endereços das células A1 e A2, é claro, podem ser substituídos pelos seus.
Se você precisar rastrear a entrada de dados e resumir não células individuais, mas intervalos inteiros, a macro terá que ser ligeiramente alterada:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A10")) Não é Nada Então Se IsNumeric(Target.Value) Então Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub Supõe-se que os dados sejam inseridos nas células do intervalo A1:A10 e os números inseridos sejam somados na coluna adjacente à direita. Se no seu caso não for adjacente, aumente o deslocamento para a direita no operador Offset – substitua 1 por um número maior.
- O que são macros, onde inserir código de macro no VBA, como usá-los?