Vai al contenuto principale

Come popolare automaticamente la data nella cella quando la cella adiacente viene aggiornata in Excel?

Autore: Silvia Ultima modifica: 2024-09-19

A volte, quando aggiorni una cella in una determinata colonna, potresti voler contrassegnare l'ultima data sull'aggiornamento. Questo articolo consiglierà un metodo VBA per risolvere questo problema. Quando la cella viene aggiornata, la cella adiacente verrà popolata automaticamente con la data corrente immediatamente.

Compila automaticamente la data corrente nella cella quando la cella adiacente viene aggiornata con il codice VBA


Compila automaticamente la data corrente nella cella quando la cella adiacente viene aggiornata con il codice VBA

Supponendo che i dati che devi aggiornare si trovino nella colonna B e quando la cella nella colonna B viene aggiornata, la data corrente verrà popolata nella cella adiacente della colonna A. Vedi screenshot:

Popola automaticamente la data corrente nella cella quando la cella adiacente viene aggiornata

È possibile eseguire il seguente codice VBA per risolvere questo problema.

1. Fare clic con il pulsante destro del mouse sulla scheda del foglio di cui è necessario popolare automaticamente la data in base alla cella aggiornata adiacente, quindi fare clic su Visualizza codice dal menu di scelta rapida.

fare clic su Visualizza codice dal menu di scelta rapida

2. Nella finestra di Microsoft Visual Basic, Applications Edition, copia e incolla il codice VBA sottostante nella finestra del codice.

Codice VBA: popola automaticamente la data corrente in una cella quando la cella adiacente viene aggiornata

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

Note:

1). Nel codice, B: B significa che i dati aggiornati si trovano nella colonna B.
2). -1 indica che la data corrente verrà inserita nella colonna di sinistra della colonna B. Se si desidera che la data corrente venga popolata nella colonna C, modificare -1 in 1.

3. Stampa altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.

D'ora in poi, quando si aggiornano le celle nella colonna B, la cella adiacente nella colonna A verrà popolata immediatamente con la data corrente. Vedi screenshot:

quando si aggiornano le celle nella colonna B, la cella adiacente nella colonna A verrà popolata con la data corrente

uno screenshot di kutools per Excel ai

Sblocca Excel Magic con Kutools AI

  • Esecuzione intelligente: esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto gestito da semplici comandi.
  • Formule personalizzate: genera formule personalizzate per semplificare i flussi di lavoro.
  • Codifica VBA: Scrivi e implementa il codice VBA senza sforzo.
  • Interpretazione della formula: Comprendere formule complesse con facilità.
  • Traduzione di testi: abbatti le barriere linguistiche nei tuoi fogli di calcolo.
Migliora le tue funzionalità di Excel con strumenti basati sull'intelligenza artificiale. Scarica Ora e sperimenta l'efficienza come mai prima d'ora!

Articoli correlati:

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...


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!