Hur fyller jag i datum automatiskt i cell när intilliggande cell uppdateras i Excel?

Ibland när du uppdaterar en cell i en viss kolumn kanske du vill markera det senaste datumet om uppdateringen. Denna artikel kommer att rekommendera en VBA-metod för att lösa detta problem. När cellen uppdateras kommer den intilliggande cellen att fyllas i automatiskt med aktuellt datum omedelbart.

Fyll automatiskt in aktuellt datum i cellen när intilliggande cell uppdateras med VBA-kod

Fyll automatiskt in aktuellt datum i cellen när intilliggande cell uppdateras med VBA-kod

Om du antar att de data du behöver uppdatera lokaliseras i kolumn B, och när cell i kolumn B uppdateras, kommer det aktuella datumet att fyllas i den intilliggande cellen i kolumn A. Se skärmdump:

Du kan köra följande VBA-kod för att lösa detta problem.

1. Högerklicka på arkfliken du behöver för att automatiskt fylla i datum baserat på den intilliggande uppdaterade cellen och klicka sedan på Visa kod från högerklickmenyn.

2. I Microsoft Visual Basic for Applications-fönstret, kopiera och klistra in nedanstående VBA-kod i kodfönstret.

VBA-kod: fyll i automatiskt aktuellt datum i en cell när den intilliggande cellen uppdateras

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

Anmärkningar:

3. Tryck andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du uppdaterar celler i kolumn B, kommer den intilliggande cellen i kolumn A att fyllas i med nuvarande datum omedelbart. Se skärmdump:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar:

• Hur fyller jag i andra celler automatiskt när du väljer värden i Excel-listrutan?
• Hur fyller jag i automatiskt när du skriver i rullgardinslistan i Excel?