Excel - Somma progressiva dei valori di una singola cella.

Question

Ciao a tutti.

Fatta una piccola ricerca, non trovo risposta al mio problema.

Poniamo di avere una cella, A1, che contiene un valore uguale a 2.

Il giorno successivo, azzero A1 e inserisco una valore uguale a 3.

Il giorno successivo ancora, azzero A1 e inserisco una valore uguale a 4.

Vorrei che nella cella A2, il valore fosse un totale progressivo.

Cioè, il primo giorno, A2, deve mostrare 2.

Il giorno dopo, A2, deve mostrare 5.

Il giorno dopo, A2, deve mostrare 9.

E così via.

Qualcuno ha avuto lo steso problema ed ha risolto?

Grazie!

NB: Mi rendo conto che probabilmente occorre una macro di cui conosco ben poco, anche perché dovrebbe effettuare questa operazione su altre 44 righe sottostanti, spostarsi di 4 colonne e ripetere le operazioni; questo per un totale di 5 colonne.

Answer 1

Ciao Sobhaddartha1959,

Fatta una piccola ricerca, non trovo risposta al mio problema.

Poniamo di avere una cella, A1, che contiene un valore uguale a 2.

Il giorno successivo, azzero A1 e inserisco una valore uguale a 3.

Il giorno successivo ancora, azzero A1 e inserisco una valore uguale a 4.

Vorrei che nella cella A2, il valore fosse un totale progressivo.

Cioè, il primo giorno, A2, deve mostrare 2.

Il giorno dopo, A2, deve mostrare 5.

Il giorno dopo, A2, deve mostrare 9.

E così via.

Qualcuno ha avuto lo steso problema ed ha risolto?

Grazie!

NB: Mi rendo conto che probabilmente occorre una macro di cui conosco ben poco, anche perché dovrebbe effettuare questa operazione su altre 44 righe sottostanti, spostarsi di 4 colonne e ripetere le operazioni; questo per un totale di 5 colonne.

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub XWorksheet_Change(ByVal Target As Range)

    Dim Rng As Range

    Dim dOld As Double, dNew As Double

    Const sIntervallo As String = "A1:A45,E1:E45,I1:I45,M1:M45,Q1:Q45"       '<<=== Modifica

    If Target.Cells.Count > 1 Then Exit Sub

    Set Rng = Intersect(Me.Range(sIntervallo), Target)

    With Rng

        dNew = .Value

        On Error GoTo XIT

        Application.EnableEvents = False

        Application.Undo

        dOld = .Value

        .Value = dOld + dNew

    End With

XIT:

    Application.EnableEvents = True

End Sub

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Potresti scaricare il mio file di prova Sobhaddartha20200625.xlsm

===

Regards,

Norman