KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come inserire automaticamente il timestamp corrente quando i dati in un’altra cella vengono modificati in Excel?

AutoreSiluvia Data di modifica

Supponiamo che tu riceva un foglio di lavoro in cui devi modificare i dati in una determinata colonna. Dopo aver apportato le modifiche, devi inserire un timestamp per informare gli altri quali celle sono state modificate. Come gestire questa situazione? Questo articolo ti illustrerà un metodo per inserire automaticamente il timestamp corrente quando i dati in un’altra cella vengono modificati in Excel, come mostrato nell’immagine seguente.

inserisci la data e l'ora correnti quando i dati in un'altra cella cambiano

Inserisci il timestamp corrente quando i dati in un’altra cella cambiano con codice VBA


Inserisci il timestamp corrente quando i dati in un’altra cella cambiano con codice VBA

Come illustrato nell’immagine seguente, inserisci il timestamp nella colonna E ogni volta che le celle corrispondenti nella colonna C vengono modificate. Procedi nel modo seguente.

dati di esempio

1. Nel foglio di lavoro che devi modificare e contrassegnare con un timestamp, fai clic con il pulsante destro del mouse sulla scheda del foglio, quindi seleziona Visualizza codice dal menu contestuale.

2. Copia e incolla quindi il seguente codice VBA nella finestra Codice della finestra di Microsoft Visual Basic for Applications. Vedi immagine:

Codice VBA: Inserisci il timestamp corrente quando i dati in un’altra cella cambiano

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

Nota: nel codice, il numero 3 indica che stai modificando i dati nella colonna C, mentre il 5 specifica che il timestamp verrà inserito nella colonna E. Modificali in base alle tue esigenze.

fai clic su Visualizza codice e inserisci il codice nel modulo

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

Da ora in poi, ogni volta che modificherai i dati nella colonna C, il timestamp verrà inserito automaticamente nelle celle corrispondenti della colonna E, come illustrato nell’immagine seguente.

quando si modificano i dati nella colonna C, la data e l'ora verranno inserite nelle celle corrispondenti della colonna E

Suggerimento.Selettore di Date. L’Inserisci data di Kutools per Excel ti consente di inserire rapidamente una data con il formato specifico in una cella selezionata.
Scaricala e provala subito! (Prova gratuita di 30 giorni)

Selettore date di Kutools


Articoli correlati:

Migliori Strumenti per la Produttività in Office

🤖KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate
Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...


Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • 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 all’interno della stessa finestra, invece che in finestre separate.
  • Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!

Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.

Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.

ExcelWordOutlookTabsPowerPoint
  • Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
  • Funziona meglio insieme— produttività ottimizzata tra le app di Office
  • Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
  • Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi