mantener un total constante de celdas de Excel

Question

Tengo una columna con 3 celdas: A1, A2 y A3. Quiero que el total numérico de las 3 celdas permanezca constante a medida que aumento o disminuyo cualquiera de las 3 celdas. Es decir, necesito que cualquier aumento o disminución de cualquier celda se distribuya uniformemente entre las otras 2 celdas. Por ejemplo, empiezo con 3 + 5 + 2 = 10. Cambio de 5 a 6 para tener 2,5 + 6 + 1,5 = 10 automáticamente. Tenga en cuenta que, de hecho, tendré unas 20 celdas que quiero que sean iguales a 100 constantes. Muchas gracias.

Answer 1

LlenarA1a través deA20con valores que suman100:

Luego coloca lo siguienteMacro de eventoen el área de código de la hoja de trabajo:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, Delta As Double
    Set rng = Range("A1:A20")
    If Intersect(Target, rng) Is Nothing Then Exit Sub

    Delta = (100 - Range("A21").Value) / 19
    Application.EnableEvents = False
        For Each r In rng
            If r.Address <> Target.Address Then
                r.Value = r.Value + Delta
            End If
        Next r
    Application.EnableEvents = True
End Sub

Una vez que la macro esté instalada y activa, detectará cualquier cambio en los valores enA1a través deA20y ajuste los otros valores para conservar el 100. Cambie solo una celda a la vez.

Debido a que es código de hoja de trabajo, es muy fácil de instalar y automático de usar:

1. haga clic derecho en el nombre de la pestaña cerca de la parte inferior de la ventana de Excel
2. seleccione Ver código; esto abre una ventana de VBE
3. pegue las cosas y cierre la ventana de VBE

Si tiene alguna inquietud, primero pruébelo en una hoja de trabajo de prueba.

Si guarda el libro, la macro se guardará con él. Si está utilizando una versión de Excel posterior a 2003, debe guardar el archivo como .xlsm en lugar de .xlsx.

Para eliminar la macro:

1. abra las ventanas de VBE como se muestra arriba
2. borrar el código
3. cerrar la ventana VBE

Para obtener más información sobre las macros en general, consulte:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

y

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Para obtener más información sobre las macros de eventos (código de la hoja de trabajo), consulte:

http://www.mvps.org/dmcritchie/excel/event.htm

¡Las macros deben estar habilitadas para que esto funcione!