¿Cómo seguir ejecutando el total en una o una sola celda en Excel?
Este artículo le mostrará un método para seguir ejecutando el total en una o una sola celda en Excel. Por ejemplo, la celda A1 tiene actualmente un número 10, al ingresar otro número como 5, el valor de resultado de A1 será 15 (10 + 5). Puede hacer lo siguiente para hacerlo fácilmente.
Siga ejecutando el total en una o una sola celda con código VBA
Siga ejecutando el total en una o una sola celda con código VBA
El siguiente código VBA puede ayudarlo a seguir ejecutando el total en una celda. Haga lo siguiente paso a paso.
1. Abra la hoja de trabajo que contiene la celda que seguirá acumulando en total. Haga clic derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual.
2. En la apertura Microsoft Visual Basic para aplicaciones ventana, copie y pegue debajo del código VBA en la ventana Código. Ver captura de pantalla:
Código de VBA: siga ejecutando el total en una o una sola celda
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: En el código, A1 es la celda en la que seguirás ejecutando en total. Especifique una celda que necesite.
3. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.
A partir de ahora, al escribir números en la celda A1, el total seguirá funcionando como se muestra a continuación.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!