كيفية سرد جميع التواريخ بين تاريخين في إكسيل؟
في بعض الحالات ، إذا كان لديك تاريخ البدء المحدد وتاريخ الانتهاء ، فقد تحتاج إلى سرد جميع التواريخ بين هذين التاريخين المحددين في 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
في الواقع ، إذا قمت بتثبيت كوتولس ل إكسيل - أداة إضافة يدوية ، يمكنك أيضًا استخدام ملف أدخل بيانات عشوائية لحل هذه المشكلة.
كوتولس ل إكسيل, مع أكثر من 300 وظائف 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!









