Como manter a execução total em uma ou uma única célula no Excel?
Este artigo mostrará um método para manter a execução total em uma ou em uma única célula do Excel. Por exemplo, a célula A1 contém um número 10 atualmente; ao inserir outro número, como 5, o valor resultante de A1 será 15 (10 + 5). Você pode fazer o seguinte para fazer isso facilmente.
Continue executando o total em uma ou uma única célula com o código VBA
Continue executando o total em uma ou uma única célula com o código VBA
O código VBA abaixo pode ajudá-lo a manter a execução total em uma célula. Faça o seguinte passo a passo.
1. Abra a planilha que contém a célula que você continuará executando. Clique com o botão direito na guia da planilha e selecione Ver código no menu de contexto.
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie e cole abaixo do código VBA na janela de código. Veja a imagem:
Código VBA: continue executando em uma ou uma ú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 Sub
Note: No código, A1 é a célula que você continuará executando dentro dela. Especifique uma célula conforme necessário.
3. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, ao digitar os números na célula A1, o total continuará correndo dentro como mostrado na imagem abaixo.
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!