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

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

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

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

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

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

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

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

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

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

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

ملاحظة:

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

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

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

1. اكتب تاريخ البدء وتاريخ الانتهاء في خليتين ، وهنا اكتب في الخلية A1 و B1. انظر لقطة الشاشة:

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، ثم حدد تاريخ الانتهاء في مربع الحوار الثاني. انظر لقطة الشاشة:

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

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

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

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

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

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

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

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

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

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

  قائمة جميع التواريخ بين تاريخين

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

• قم بإنشاء قائمة ديناميكية بأسماء أوراق العمل

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...