Vai al contenuto principale

Come monitorare i cambiamenti di cella in Excel?

Come potresti monitorare le celle di un foglio di lavoro se i dati vengono modificati in Excel? Questo può 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 delle celle in Excel con la funzione Rileva modifiche

Monitora i cambiamenti di cella in Excel con il codice VBA


freccia blu freccia destra Monitora le modifiche delle celle in Excel con la funzione Rileva modifiche

Excel ha un utile Tenere traccia delle modifiche funzione, può aiutarti a contrassegnare le celle modificate, per favore fai come segue:

1. Clic Review > Tenere traccia delle modifiche > Evidenzia le modifiche, vedi screenshot:

modifiche al monitor doc 1

2. Nel Evidenzia le modifiche finestra di dialogo, eseguire le seguenti operazioni:

(1.) Controllare Tieni traccia delle modifiche durante la modifica. Questo condivide anche la tua cartella di lavoro.

(2.) Sotto il Evidenzia quali modifiche sezione, specifica gli elementi Quando, Chi e Dove di cui hai bisogno.

(3.) Infine, controlla Evidenzia le modifiche sullo schermo opzione.

modifiche al monitor doc 2

3. Dopo aver terminato le impostazioni, fare clic su OK pulsante, ora, quando modifichi i valori delle celle nelle celle specificate, un bordo con un'icona triangolare si trova intorno alle celle modificate, vedi screenshot:

modifiche al monitor doc 3

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


freccia blu freccia destra Monitora i cambiamenti di cella in Excel con il codice VBA

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

1. Fare clic con il pulsante destro del mouse sulla scheda del foglio in cui si desidera monitorare le modifiche alle celle e scegliere Visualizza codice dal menu contestuale, nel file Microsoft Visual Basic, Applications Edition finestra, 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

modifiche al monitor doc 4

Nota: Nel codice sopra, A1: E7 è l'intervallo di dati che desideri monitorare se la cella cambia, puoi modificarlo secondo le tue necessità.

2. Quindi salva e chiudi questa finestra di codice e ora, quando modifichi il valore della cella nell'intervallo specificato, verrà visualizzata una finestra di messaggio per ricordartelo, vedi screenshot:

modifiche al monitor doc 5

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Merhaba. WhatsApp üzerinden bana gelen bir excell dosyası var. Bunu bilgisayar üstünden açıp. Bunda ki hareketleri ve değişiklikleri görme şansım var mı ?
This comment was minimized by the moderator on the site
I got "syntax error" with "Dim xrng As Range" when I inserted the below code in my worksheet_change event :-(
VBA code: Monitor cell changes in Excel worksheet:

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
This comment was minimized by the moderator on the site
if i have large amount of data in excel file, and i just want to know status in one different colum that if any cell gets change its value then it should indicate in from of that cell's row , tha status shoild be changed, how can i do this
This comment was minimized by the moderator on the site
hello how can we track by date and time in the change in the cell
This comment was minimized by the moderator on the site
Woooow this is nowhere else except here! Amazing!

Is there any way to insert a row right below the row of the cell where the cell was updated?

To make it more challenging, if I have list validation enabled or formula enabled can that as well be copied to the new row?
This comment was minimized by the moderator on the site
Hi, amar,
To insert a row below the changed value, the following VBA code can help you, please try it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xStrPre, xStr As String
On Error Resume Next
Set xRg = Range("A1:E7")
If Intersect(xRg, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStr = Target.Value
Application.Undo
xStrPre = Target.Value
Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Target.Offset(1, 0).Value = xStrPre
Target.Value = xStr
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Hello, I have it copying old number to new line - how do I have the new line go to a new tab instead?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations