Hvordan udfyldes dato automatisk i celle, når tilstødende celle opdateres i Excel?
Nogle gange, når du opdaterer en celle i en bestemt kolonne, vil du måske markere den seneste dato om opdateringen. Denne artikel vil anbefale en VBA-metode til at løse dette problem. Når cellen opdateres, udfyldes den tilstødende celle automatisk med den aktuelle dato med det samme.
Udfyld automatisk dato i celle, når tilstødende celle opdateres med VBA-kode
Udfyld automatisk dato i celle, når tilstødende celle opdateres med VBA-kode
Hvis vi antager, at de data, du har brug for at opdatere, findes i kolonne B, og når celle i kolonne B opdateres, vil den aktuelle dato blive befolket i den tilstødende celle i kolonne A. Se skærmbillede:
Du kan køre følgende VBA-kode for at løse dette problem.
1. Højreklik på den arkfane, du har brug for for automatisk at udfylde dato baseret på den tilstødende opdaterede celle, og klik derefter på Vis kode fra højreklikmenuen.
2. I vinduet Microsoft Visual Basic til applikationer skal du kopiere og indsætte nedenstående VBA-kode i kodevinduet.
VBA-kode: Udfyld automatisk den aktuelle dato i en celle, når den tilstødende celle opdateres
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
Noter:
3. Trykke andre + Q taster på samme tid for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når cellerne opdateres i kolonne B, vil den tilstødende celle i kolonne A straks blive befolket med den aktuelle dato. Se skærmbillede:
Relaterede artikler:
- Sådan udfyldes andre celler automatisk, når du vælger værdier i Excel-rullelisten?
- Hvordan autofuldføres, når du skriver i rullelisten i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!