Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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 dobra ideja3


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:
doc-list-vsi-datumi-med-dvema-datumoma-1

2. Nato pojdite na celico C1, da vnesete to formulo = A1 + 1 vanj, nato kliknite Vnesite tipko. Oglejte si posnetek zaslona:
doc-list-vsi-datumi-med-dvema-datumoma-2

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:

doc-list-vsi-datumi-med-dvema-datumoma-3       doc-list-vsi-datumi-med-dvema-datumoma-4

Nato lahko vidite vse datume med dvema datumoma, ki so navedeni v stolpcu.
doc-list-vsi-datumi-med-dvema-datumoma-5

Opomba:

V zgornjih formulah je A1 začetni datum, A2 končni datum in C1 prvi datum med časovnim obdobjem.


Č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:
doc-list-vsi-datumi-med-dvema-datumoma-6

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:

doc-list-vsi-datumi-med-dvema-datumoma-7          doc-list-vsi-datumi-med-dvema-datumoma-8

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:

doc-list-vsi-datumi-med-dvema-datumoma-9         doc-list-vsi-datumi-med-dvema-datumoma-10

Opombe: Seznam, ki ga ustvari ta VBA, vključuje začetni in končni datum.


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:
doc vstavi naključne podatke 1

2. Nato v Vstavite naključne podatke dialog, kliknite Datum , nato na zavihku izberite začetni in končni datum iz in To seznam, nato ne pozabite preveriti Delovnik, vikend in Edinstvene vrednote potrditvena polja. Oglejte si posnetek zaslona:
doc-list-vsi-datumi-med-dvema-datumoma-12

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:

doc-list-vsi-datumi-med-dvema-datumoma-13           doc-list-vsi-datumi-med-dvema-datumoma-14

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:

doc-list-vsi-datumi-med-dvema-datumoma-15          doc-list-vsi-datumi-med-dvema-datumoma-16

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.


Relativni članki:



Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

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 z miško!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Faker · 2 years ago
    How to loop this vba code (1000 rows for example) ?
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Sorry for reply such late, but I do not understand your question, the VBA only for listing dates between a date range, why need to loop the code?
  • To post as a guest, your comment is unpublished.
    NewSP · 3 years ago
    Firat - did you solve your issue? I have exactly the same issue and I cannot get the result in the row instead of the column.
    • To post as a guest, your comment is unpublished.
      Faker · 2 years ago
      If you invert this line you can make it work :


      OutRng.Offset(ColIndex, 0) = i to OutRng.Offset(0, ColIndex) = i
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Why do not try to transpose the column result to row?
  • To post as a guest, your comment is unpublished.
    singaravelu · 3 years ago
    i tried the VBA code it worked.. Thanks for sharing. Similarly is it possible to pase it along columns/ horizontally?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Hello, if you want to list dates in a row horizontally, you just need to use the vba code to list the dates, and copy the results and paste transpose.
  • To post as a guest, your comment is unpublished.
    Firat · 3 years ago
    Hello,

    Thanks for sharing a great code. I would like to ask one question though. I am using this VBA code you shared.

    1) Can I list all the other cells in the same row with the dates?
    2) Can we define the starting date cell and ending date cell and the cell that the new information will be written?

    I am asking these questions because I have 30 rows. Each row has data for different people. Cell G is a starting date and Cell H is an ending date. Other cells contains some information. I would like this to be listed in a new cell as all the dates between these cells. For example (just showing demonstration, so only G and H cells written below-I is where the list appears):

    Row 2 Person A 28/05/2017 05/06/2017 28/05/2017
    Row 3 Person A 28/05/2017 05/06/2017 29/05/2017
    Row 4 Person A 28/05/2017 05/06/2017 30/05/2017
    Row 5 Person A 28/05/2017 05/06/2017 31/05/2017
    Row 6 Person A 28/05/2017 05/06/2017 01/06/2017
    Row 7 Person A 28/05/2017 05/06/2017 02/06/2017
    Row 8 Person A 28/05/2017 05/06/2017 03/06/2017
    Row 9 Person A 28/05/2017 05/06/2017 04/06/2017
    Row 10 Person A 28/05/2017 05/06/2017 05/06/2017
    Row 11 Person B 23/05/2017 31/05/2017 23/05/2017
    Row 12 Person B 23/05/2017 31/05/2017 24/05/2017
    Row 13 Person B 23/05/2017 31/05/2017 25/05/2017
    Row 14 Person B 23/05/2017 31/05/2017 26/05/2017
    and so on...
  • To post as a guest, your comment is unpublished.
    Kamal Kumara · 4 years ago
    Can we use text box instead of in box in macro