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 SubNote: 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.
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in