¿Cómo mantener un total acumulado en una o en una sola celda en Excel?

Este artículo te mostrará un método para mantener un total acumulado en una o en una sola celda en Excel. Por ejemplo, la celda A1 contiene actualmente el número 10; cuando se ingresa otro número, como 5, el valor resultante de A1 será 15 (10+5). Puedes hacer lo siguiente para lograrlo fácilmente.

Mantener un total acumulado en una o en una sola celda con código VBA

Mantener un total acumulado en una o en una sola celda con código VBA

El siguiente código VBA puede ayudarte a mantener un total acumulado en una celda. Por favor, sigue los siguientes pasos uno por uno.

1. Abre la hoja de cálculo que contiene la celda donde mantendrás el total acumulado. Haz clic derecho en la pestaña de la hoja y selecciona Ver código desde el menú contextual.

2. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA en la ventana de Código. Ver captura de pantalla:

Código VBA: Mantener un total acumulado en una o en 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

Nota: En el código, A1 es la celda donde mantendrás el total acumulado. Por favor, especifica una celda según sea necesario.

3. Presiona las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, al escribir números en la celda A1, el total seguirá acumulándose dentro de la celda, como se muestra en la siguiente captura de pantalla.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!