Kako našteti vse datume med dvema datumoma v Excelu?
Če imate v nekaterih primerih določen začetni in končni datum, boste morda morali v Excelu navesti vse datume med tema datumoma. Zdaj ta vadnica govori o metodah za seznam vseh datumov med dvema datumoma v Excelu.
Navedite vse datume med dvema datumoma po formulah
Seznam vseh datumov med dvema datumoma po VBA
Seznam vseh datumov med dvema datumoma Kutools za Excel
Navedite vse datume med dvema datumoma po formulah
Tukaj predstavljam formule, ki lahko v Excelu hitro navedejo vse datume med dvema datumoma.
1. Začetni in končni datum vtipkajte v dve celici, tukaj jih vtipkam v celice A1 in A2. Oglejte si posnetek zaslona:
2. Nato pojdite na celico C1, da vnesete to formulo = A1 + 1 vanj, nato kliknite Vnesite tipko. Oglejte si posnetek zaslona:
3. Nato v celico C2 vnesite to formulo =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) vanj, nato povlecite ročico za samodejno izpolnjevanje navzdol do celic, dokler se ne prikaže prazna celica. Oglejte si posnetke zaslona:
Nato lahko vidite vse datume med dvema datumoma, ki so navedeni v stolpcu.
Opomba:
V zgornjih formulah je A1 začetni datum, A2 končni datum in C1 prvi datum med časovnim obdobjem.
Seznam vseh datumov med dvema datumoma po VBA
Če vas zanima koda makra, lahko v spodnjem VBA navedete vse datume med dvema datumoma v Excelu.
1. Začetni in končni datum vnesite v dve celici, tu vtipkam celici A1 in B1. Oglejte si posnetek zaslona:
2. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
3. Nato kliknite Vstavi > Moduli ter kopirajte in prilepite spodnjo kodo VBA v pojavno okno Moduli okno.
VBA: navedite vse datume med dvema datumoma.
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 Run or F5 za zagon VBA in odpre se pogovorno okno za izbiro začetnega datuma, nato kliknite OK, nato izberite končni datum v drugem pogovornem oknu. Oglejte si posnetek zaslona:
5. klik OK, nato izberite celico, v kateri bodo navedeni datumi, in kliknite OK. Zdaj lahko vidite, da so navedeni vsi datumi med dvema datumoma. Oglejte si posnetke zaslona:
Opombe: Seznam, ki ga ustvari ta VBA, vključuje začetni in končni datum.
Seznam vseh datumov med dvema datumoma Kutools za Excel
Pravzaprav, če ste namestili Kutools za Excel - priročno orodje za dodajanje, lahko uporabite tudi Vstavite naključne podatke rešiti ta problem.
Kutools za Excel, z več kot 300 priročne funkcije Excel, izboljšajo vašo delovno učinkovitost in prihranijo vaš delovni čas. | ||
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. Izberite stolpec, v katerega želite dati datume med dvema datumoma, in kliknite Kutools > Vstavi > Vstavite naključne podatke. Oglejte si posnetek zaslona:
2. Nato v Vstavite naključne podatke dialog, kliknite Datum , nato na zavihku izberite začetni in končni datum od in To seznam, nato ne pozabite preveriti Delovnik, vikend in Edinstvene vrednote potrditvena polja. Oglejte si posnetek zaslona:
3. klik Ok , da zaprete pogovorno okno, in drugo Kutools za Excel pokaže se pogovorno okno, samo kliknite Da. Nato lahko vidite datume med začetnim in končnim datumom. Oglejte si posnetke zaslona:
4. Zdaj morate seznam datumov razvrstiti v vrstnem redu, ki ga potrebujete. Kliknite datum > Razvrsti od najstarejšega do najnovejšega. Nato lahko vidite, da so datumi razvrščeni od najstarejšega do najnovejšega datuma. Oglejte si posnetke zaslona:
z Vstavite naključne podatke Pripomoček lahko vstavite tudi naključno celo število, naključni niz in naključni čas itd. Kliknite tukaj, če želite izvedeti več o vstavljanju naključnih podatkov.
Naštej vse datume med dvema datumoma
Relativni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!