Hoe de datum automatisch te sorteren wanneer de datum wordt ingevoerd of gewijzigd in Excel?
In Excel is het Sorteer functie kan u helpen om de datum in oplopende of aflopende volgorde te sorteren als u dat wilt. Maar het is niet dynamisch, als je de datum hebt gesorteerd en er vervolgens een nieuwe datum aan hebt toegevoegd, zou je deze opnieuw moeten sorteren. Zijn er goede en snelle manieren om de datum automatisch te sorteren wanneer u elke keer een nieuwe datum in een werkblad invoert?
Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met formule
Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met VBA-code
Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met formule
De oorspronkelijke datum in kolom A, de volgende formule kan u bijvoorbeeld helpen om de datum of andere tekstreeksen in een nieuwe hulpkolom automatisch te sorteren op basis van de kolom die u wilt sorteren, doe dit als volgt:
1. Voer deze formule in:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) in een lege cel naast je datumkolom, C2, bijvoorbeeld, en druk vervolgens op Ctrl + Shift + Enter toetsen samen, en je krijgt een cijferreeks, sleep vervolgens de vulgreep naar de cellen die je wilt gebruiken, zie screenshot:
Note: In bovenstaande formule: A2: A15 is uw oorspronkelijke datumbereik dat u automatisch wilt sorteren.
2. Formatteer vervolgens de cijfers als datumnotatie door op te klikken Korte datum van het Algemeen vervolgkeuzelijst onder de Home tabblad, zie screenshot:
3. Vervolgens zijn de volgnummers geconverteerd naar datumnotatie en is de oorspronkelijke datum ook gesorteerd, zie screenshot:
4. Vanaf nu, wanneer u een nieuwe datum invoert of de datum in kolom A wijzigt, wordt de datum in kolom C automatisch in oplopende volgorde gesorteerd, zie screenshot:
Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met VBA-code
De volgende VBA-code kan u helpen om de datum automatisch in de oorspronkelijke kolom te sorteren wanneer u een nieuwe datum invoert of de datum naar behoefte wijzigt.
1. Ga naar het werkblad waarvan u de datum automatisch wilt sorteren wanneer u een datum invoert of wijzigt.
2. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege ruimte Module venster, zie screenshot:
VBA-code: automatisch sorteren wanneer de datum wordt ingevoerd of gewijzigd:
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
Note: In de bovenstaande code wordt de ingevoerde datum automatisch gesorteerd in kolom A, u kunt deze wijzigen A1 en A2 naar je eigen cellen als je nodig hebt.
3. Als u vanaf nu de datum in kolom A invoert, wordt de datum automatisch oplopend gesorteerd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!