Hvordan viser jeg alle datoer mellem to datoer i Excel?
I nogle tilfælde, hvis du har den specifikke startdato og slutdato, skal du muligvis liste alle datoer mellem disse to givne datoer i Excel. Nu taler denne tutorial om metoderne til at liste alle datoer mellem to datoer i Excel.
Angiv alle datoer mellem to datoer efter formler
Angiv alle datoer mellem to datoer efter VBA
Liste over alle datoer mellem to datoer af Kutools til Excel
Angiv alle datoer mellem to datoer efter formler
Her introducerer jeg formler, der hurtigt kan liste alle datoer mellem to givne datoer til dig i Excel.
1. Skriv start- og slutdatoer i to celler, her skriver jeg dem i celle A1 og A2. Se skærmbillede:
2. Gå derefter til celle C1 for at skrive denne formel = A1 + 1 ind i det, og klik derefter på Indtast nøgle. Se skærmbillede:
3. Skriv derefter denne formel i celle C2 =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) ind i den, og træk derefter autofyldhåndtaget ned til cellerne, indtil der vises en tom celle. Se skærmbilleder:
Derefter kan du se alle datoer mellem to givne datoer er anført i kolonnen.
Bemærk:
I ovenstående formler er A1 startdatoen, A2 er slutdatoen, og C1 er den første dato blandt datointervallet.
Angiv alle datoer mellem to datoer efter VBA
Hvis du er interesseret i makrokode, kan du bruge nedenstående VBA til at liste alle datoer mellem to givne datoer i Excel.
1. Skriv startdatoen og slutdatoen dig i to celler, her skriver jeg celle A1 og B1. Se skærmbillede:
2. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik derefter på indsatte > Moduler og kopier og indsæt under VBA-koden til poppet Moduler vindue.
VBA: Liste over alle datoer mellem to datoer.
Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set OutRng = OutRng.Range("A1")
StartValue = StartRng.Range("A1").Value
EndValue = EndRng.Range("A1").Value
If EndValue - StartValue <= 0 Then
Exit Sub
End If
ColIndex = 0
For i = StartValue To EndValue
OutRng.Offset(ColIndex, 0) = i
ColIndex = ColIndex + 1
Next
End Sub
4. klik Kør or F5 for at køre VBA, og der vises en dialogboks, hvor du kan vælge startdatoen, og klik derefter på OK, vælg derefter slutdatoen i den anden poppedialog. Se skærmbillede:
5. klik OK, vælg derefter en celle for at lægge datoerne ud, og klik derefter på OK. Nu kan du se alle datoer mellem to datoer er anført. Se skærmbilleder:
Bemærk: Listen genereret af denne VBA inkluderer startdato og slutdato.
Liste over alle datoer mellem to datoer af Kutools til Excel
Faktisk, hvis du installerede Kutools til Excel - et praktisk tilføjelsesværktøj, du kan også bruge Indsæt tilfældige data at løse dette problem.
Kutools til Excel, med mere end 300 praktiske Excel-funktioner, forbedrer din arbejdseffektivitet og sparer din arbejdstid. | ||
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Vælg en kolonne, du vil liste datoer mellem to datoer, og klik på Kutools > indsatte > Indsæt tilfældige data. Se skærmbillede:
2. Derefter i Indsæt tilfældige data dialog, klik Dato fanen, og vælg derefter start- og slutdatoer fra Fra , To liste, og husk derefter at kontrollere arbejdsdagen, Weekend , Unikke værdier afkrydsningsfelter. Se skærmbillede:
3. klik Ok for at lukke dialogen og en anden Kutools til Excel dialog vises, skal du bare klikke Ja. Derefter kan du se datoerne mellem startdato og slutdato er angivet. Se skærmbilleder:
4. Nu skal du sortere datolisten i den rækkefølge, du har brug for. Klik på data > Sorter ældste til nyeste. Derefter kan du se datoerne er sorteret fra ældste dato til nyeste dato. Se skærmbilleder:
Med Indsæt tilfældige data værktøj, kan du også indsætte tilfældigt heltal, tilfældig streng og tilfældig tid så videre. Klik her for at vide mere om Indsæt tilfældige data.
Angiv alle datoer mellem to datoer
Relative artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!