Kako samodejno razvrstiti datum, ko je datum vnesen ali spremenjen v Excelu? 

V Excelu je Razvrščanje funkcija vam lahko pomaga razvrstiti datum po naraščajočem ali padajočem vrstnem redu, kot ga potrebujete. Vendar ni dinamičen, če ste datum razvrstili in mu nato dodali nov datum, ga boste morali znova razvrstiti. Ali obstajajo dobri in hitri načini za samodejno razvrščanje datuma ob vsakem vnosu novega datuma v delovni list?

Datum samodejnega razvrščanja, ko datum vnesete ali spremenite s formulo

Datum samodejnega razvrščanja, ko je datum vnesen ali spremenjen s kodo VBA

Datum samodejnega razvrščanja, ko datum vnesete ali spremenite s formulo

Na primer prvotni datum v stolpcu A, naslednja formula vam lahko pomaga pri samodejnem razvrščanju datuma ali drugih besedilnih nizov v novem pomožnem stolpcu glede na stolpec, ki ga želite razvrstiti, storite tako:

1. Vnesite to formulo:

=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) v prazno celico poleg stolpca z datumi, C2na primer in pritisnite Ctrl + Shift + Enter tipke skupaj in dobili boste zaporedje številk, nato povlecite ročico za polnjenje navzdol do celic, ki jih želite uporabiti, glejte posnetek zaslona:

Opombe: V zgornji formuli: A2: A15 je prvotno časovno obdobje, ki ga želite samodejno razvrstiti.

2. Nato s klikom oblikujte številke kot obliko datuma Kratek zmenek Iz splošno spustni seznam pod Domov zavihek, glej posnetek zaslona:

3. Nato so zaporedne številke pretvorjene v obliko datuma in razvrščen tudi prvotni datum, glejte posnetek zaslona:

4. Od zdaj naprej, ko vnašate nov datum ali spremenite datum v stolpec A, bo datum v stolpcu C samodejno razvrščen v naraščajočem vrstnem redu, glejte sliko zaslona:

Datum samodejnega razvrščanja, ko je datum vnesen ali spremenjen s kodo VBA

Naslednja koda VBA vam lahko pomaga pri samodejnem razvrščanju datuma v prvotnem stolpcu, ko vnesete nov datum ali spremenite datum, kot ga potrebujete.

1. Pojdite na delovni list, v katerem želite samodejno razvrstiti datum, ko vnesete ali spremenite datum.

2. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Moduli okno, glej posnetek zaslona:

Koda VBA: samodejno razvrščanje ob vnosu ali spremembi datuma:

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

Opombe: V zgornji kodi bo vneseni datum samodejno razvrščen v stolpec A, lahko ga spremenite A1 in A2 v lastne celice, kot jih potrebujete.

3. Od zdaj naprej, ko vnesete datum v stolpec A, bo datum samodejno razvrščen naraščajoče.