Hvordan sorteres dato automatisk, når dato indtastes eller ændres i Excel?
I Excel er Sort funktion kan hjælpe dig med at sortere dato i stigende eller faldende rækkefølge efter behov. Men det er ikke dynamisk. Hvis du har sorteret datoen og derefter tilføjet en ny dato til den, skal du sortere den igen. Er der nogen gode og hurtige måder for dig at sortere datoen automatisk, når du indtaster en ny dato hver gang i et regneark?
Automatisk sorteringsdato, når dato indtastes eller ændres med formlen
Automatisk sorteringsdato, når dato indtastes eller ændres med VBA-kode
Automatisk sorteringsdato, når dato indtastes eller ændres med formlen
For eksempel kan den oprindelige dato i kolonne A, følgende formel hjælpe dig med automatisk at sortere datoen eller andre tekststrenge i en ny hjælpekolonne baseret på den kolonne, du vil sortere, gør som følger:
1. Indtast denne formel:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) ind i en tom celle ved siden af din datokolonne, C2, for eksempel, og tryk derefter på Ctrl + Skift + Enter nøgler sammen, og du får en nummersekvens, og træk derefter fyldhåndtaget ned til de celler, du vil bruge, se skærmbillede:
Bemærk: I ovenstående formel: A2: A15 er dit originale datointerval, som du automatisk vil sortere.
2. Formater derefter tallene som datoformat ved at klikke på Kort dato fra Generelt rulleliste under Home fane, se skærmbillede:
3. Derefter er sekvensnumrene konverteret til datoformat, og den originale dato er også sorteret, se skærmbillede:
4. Fra nu af, når du indtaster en ny dato eller ændrer datoen i kolonne A, sorteres datoen i kolonne C automatisk i stigende rækkefølge, se skærmbillede:
Automatisk sorteringsdato, når dato indtastes eller ændres med VBA-kode
Følgende VBA-kode kan hjælpe dig med automatisk at sortere datoen i den originale kolonne, når du indtaster en ny dato eller ændrer datoen, som du har brug for.
1. Gå til regnearket, som du vil sortere datoen automatisk, når du indtaster eller ændrer en dato.
2. Højreklik på arkfanen, og vælg Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme felt Moduler vindue, se skærmbillede:
VBA-kode: automatisk sortering, når dato indtastes eller ændres:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Bemærk: I ovenstående kode bliver den indtastede dato automatisk sorteret i kolonne A, du kan ændre A1 , A2 til dine egne celler, som du har brug for.
3. Fra nu af, når du indtaster dato i kolonne A, sorteres datoen automatisk stigende.
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!