Note: The other languages of the website are Google-translated. Back to English

Hogyan rendezhető dátum automatikusan, amikor a dátumot beírják vagy megváltoztatják az Excelben? 

Az Excelben a Fajta funkció segítségével a dátumot növekvő vagy csökkenő sorrendben rendezheti, amire szüksége van. De nem dinamikus, ha rendezte a dátumot, majd új dátumot adott hozzá, akkor újra rendeznie kell. Vannak-e jó és gyors módszerek a dátum automatikus rendezésére, amikor új dátumot ad meg minden alkalommal egy munkalapra?

Automatikus dátum rendezés, amikor a dátumot képlettel adják meg vagy módosítják

Automatikus dátum rendezés a dátum VBA kóddal történő megadásakor vagy módosításakor


nyíl kék jobb buborék Automatikus dátum rendezés, amikor a dátumot képlettel adják meg vagy módosítják

Például az A oszlop eredeti dátuma, a következő képlet segíthet a dátum vagy más szöveges karakterláncok automatikus rendezésében egy új segédoszlopban a rendezni kívánt oszlop alapján, kérjük, tegye a következőket:

1. Írja be ezt a képletet:

=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) egy üres cellába a dátum oszlop mellett, C2például, majd nyomja meg a gombot Ctrl + Shift + Enter gombokat együtt, és kap egy számsort, majd húzza lefelé a kitöltő fogantyút a használni kívánt cellákhoz, lásd a képernyőképet:

Megjegyzések: A fenti képletben: A2: A15 az eredeti dátumtartomány, amelyet automatikusan rendezni szeretne.

doc automatikus válogatás dátum szerint

2. Ezután kattintson a gombra a számokat dátumformátumként Rövid dátum tól általános legördülő lista a FŐOLDAL fül, lásd a képernyőképet:

doc automatikus válogatás dátum szerint

3. Ezután a sorszámokat konvertálták dátumformátumra, és az eredeti dátumot is rendezték, lásd a képernyőképet:

doc automatikus válogatás dátum szerint

4. Mostantól, amikor új dátumot ad meg, vagy megváltoztatja a dátumot az A oszlopban, a C oszlop dátuma automatikusan növekvő sorrendbe kerül, lásd a képernyőképet:

doc automatikus válogatás dátum szerint


nyíl kék jobb buborék Automatikus dátum rendezés a dátum VBA kóddal történő megadásakor vagy módosításakor

A következő VBA-kód segíthet a dátum automatikus rendezésében az eredeti oszlopban, amikor új dátumot ad meg, vagy szükség szerint módosítja a dátumot.

1. Nyissa meg azt a munkalapot, amelyben a dátumot automatikusan rendezni szeretné, amikor beírja vagy módosítja a dátumot.

2. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üresbe Modulok ablak, lásd a képernyőképet:

VBA kód: automatikus rendezés a dátum megadásakor vagy módosításakor:

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

doc automatikus válogatás dátum szerint

Megjegyzések: A fenti kódban a megadott dátum automatikus rendezés lesz az A oszlopban, módosíthatja A1 és a A2 saját sejtjeihez, amire szüksége van.

3. Mostantól kezdve, amikor beírja a dátumot az A oszlopba, a dátum automatikusan növekvő sorrendbe kerül.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (15)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Elfelejtette megemlíteni, hogy a képlet tömb, és meg kell adnia a ctrl+Shift+ enter billentyűkombinációt. Szerencsére volt képernyőképed, különben az oldalad a kibertér pazarlása lenne
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi van akkor, ha ismétlődő dátum van a listában? És azt akarom, hogy mindkét szám megjelenjen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Ryan,

A dátum ismétlődőkkel való rendezéséhez alkalmazza a következő képletet:

=IFERROR(INDEX($A$2:$A$11,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$11,"<="&$A$2:$A$11),0)),IF(ROWS($A$2:A2)<ROWS($A$2:$A$11),B3,""))

Ne felejtse el lenyomni a Shift + Ctrl + Enter billentyűket.

Remélem tud segíteni, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szuper :) Jól működik
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan tudom elvégezni ugyanezt a rendezési számítást, de a legújabb dátumtól a legrégebbiig? Jelenleg a legrégebbitől a legújabbig. A < jel megfordítása nem elég, és ezen túlmenően nincs elég erős megértésem arról, hogy mit csinál. Azt is gondolom, hogy az Excel automatikusan működik, ami nehézségeket okoz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Bo,

A dátum automatikus rendezéséhez a legújabbról a legrégebbire, csak módosítania kell a <= értéket >= értékre a fenti képletben az alábbiak szerint:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,">="&$A$2:$A$15),0))
A képlet beillesztése után ne felejtse el lenyomni a Ctrl + Shift + Enter billentyűket a helyes eredmény eléréséhez.
Kérjük, próbálja ki.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az ismétlődő dátumok mellett van mód arra is, hogy a rendezés során több oszlopnyi adatot is tartalmazzon? Több oszlopot kell tartalmaznom, és mindegyiket a lejárati dátumokkal együtt kell rendeznem.
A weboldal moderátora ezt a megjegyzést minimalizálta
Készítettem egy csekkfüzet-regisztert, és működik, de szeretném kitalálni, hogyan állítsam be a bejegyzéseimet, hogy dátum szerinti sorrendbe kerüljenek. Bármilyen segítséget szívesen vennénk. Még tanulok excelt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy speciális képlet a cellák megtartására a rendezett dátum után? Jó lenne dátum szerint rendezni, de a teljes információsort megtartani. Bármilyen segítséget nagyra értékelnénk.
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA kóddal kimásoltam és beillesztettem a fentieket, de szeretném, ha az F oszlopban lévő dátumok lennének azok az értékek, amelyek alapján az adatok rendeződnek. Módosítottam a tartomány értékeit F2-re és F3500-ra (a táblázat mérete, ahol az 1. sor a címeket tartalmazza), de továbbra is az A oszlopban lévő dátumok szerint rendeződik. Tudna valaki segíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Ross!
Amikor a kódot az F oszlopra alkalmazza, módosítania kell néhány hivatkozást az Ön igényei szerint, az alábbi kód szerint:
Private Sub Worksheet_Change (ByVal Target mint Range)
'Frissítés által Extendoffice 20160606
On Error Resume Next
Ha az Application.Intersect(Cél, Alkalmazás.Oszlopok(6)) semmi, akkor lépjen ki az alból
Ha Target.Count > 1, akkor lépjen ki a Sub
Tartomány("F1").Sort Key1:=Tartomány("F2"), Sorrend1:=xlNövekvő, Fejléc:=xlIgen, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a VBA kód tiszta arany! Köszönöm! :-)
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello! Mi van akkor, ha ezt több oszlopra szeretném tenni, vagy akár egy új kezdőpontot szeretnék ugyanabban az oszlopban? Csak csináljak egy kis szünetet, és másoljam újra a VBA kódot ugyanabban az ablakban?
Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló, ez egy nagyszerű eszköz. köszönöm. Hogyan alkalmazhatom ezt több oszlopra ugyanazon a lapon? Alkalmazhatom a dátum szerinti rendezés újraindítására ugyanazon oszlop új cellájában? Újra beillesztem a VBA kódot ugyanabba az ablakba?
Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Noname9, hogy vagy? A cél elérése VBA kód használatával nem elérhető. De tudom, hogyan kell képleteket használni a trükkhöz. Tegyük fel, hogy van két dátumoszlopunk, mondjuk A2:B7. Hogyan lehet ezeket a dátumokat új oszlopba rendezni? Kérjük, tegye a következőket.
Először is össze kell kapcsolnunk a két dátumoszlopot egy oszlopba. Másolja és illessze be a képletet =INDEX($A$2:$B$7,INT((ROWS(D$2:D2)-1)/2)+1,MOD(ROWS(D$2:D2)-1,2)+ 1) a D2 cellába. És húzza le a kitöltő fogantyút az összes dátum kombinálásához. Lásd az 1. képernyőképet.
Ezután rendezzük a kombinált dátumokat. Másolja és illessze be a képletet =INDEX($D$2:$D$13,MATCH(ROWS($D$2:D2),COUNTIF($D$2:$D$13,"<="&$D$2:$D$13) ,0)) F2-be. És húzza le a kitöltő fogantyút az összes dátum rendezéséhez. Lásd a 2. képernyőképet.
Remélem segíteni fog. Szép napot kívánok. Üdvözlettel, Mandy
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi