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

Ինչպե՞ս Excel- ում թվարկել բոլոր ամսաթվերը երկու ամսաթվերի միջև:

Որոշ դեպքերում, եթե դուք ունեք կոնկրետ սկզբի և ավարտի ամսաթիվը, գուցե անհրաժեշտ լինի Excel- ում թվարկել այս երկու տվյալ ամսաթվերի միջև եղած բոլոր ամսաթվերը: Այժմ այս ձեռնարկը խոսում է Excel- ում երկու ամսաթվերի միջև բոլոր ամսաթվերը ցուցակագրելու մեթոդների մասին:

Նշեք բոլոր ամսաթվերը երկու ամսաթվերի միջև ըստ բանաձևերի

Նշեք բոլոր ամսաթվերը երկու ամսաթվերի միջև VBA- ի կողմից

Excel- ի համար Kutools- ի կողմից թվարկեք բոլոր ամսաթվերը երկու ամսաթվերի միջև լավ գաղափար 3


Այստեղ ես ներկայացնում եմ բանաձևեր, որոնք կարող են արագ թվարկել Excel- ում ձեզ համար տրված երկու ամսաթվերի բոլոր ամսաթվերը:

1. Մուտքագրեք սկզբի և ավարտի ամսաթվերը երկու բջիջների մեջ, այստեղ ես դրանք մուտքագրում եմ A1 և A2 բջիջների: Տեսեք,
doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -1

2. Դրանից հետո անցեք C1 բջիջ ՝ այս բանաձևը մուտքագրելու համար = A1 + 1 մեջը, ապա կտտացրեք Մտնել բանալի. Տեսեք,
doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -2

3. Դրանից հետո C2 բջիջում մուտքագրեք այս բանաձևը =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) մեջը, ապա ինքնալրացման բռնիչը ներքև քաշեք դեպի բջիջները մինչև դատարկ բջիջ հայտնվի: Տեսեք սքրինշոթեր.

doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -3       doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -4

Ապա դուք կարող եք տեսնել, որ սյունակում նշված են երկու ամսաթվերի միջև նշված բոլոր ամսաթվերը:
doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -5

Նշում:

Վերոնշյալ բանաձեւերում A1- ը մեկնարկի ամսաթիվն է, A2- ը `ավարտի ամսաթիվը, իսկ C1- ը` ամսաթվերի միջակայքում առաջին ամսաթիվը:


Եթե ​​դուք հետաքրքրված եք մակրո կոդով, կարող եք օգտագործել ստորև նշված VBA- ն Excel- ում երկու տվյալ ամսաթվերի միջև բոլոր ամսաթվերը ցուցակելու համար:

1. Մուտքագրեք սկզբի և ավարտի ամսաթվի ձեզ երկու բջիջ: Այստեղ ես մուտքագրում եմ A1 և B1 բջիջները: Տեսեք,
doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -6

2. Մամուլ Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներ և պատճենեք և կպցրեք VBA կոդից ներքև ՝ դուրս գալու համար Մոդուլներ պատուհան.

VBA. Նշեք բոլոր ամսաթվերը երկու ամսաթվերի միջև:

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: սեղմեք Վազում or F5 գործարկել VBA- ն, և երկխոսություն է դուրս գալիս, որպեսզի ընտրեք մեկնարկի ամսաթիվը, ապա կտտացրեք OK, ապա ընտրեք ավարտի ամսաթիվը երկրորդ ելնող երկխոսության մեջ: Տեսեք,

doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -7          doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -8

5: սեղմեք OK, ապա ընտրեք բջիջ ՝ ամսաթվերը պարզելու համար, և այնուհետև կտտացրեք OK, Այժմ դուք կարող եք տեսնել, որ նշված են երկու ամսաթվերի միջև նշված բոլոր ամսաթվերը: Տեսեք սքրինշոթեր.

doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -9         doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -10

ՆշումՍույն VBA- ի կողմից ստեղծված ցուցակը ներառում է սկզբի և ավարտի ամսաթիվը:


Իրականում, եթե տեղադրել եք Excel- ի համար նախատեսված գործիքներ - հարմար գործիք ավելացնելով, կարող եք նաև օգտագործել այն Տեղադրեք պատահական տվյալներ լուծել այս խնդիրը:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար Excel գործառույթներ, բարձրացնել ձեր աշխատանքային արդյունավետությունը և խնայել ձեր աշխատանքային ժամանակը:

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ընտրեք սյունակ, որը ցանկանում եք թվարկել ամսաթվերը երկու ամսաթվերի միջև, և կտտացրեք Կուտոլս > Տեղադրել > Տեղադրեք պատահական տվյալներ, Տեսեք,
փաստաթուղթ տեղադրեք պատահական տվյալներ 1

2. Հետո Տեղադրեք պատահական տվյալներ երկխոսություն, սեղմեք Ամսաթիվ էջանիշը, ապա ընտրեք մեկնարկի և ավարտի ամսաթվերը ստեղնաշարից From և To ցուցակ, ապա հիշեք, որ ստուգեք Աշխատանքային օր, Ազատծ ոչ աշխատանքային ժամանակ և Եզակի արժեքներ վանդակներ: Տեսեք,
doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -12

3: սեղմեք Ok փակել երկխոսությունը և մեկ այլ Excel- ի համար նախատեսված գործիքներ երկխոսությունը դուրս է գալիս, պարզապես կտտացրեք այո, Դրանից հետո դուք կարող եք տեսնել, թե ինչպես են նշված ամսաթվերը սկզբի և ավարտի ամսաթվերի միջև: Տեսեք սքրինշոթեր.

doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -13           doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -14

4. Այժմ դուք պետք է տեսակավորեք ամսաթվերի ցանկը ըստ ձեզ անհրաժեշտ պատվերի: Սեղմել Ամսաթիվ > Դասավորել ամենահինը նորից, Դրանից հետո կտեսնեք, որ ամսաթվերը դասավորված են ամենահին ամսաթվից մինչև նոր ամսաթիվ: Տեսեք սքրինշոթեր.

doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -15          doc- ցուցակ-բոլոր-ամսաթվերը-երկու-ամսաթվերի միջեւ -16

հետ Տեղադրեք պատահական տվյալներ օգտակար, դուք կարող եք նաև տեղադրել պատահական ամբողջ թիվ, պատահական տող և պատահական ժամանակ և այլն: Սեղմեք այստեղ ՝ Պատահական տվյալների տեղադրման մասին ավելին իմանալու համար:


Հարաբերական հոդվածներ:



Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ ենք մակրոում in box-ի փոխարեն օգտագործել տեքստային տուփ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Շնորհակալություն հիանալի կոդով կիսվելու համար: Այնուամենայնիվ, ես կցանկանայի մեկ հարց տալ. Ես օգտագործում եմ այս VBA կոդը, որը դուք կիսել եք: 1) Կարո՞ղ եմ թվարկել բոլոր մյուս բջիջները նույն շարքում ամսաթվերով: 2) Կարո՞ղ ենք սահմանել մեկնարկային ամսաթվի բջիջը և ավարտի ամսաթվի բջիջը և այն բջիջը, որտեղ գրվելու է նոր տեղեկատվությունը: Այս հարցերը տալիս եմ, քանի որ ունեմ 30 տող։ Յուրաքանչյուր տող ունի տվյալներ տարբեր մարդկանց համար: G բջիջը մեկնարկային ամսաթիվ է, իսկ H բջիջը ավարտի ամսաթիվ է: Այլ բջիջները պարունակում են որոշակի տեղեկատվություն: Ես կցանկանայի, որ սա թվարկվեր նոր բջիջում՝ որպես այս բջիջների միջև եղած բոլոր ամսաթվերը: Օրինակ (ուղղակի ցուցադրում է, այնպես որ ստորև գրված են միայն G և H բջիջները-I-ն այնտեղ է, որտեղ հայտնվում է ցուցակը): Տող 2 Անձ A 28/05/2017 05/06/2017 28/05/2017 Տող 3 Անձ A 28/05 /2017 05/06/2017 29/05/2017 Շարք 4 Անձ Ա 28/05/2017 05/06/2017 30/05/2017 Շարք 5 Անձ Ա 28/05/2017 05/06/2017 31/05/2017 Շարք 6 Անձ Ա 28/05/2017 05/06/2017 01/06/2017 Շարք 7 Անձ Ա 28/05/2017 05/06/2017 02/06/2017 Շարք 8 Անձ Ա 28/05/2017 /05 06/2017/03 Շարք 06 Անձ A 2017/9/28 05/2017/05 06/2017/04 Շարք 06 Անձ A 2017/10/28 05/2017/05 06/2017/05 06/2017/11 Person B23 /05/2017 31/05/2017 23/05/2017 տող 12 անձ Բ 23/05/2017 31/05/2017 24/05/2017 13/23/05 տող 2017 անձ Բ 31/05/2017 25/05 2017/14 /23 Տող 05 Անձ Բ 2017/31/05 2017/26/05 2017/XNUMX/XNUMX եւ այլն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի VBA կոդը, այն աշխատեց: Շնորհակալություն կիսվելու համար: Նմանապես հնարավո՞ր է այն անցկացնել սյունակների երկայնքով/ հորիզոնական:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, եթե ցանկանում եք թվարկել ամսաթվերը անընդմեջ հորիզոնական, ապա պարզապես անհրաժեշտ է օգտագործել vba կոդը՝ թվարկելու ամսաթվերը և պատճենեք արդյունքները և տեղադրեք տրանսպոսը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ֆիրատ - Դուք ձեր հարցը լուծե՞լ եք: Ես ճիշտ նույն խնդիրն ունեմ, և ես չեմ կարող արդյունքը ստանալ տողում սյունակի փոխարեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչու՞ չփորձել սյունակի արդյունքը տող տեղափոխել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​դուք շրջեք այս տողը, կարող եք այն աշխատեցնել.


OutRng.Offset(ColIndex, 0) = i-ից OutRng.Offset(0, ColIndex) = i
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս պտտել այս vba կոդը (օրինակ՝ 1000 տող):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք այդքան ուշ պատասխանելու համար, բայց ես չեմ հասկանում ձեր հարցը, VBA-ն միայն ամսաթվերի միջակայքի միջև ընկած ամսաթվերի ցուցակագրման համար է, ինչո՞ւ պետք է պտտել կոդը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից