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

كيفية سرد جميع التواريخ بين تاريخين في إكسيل؟

في بعض الحالات ، إذا كان لديك تاريخ البدء المحدد وتاريخ الانتهاء ، فقد تحتاج إلى سرد جميع التواريخ بين هذين التاريخين المحددين في Excel. يتحدث هذا البرنامج التعليمي الآن عن طرق سرد جميع التواريخ بين تاريخين في Excel.

سرد كافة التواريخ بين تاريخين بواسطة الصيغ

سرد كافة التواريخ بين تاريخين بواسطة VBA

قائمة جميع التواريخ بين تاريخين بواسطة Kutools for Excel فكرة جيدة 3


أقدم هنا صيغًا يمكنها سرد جميع التواريخ بسرعة بين تاريخين محددين في Excel.

1. اكتب تاريخي البدء والانتهاء في خليتين ، وهنا أكتبهما في الخلية A1 و A2. انظر لقطة الشاشة:
قائمة المستندات - جميع التواريخ - بين تاريخين - 1

2. ثم انتقل إلى الخلية C1 لكتابة هذه الصيغة = A1 + 1 في ذلك ، ثم انقر فوق أدخل مفتاح. انظر لقطة الشاشة:
قائمة المستندات - جميع التواريخ - بين تاريخين - 2

3. ثم في الخلية C2 ، اكتب هذه الصيغة =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) بداخلها ، ثم اسحب مقبض الملء التلقائي لأسفل إلى الخلايا حتى تظهر خلية فارغة. انظر لقطات الشاشة:

قائمة المستندات - جميع التواريخ - بين تاريخين - 3       قائمة المستندات - جميع التواريخ - بين تاريخين - 4

ثم يمكنك رؤية جميع التواريخ بين تاريخين محددين مدرجة في العمود.
قائمة المستندات - جميع التواريخ - بين تاريخين - 5

ملاحظة:

في الصيغ أعلاه ، A1 هو تاريخ البدء ، و A2 هو تاريخ الانتهاء ، و C1 هو التاريخ الأول بين نطاق التاريخ.


إذا كنت مهتمًا برمز الماكرو ، فيمكنك استخدام VBA أدناه لسرد جميع التواريخ بين تاريخين معينين في Excel.

1. اكتب تاريخ البدء وتاريخ الانتهاء في خليتين ، وهنا اكتب في الخلية A1 و B1. انظر لقطة الشاشة:
قائمة المستندات - جميع التواريخ - بين تاريخين - 6

2. صحافة Alt + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. ثم اضغط إدراج > وحدة وانسخ والصق أدناه رمز 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، ثم حدد تاريخ الانتهاء في مربع الحوار الثاني. انظر لقطة الشاشة:

قائمة المستندات - جميع التواريخ - بين تاريخين - 7          قائمة المستندات - جميع التواريخ - بين تاريخين - 8

5. انقر OK، ثم حدد خلية لإخراج التواريخ ، ثم انقر فوق OK. يمكنك الآن رؤية جميع التواريخ بين تاريخين مدرجة. انظر لقطات الشاشة:

قائمة المستندات - جميع التواريخ - بين تاريخين - 9         قائمة المستندات - جميع التواريخ - بين تاريخين - 10

ملاحظة: تتضمن القائمة التي تم إنشاؤها بواسطة VBA تاريخ البدء وتاريخ الانتهاء.


في الواقع ، إذا قمت بتثبيت كوتولس ل إكسيل - أداة إضافة يدوية ، يمكنك أيضًا استخدام ملف أدخل بيانات عشوائية لحل هذه المشكلة.

كوتولس ل إكسيل, مع أكثر من 300 وظائف Excel سهلة الاستخدام ، وتعزز كفاءة عملك وتوفر وقت عملك.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد العمود الذي تريد سرد التواريخ بين تاريخين ، وانقر فوق كوتولس > إدراج > أدخل بيانات عشوائية. انظر لقطة الشاشة:
doc أدخل بيانات عشوائية 1

2. ثم في أدخل بيانات عشوائية الحوار، انقر فوق التاريخ علامة التبويب ، ثم حدد تاريخي البدء والانتهاء من ملف من و Tقائمة س ، ثم تذكر للتحقق ساعات العمل, عطلة نهاية الاسبوع و قيم فريدة مربعات الاختيار. انظر لقطة الشاشة:
قائمة المستندات - جميع التواريخ - بين تاريخين - 12

3. انقر Ok لإغلاق الحوار ، وآخر كوتولس ل إكسيل ينبثق الحوار ، فقط انقر نعم. ثم يمكنك رؤية التواريخ بين تاريخ البدء وتاريخ الانتهاء مدرجة. انظر لقطات الشاشة:

قائمة المستندات - جميع التواريخ - بين تاريخين - 13           قائمة المستندات - جميع التواريخ - بين تاريخين - 14

4. الآن أنت بحاجة إلى فرز قائمة التاريخ بالترتيب الذي تحتاجه. انقر البيانات > فرز الأقدم إلى الأحدث. ثم يمكنك مشاهدة التواريخ مصنفة من التاريخ الأقدم إلى التاريخ الأحدث. انظر لقطات الشاشة:

قائمة المستندات - جميع التواريخ - بين تاريخين - 15          قائمة المستندات - جميع التواريخ - بين تاريخين - 16

بإضافة إلى أدخل بيانات عشوائية الأداة المساعدة ، يمكنك أيضًا إدخال عدد صحيح عشوائي وسلسلة عشوائية ووقت عشوائي وما إلى ذلك. انقر هنا لمعرفة المزيد عن إدراج بيانات عشوائية.


مقالات ذات صلة:



أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا استخدام مربع النص بدلاً من المربع في الماكرو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا لمشاركتك رمزًا رائعًا. أود أن أسأل سؤال واحد بالرغم من ذلك. أنا أستخدم رمز VBA الذي شاركته. 1) هل يمكنني سرد ​​جميع الخلايا الأخرى في نفس الصف مع التواريخ؟ 2) هل يمكننا تحديد خلية تاريخ البدء وخلية تاريخ الانتهاء والخلية التي ستكتب المعلومات الجديدة؟ أطرح هذه الأسئلة لأن لدي 30 صفًا. يحتوي كل صف على بيانات لأشخاص مختلفين. الخلية G هي تاريخ بدء والخلية H هي تاريخ انتهاء. تحتوي الخلايا الأخرى على بعض المعلومات. أود أن يتم إدراج هذا في خلية جديدة مثل جميع التواريخ بين هذه الخلايا. على سبيل المثال (عرض مظاهرة فقط ، لذلك فقط الخلايا G و H المكتوبة أدناه - I هو المكان الذي تظهر فيه القائمة): الصف 2 شخص أ 28/05/2017 05/06/2017 28/05/2017 الصف 3 شخص أ 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/2017 الصف 9 شخص أ 28/05/2017 05/06/2017 04/06/2017 صف 10 شخص أ 28/05/2017 05/06/2017 05/06/2017 صف 11 شخص ب 23 / 05/2017 31/05/2017 23/05/2017 الصف 12 شخص B 23/05/2017 31/05/2017 24/05/2017 الصف 13 شخص B 23/05/2017 31/05/2017 25/05 / 2017 صف 14 شخص ب 23/05/2017 31/05/2017 26/05/2017 وهكذا ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربت رمز VBA الذي نجح .. شكرًا للمشاركة. وبالمثل ، هل من الممكن وضعه على طول أعمدة / أفقيًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، إذا كنت تريد سرد التواريخ في صف أفقيًا ، فأنت تحتاج فقط إلى استخدام رمز vba لسرد التواريخ ونسخ النتائج ولصق التحويل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فرات - هل حللت مشكلتك؟ لدي نفس المشكلة بالضبط ولا يمكنني الحصول على النتيجة في الصف بدلاً من العمود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لماذا لا تحاول تحويل نتيجة العمود إلى صف؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا قلبت هذا الخط ، يمكنك جعله يعمل:


OutRng.Offset (ColIndex، 0) = i to OutRng.Offset (0، ColIndex) = i
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكن تكرار كود vba (1000 صف على سبيل المثال)؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف للرد المتأخر ، لكنني لا أفهم سؤالك ، فبا فقط لسرد التواريخ بين نطاق زمني ، لماذا تحتاج إلى تكرار الكود?
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL