كيفية سرد جميع التواريخ بين تاريخين في إكسيل؟
في بعض الحالات ، إذا كان لديك تاريخ البدء المحدد وتاريخ الانتهاء ، فقد تحتاج إلى سرد جميع التواريخ بين هذين التاريخين المحددين في 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. الآن أنت بحاجة إلى فرز قائمة التاريخ بالترتيب الذي تحتاجه. انقر البيانات > فرز الأقدم إلى الأحدث. ثم يمكنك مشاهدة التواريخ مصنفة من التاريخ الأقدم إلى التاريخ الأحدث. انظر لقطات الشاشة:
بدافع أدخل بيانات عشوائية الأداة المساعدة ، يمكنك أيضًا إدخال عدد صحيح عشوائي وسلسلة عشوائية ووقت عشوائي وما إلى ذلك. انقر هنا لمعرفة المزيد عن إدراج بيانات عشوائية.
قائمة جميع التواريخ بين تاريخين
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!