Jak automaticky třídit datum, když je datum zadáno nebo změněno v aplikaci Excel?
V aplikaci Excel Typ funkce vám pomůže seřadit datum podle vzestupného nebo sestupného pořadí. Ale není to dynamické, pokud jste datum setřídili a pak k němu přidali nové datum, budete jej muset setřídit znovu. Existují nějaké dobré a rychlé způsoby, jak automaticky třídit datum při každém zadání nového data v listu?
Datum automatického řazení, když je datum zadáno nebo změněno vzorcem
Datum automatického řazení při zadání nebo změně data pomocí kódu VBA
Datum automatického řazení, když je datum zadáno nebo změněno vzorcem
Například původní datum ve sloupci A, následující vzorec vám může pomoci automaticky seřadit datum nebo jakékoli jiné textové řetězce v novém pomocném sloupci na základě sloupce, který chcete seřadit, postupujte takto:
1. Zadejte tento vzorec:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) do prázdné buňky vedle sloupce s datem, C2například a poté stiskněte Ctrl + Shift + Enter klávesy dohromady a získáte číselnou sekvenci a poté přetáhněte popisovač výplně dolů do buněk, které chcete použít, viz screenshot:
Poznámka: Ve výše uvedeném vzorci: A2: A15 je vaše původní časové období, které chcete automaticky třídit.
2. Poté čísla naformátujte jako formát data kliknutím Krátké rande z obecně rozevírací seznam pod Domů karta, viz screenshot:
3. Pak byla pořadová čísla převedena do formátu data a původní datum bylo také seřazeno, viz screenshot:
4. Od této chvíle, když zadáváte nové datum nebo měníte datum ve sloupci A, datum ve sloupci C bude automaticky seřazeno vzestupně, viz screenshot:
Datum automatického řazení při zadání nebo změně data pomocí kódu VBA
Následující kód VBA vám pomůže automaticky seřadit datum v původním sloupci, když zadáte nové datum nebo změníte datum podle potřeby.
1. Přejděte na list, ve kterém chcete automaticky seřadit datum, když zadáte nebo změníte datum.
2. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do mezery Modul okno, viz screenshot:
Kód VBA: automatické třídění při zadání nebo změně data:
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
Poznámka: Ve výše uvedeném kódu bude zadané datum automaticky tříděno ve sloupci A, můžete změnit A1 a A2 do svých vlastních buněk, jak potřebujete.
3. Od této chvíle, když zadáte datum do sloupce A, bude datum seřazeno vzestupně automaticky.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
