Come monitorare le modifiche alle celle in Excel?

Come potresti monitorare le celle di un foglio di lavoro se i dati vengono modificati in Excel? Questo potrebbe aiutarti a identificare le celle modificate il più rapidamente possibile. In questo articolo, parlerò di alcuni metodi interessanti per affrontare questa attività in Excel.

Monitora le modifiche alle celle in Excel con la funzione Traccia modifiche

Monitora le modifiche alle celle in Excel con il codice VBA

Monitora le modifiche alle celle in Excel con la funzione Traccia modifiche

Excel ha una funzione utile chiamata Traccia modifiche, che può aiutarti a contrassegnare le celle modificate, procedi come segue:

1. Clicca su Revisione > Traccia modifiche > Evidenzia modifiche, vedi screenshot:

2. Nella finestra di dialogo Evidenzia modifiche, esegui le seguenti operazioni:

(1.) Seleziona Traccia modifiche durante la modifica. Questo condividerà anche la tua cartella di lavoro.

(2.) Nella sezione Evidenzia quali modifiche, specifica gli elementi Quando, Chi e Dove secondo necessità.

(3.) Infine, seleziona l'opzione Evidenzia modifiche sullo schermo.

3. Dopo aver completato le impostazioni, clicca sul pulsante OK; ora, quando cambi i valori delle celle nell'intervallo specificato, apparirà un bordo con un'icona triangolare intorno alle celle modificate, vedi screenshot:

Nota: Con questo metodo, la tua cartella di lavoro diventerà una cartella di lavoro condivisa.

Monitora le modifiche alle celle in Excel con il codice VBA

Il seguente codice VBA può anche aiutarti a monitorare i valori delle celle quando vengono modificati, procedi come segue:

1. Fai clic con il tasto destro sulla scheda del foglio in cui vuoi monitorare le modifiche alle celle e scegli Visualizza codice dal menu contestuale; nella finestra aperta di Microsoft Visual Basic for Applications, copia e incolla il seguente codice VBA nel Modulo:

Codice VBA: Monitora le modifiche alle celle nel foglio di lavoro di Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Nota: Nel codice sopra, A1:E7 è l'intervallo dati che desideri monitorare per eventuali modifiche alle celle; puoi modificarlo secondo necessità.

2. Quindi salva e chiudi questa finestra del codice, e ora, quando cambi il valore della cella nell'intervallo specificato, apparirà una finestra di messaggio per avvisarti, vedi screenshot: