Come registrare i valori che cambiano in una cella in Excel?

Come registrare ogni valore che cambia per una cella che cambia frequentemente in Excel? Ad esempio, il valore originale nella cella C2 è 100. Quando si cambia il numero da 100 a 200, il valore originale, 100, verrà visualizzato automaticamente nella cella D2 per la registrazione. Quando si cambia da 200 a 300, il numero 200 verrà inserito nella cella D3; cambiando da 300 a 400, il numero 300 verrà visualizzato in D4 e così via. Il metodo descritto in questo articolo può aiutarti a raggiungere questo obiettivo.

Registra i valori che cambiano in una cella con il codice VBA

Registra i valori che cambiano in una cella con il codice VBA

Il seguente codice VBA può aiutarti a registrare ogni valore che cambia in una cella in Excel. Procedi come segue.

1. Nel foglio di lavoro contenente la cella in cui desideri registrare i valori che cambiano, fai clic con il tasto destro sul tab del foglio e poi clicca su Visualizza Codice dal menu contestuale. Vedi screenshot:

2. Si aprirà quindi la finestra Microsoft Visual Basic for Applications; copia il seguente codice VBA nella finestra del Codice.

Codice VBA: registra i valori che cambiano in una cella

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

Note: Nel codice, C2 è la cella in cui vuoi registrare tutti i valori che cambiano. D2 è la cella in cui verrà inserito il primo valore modificato di C2.

3. Premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

Da adesso in poi, ogni volta che modifichi i valori nella cella C2, i valori precedenti verranno registrati in D2 e nelle celle sottostanti.