Skip to main content

Conas na dátaí uile a liostáil idir dhá dháta in Excel?

I roinnt cásanna, má tá an dáta tosaigh sonrach agus an dáta deiridh agat, b’fhéidir go mbeidh ort na dátaí uile idir an dá dháta áirithe seo a liostáil in Excel. Anois tá an rang teagaisc seo ag caint faoi na modhanna chun na dátaí uile a liostáil idir dhá dháta in Excel.

Liostaigh na dátaí uile idir dhá dháta de réir foirmlí

Déan liosta de na dátaí idir dhá dháta de réir VBA

Déan liosta de na dátaí idir dhá dháta le Kutools le haghaidh Excel smaoineamh maith3


Tugaim isteach foirmlí anseo ar féidir leo gach dáta a liostáil go tapa idir dhá dháta ar leith duit in Excel.

1. Clóscríobh na dátaí tosaigh agus deiridh ina dhá chill, anseo clóscríobhaim iad i gcill A1 agus A2. Féach an pictiúr:
doc-liosta-gach-dátaí-idir-dhá dháta-1

2. Ansin téigh go cill C1 chun an fhoirmle seo a chlóscríobh = A1 + 1 isteach ann, ansin cliceáil Iontráil eochair. Féach an pictiúr:
doc-liosta-gach-dátaí-idir-dhá dháta-2

3. Ansin i gcill C2, clóscríobh an fhoirmle seo =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) isteach ann, ansin tarraing an láimhseáil autofill síos go dtí na cealla go dtí go bhfeictear cill bhán. Féach screenshots:

doc-liosta-gach-dátaí-idir-dhá dháta-3       doc-liosta-gach-dátaí-idir-dhá dháta-4

Ansin is féidir leat a fheiceáil go bhfuil na dátaí uile idir dhá dháta tugtha liostaithe sa cholún.
doc-liosta-gach-dátaí-idir-dhá dháta-5

Nóta:

Sna foirmlí thuas, is é A1 an dáta tosaigh, is é A2 an dáta deiridh, agus is é C1 an chéad dáta i measc an raon dáta.


Má tá suim agat i macra-chód, is féidir leat an VBA thíos a úsáid chun na dátaí go léir a liostáil idir dhá dháta ar leith in Excel.

1. Clóscríobh an dáta tosaigh agus an dáta deiridh tú ina dhá chill, clóscríobhaim anseo i gcill A1 agus B1. Féach an pictiúr:
doc-liosta-gach-dátaí-idir-dhá dháta-6

2. Brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Ansin cliceáil Ionsáigh > Modúil agus cóipeáil agus greamaigh faoi bhun chód VBA chuig an popping Modúil fhuinneog.

VBA: Liostaigh na dátaí uile idir dhá dháta.

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. cliceáil Rith or F5 chun an VBA a rith, agus tagann dialóg amach duit chun an dáta tosaigh a roghnú, ansin cliceáil OK, ansin roghnaigh an dáta deiridh sa dara dialóg popping. Féach an pictiúr:

doc-liosta-gach-dátaí-idir-dhá dháta-7          doc-liosta-gach-dátaí-idir-dhá dháta-8

5. cliceáil OK, ansin roghnaigh cill chun na dátaí a chur amach, agus ansin cliceáil OK. Anois is féidir leat a fheiceáil go bhfuil na dátaí uile idir dhá dháta liostaithe. Féach screenshots:

doc-liosta-gach-dátaí-idir-dhá dháta-9         doc-liosta-gach-dátaí-idir-dhá dháta-10

nótaí: Cuimsíonn an liosta a ghineann an VBA seo an dáta tosaigh agus an dáta deiridh.


I ndáiríre, má shuiteáil tú Kutools le haghaidh Excel - uirlis bhreise áisiúil, is féidir leat an Cuir isteach Sonraí randamacha chun an fhadhb seo a réiteach.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna áisiúla Excel, d’éifeachtúlacht oibre a fheabhsú agus do chuid ama oibre a shábháil.

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Roghnaigh colún ar mhaith leat dátaí a liostáil idir dhá dháta, agus cliceáil Kutools > Ionsáigh > Cuir isteach Sonraí randamacha. Féach an pictiúr:
cuir isteach sonraí randamacha 1

2. Ansin sa Cuir isteach Sonraí randamacha dialóg, cliceáil dáta cluaisín, ansin roghnaigh na dátaí tosaigh agus deiridh ón ó agus To liosta, ansin cuimhnigh seiceáil Workday, Deireadh Seachtaine agus Luachanna Uathúla boscaí seiceála. Féach an pictiúr:
doc-liosta-gach-dátaí-idir-dhá dháta-12

3. cliceáil Ok chun an dialóg a dhúnadh, agus ceann eile Kutools le haghaidh Excel pops dialóg amach, ach cliceáil Is ea. Ansin is féidir leat a fheiceáil go bhfuil na dátaí idir an dáta tosaigh agus an dáta deiridh liostaithe. Féach screenshots:

doc-liosta-gach-dátaí-idir-dhá dháta-13           doc-liosta-gach-dátaí-idir-dhá dháta-14

4. Anois ní mór duit an liosta dáta a shórtáil in ord atá uait. Cliceáil Dáta > Sórtáil is Sine go Nua. Ansin feiceann tú go ndéantar na dátaí a shórtáil ón dáta is sine go dtí an dáta is nua. Féach screenshots:

doc-liosta-gach-dátaí-idir-dhá dháta-15          doc-liosta-gach-dátaí-idir-dhá dháta-16

Le Cuir isteach Sonraí randamacha fóntais, is féidir leat slánuimhir randamach, sreang randamach, agus am randamach mar sin de a chur isteach. Cliceáil anseo chun níos mó eolais a fháil ar Ionsáigh Sonraí randamacha.


Ailt Choibhneasta:


Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to loop this vba code (1000 rows for example) ?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
If you invert this line you can make it work :


OutRng.Offset(ColIndex, 0) = i to OutRng.Offset(0, ColIndex) = i
This comment was minimized by the moderator on the site
Why do not try to transpose the column result to row?
This comment was minimized by the moderator on the site
i tried the VBA code it worked.. Thanks for sharing. Similarly is it possible to pase it along columns/ horizontally?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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...
This comment was minimized by the moderator on the site
Can we use text box instead of in box in macro
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations