كيف يمكنك إدراج جميع التواريخ بين تاريخين في Excel؟
في بعض الحالات، عندما يكون لديك تاريخ بدء وتاريخ انتهاء محدَّدان، قد تحتاج إلى إدراج جميع التواريخ الواقعة بينهما في Excel. يتناول هذا البرنامج التعليمي الآن الطرق المختلفة لإدراج كل التواريخ بين تاريخين في Excel.
إدراج جميع التواريخ بين تاريخين باستخدام الصيغ
إدراج جميع التواريخ بين تاريخين باستخدام Kutools لـ Excel 
إدراج جميع التواريخ بين تاريخين باستخدام VBA
إدراج جميع التواريخ بين تاريخين باستخدام الصيغ
أقدِّم لك هنا صيغًا تُمكِّنك من إدراج جميع التواريخ بين تاريخين معيَّنين بسرعة في Excel.
1. أدخل تاريخ البدء وتاريخ الانتهاء في خليتين—على سبيل المثال، في الخليتين A1 وA2—كما هو موضح في لقطة الشاشة التالية:
2. بعد ذلك، انتقل إلى الخلية C1 وأدخل الصيغة التالية فيها: =A1+1، ثم اضغط على مفتاحEnter. راجع لقطة الشاشة:
3. بعد ذلك، في الخلية C2، أدخل الصيغة التالية: =IF($A$1+ROW(A1)>=$A$2-1,«»,C1+1)، ثم اسحب مقبض التعبئة نزولًا حتى تظهر خلية فارغة. راجع لقطات الشاشة:
بعد ذلك، ستجد أن جميع التواريخ الواقعة بين التاريخين المُدخلَين قد أُدرجت في العمود.
ملاحظة:
في الصيغ السابقة، تمثّل الخلية A1 تاريخ البدء، وتمثّل الخلية A2 تاريخ الانتهاء، بينما تكون الخلية C1 أول تاريخ ضمن نطاق التواريخ.
إدراج جميع التواريخ بين تاريخين باستخدام Kutools لـ Excel
في الواقع، إذا قمت بتثبيتKutools لـ Excel – وهي أداة إضافية مفيدة – فيمكنك أيضًا استخدام أداةإدراج بيانات عشوائيةلحل هذه المشكلة.
بعدالتثبيت المجانيلـ Kutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد العمود الذي تريد إدراج التواريخ فيه بين تاريخين، ثم انقر علىKutools > إدراج > إدراج بيانات عشوائية. راجع لقطة الشاشة:
2. بعد ذلك، في مربع الحوارإدراج بيانات عشوائية، انقر على علامة التبويبالتاريخ، ثم حدد تاريخ البدء من الحقلمنوتاريخ الانتهاء من الحقلإلى. ولا تنسَ تحديد خانات الاختيار الخاصة بـأيام العملوعطلات نهاية الأسبوعوالقيم الفريدة. راجع لقطة الشاشة:
3. انقر علىموافقلإغلاق مربع الحوار، وسيظهر مربع حوار آخر هوKutools لـ Excel، فما عليك سوى النقر علىنعم. بعد ذلك، سترى أن التواريخ بين تاريخ البدء وتاريخ الانتهاء قد تم إدراجها. راجع لقطات الشاشة:
4. الآن، تحتاج إلى ترتيب قائمة التواريخ بالترتيب الذي تريده. انقر علىالبيانات > ترتيب من الأقدم إلى الأحدث. بعد ذلك، سترى أن التواريخ قد رُتِّبت من الأقدم إلى الأحدث. راجع لقطات الشاشة:
باستخدام أداةإدراج بيانات عشوائية، يمكنك أيضًا إدراج أرقام صحيحة عشوائية، ونصوص عشوائية، وأوقات عشوائية، وغيرها.انقر هنا لمعرفة المزيد عن إدراج بيانات عشوائية.
إدراج جميع التواريخ بين تاريخين باستخدام VBA
إذا كنت مهتمًا بكود الماكرو، فاستخدم كود VBA أدناه لإدراج جميع التواريخ بين تاريخين معيَّنين في Excel.
1. أدخل تاريخ البدء وتاريخ الانتهاء في خليتين—على سبيل المثال، في الخليتين A1 وB1—كما هو موضح في لقطة الشاشة التالية:
2. اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
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 Sub4. انقر علىتشغيلأوF5 لتشغيل كود VBA، وسيظهر مربع حوار لتختار فيه تاريخ البدء. بعد ذلك، انقر علىموافق، ثم اختر تاريخ الانتهاء في مربع الحوار الثاني الذي يظهر. راجع لقطة الشاشة:
5. انقر علىموافق، ثم اختر خلية لإدخال التواريخ فيها، وبعد ذلك انقر علىموافق. الآن سترى أن جميع التواريخ بين التاريخين قد أُدرجت بالفعل. راجع لقطات الشاشة:
ملاحظة: القائمة التي يولّدها هذا الكود تشمل تاريخ البدء وتاريخ الانتهاء.
إدراج جميع التواريخ بين تاريخين
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل