Come popolare automaticamente la data nella cella quando la cella adiacente viene aggiornata in Excel?
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
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:
È 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.
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:
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:

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.
Articoli correlati:
- Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel?
- Come eseguire il completamento automatico durante la digitazione nell'elenco a discesa di Excel?
I migliori strumenti per la produttività in ufficio
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!