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:
Opmerking:: 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 de 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
Opmerking:: 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.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
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!
