كيف يمكنك إدراج جميع أيام الشهر المعيّن كتواريخ في Excel؟
عند العمل مع بيانات تعتمد على التواريخ في Excel، ستحتاج غالبًا إلى إنشاء قائمة تحتوي على جميع أيام شهرٍ معين—سواءً لأغراض التخطيط، الجدولة، إعداد التقارير، أو التتبُّع. وعلى الرغم من أن ميزة «ملء السلسلة» الشهيرة في Excel تُعد خيارًا مناسبًا لهذه المهمة، إلا أن ضمان توقُّف القائمة عند آخر يومٍ في الشهر قد يشكّل تحديًا، خاصةً مع اختلاف عدد الأيام بين الشهور. إذا كنت تبحث عن طريقة دقيقة وآلية لإنشاء قائمة تتوافق تمامًا مع عدد أيام أي شهر تحدده، فهذا المقال يقدم لك مجموعة من الحلول العملية التي تناسب مختلف مستويات الخبرة في Excel والسيناريوهات المتنوعة.
إدراج جميع الأيام كتواريخ في شهر معيّن باستخدام صيغة
رمز VBA - إنشاء جميع تواريخ الشهر تلقائيًا
الطريقة المضمنة في Excel - ميزة ملء السلسلة
إدراج جميع الأيام كتواريخ في شهر معيّن باستخدام صيغة
الصيغة هي حلٌ مرن قائم على الخلايا لأي شخص يحتاج إلى إدراج جميع تواريخ شهرٍ ما. وتتيح لك هذه الطريقة إنشاء التواريخ وملءها تلقائيًا دون الحاجة إلى عدّ الأيام يدويًّا، مما يجعلها مثالية للمهام البسيطة والقابلة للتكرار—خاصةً عند إعداد أوراق عمل متعددة لأشهر مختلفة. يُرجى اتباع الخطوات التالية:
1. ابدأ بكتابة أول يوم من الشهر المطلوب في خلية فارغة. على سبيل المثال، أدخل2016/7/1 في الخليةA2. ويمكنك استخدام الشهر والسنة المستهدفين حسب الحاجة.
2. انقر على الخلية الموجودة مباشرةً أسفل تاريخ البدء الخاص بك (هنا، الخلية)A3). أدخل هذه الصيغة، ثم اضغطEnter:
=IF(A2=«»,"",IF(MONTH(A2+1)<>MONTH(A2),"",A2+1))
تتحقّق هذه الصيغة مما إذا كان يجب تمديد التاريخ، وستبقي الخلية فارغة بمجرد أن تتجاوز التواريخ الشهر الذي بدأت به—حتى لو سحبتها لما بعد نهاية الشهر، فلن تُظهر أي تواريخ إضافية.
3. بعد ذلك، تأكد من أن خلية الناتج تعرض بالتنسيق تنسيق التاريخ. ابحث عن الخلية التي أدخلت فيها الصيغة للتو، ثم انتقل إلىالصفحة الرئيسية > تنسيق الأرقامالقائمة المنسدلة > التاريخ القصير. هذه الخطوة مهمة—فإذا كانت الخلية بتنسيق عام أو رقمي، فقد ترى رقمًا تسلسليًا فقط بدلًا من التاريخ الفعلي.
4. مع بقاء خلية الصيغة محددة، اسحب مقبض الملء (المربع الصغير في الزاوية السفلية اليمنى للخلية) لأسفل، واستمر في السحب لما بعد العدد المتوقع من أيام الشهر—فعلى سبيل المثال، إذا كان الشهر يوليو، يمكنك سحبه بأمان حتى 31 صفًا على الأقل. ومهما كانت المسافة التي تسحبها، فسيتم ملء الخلايا بالتواريخ الخاصة بالشهر المحدد فقط، دون التمدد إلى الشهر التالي.
رمز VBA - إنشاء جميع تواريخ شهر معيّن تلقائيًا
للمستخدمين الراغبين في تجنب إدخال الصيغ يدويًّا—خاصةً عند إنشاء قوائم تواريخ بشكل متكرر أو عبر أوراق عمل متعددة—يمكن لماكرو VBA بسيط أن يؤتمت هذه المهمة بسلاسة. ويُعد هذا الحل مثاليًّا لإنشاء سلسلة تواريخ قابلة للتخصيص بنقرات قليلة فقط. فباستخدام VBA، يمكنك طلب تحديد الشهر والسنة المطلوبين، ليتولى الكود بعد ذلك إنشاء جميع التواريخ ذات الصلة تلقائيًّا وبسرعة فائقة.
1. انقرأدوات المطور > Visual Basic لفتح محررMicrosoft Visual Basic for Applications. في محرر VBA، انقرإدراج > وحدة نمطية، ثم الصق الكود التالي في الوحدة النمطية الجديدة:
Sub ListAllDatesOfMonth()
Dim y As Integer
Dim m As Integer
Dim startDate As Date
Dim endDate As Date
Dim i As Integer
Dim xTitleId As String
Dim destCell As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
y = Application.InputBox(prompt:="Please enter the year (e.g.2023)", Title:=xTitleId, Type:=1)
If y = 0 Then Exit Sub
m = Application.InputBox(prompt:="Please enter the month number (1-12)", Title:=xTitleId, Type:=1)
If m = 0 Then Exit Sub
Set destCell = Application.InputBox(prompt:="Select the starting cell for your dates", Title:=xTitleId, Type:=8)
If destCell Is Nothing Then Exit Sub
startDate = DateSerial(y, m, 1)
endDate = DateSerial(y, m + 1, 0)
For i = 0 To endDate - startDate
destCell.Offset(i, 0).Value = startDate + i
Next i
destCell.Resize(endDate - startDate + 1, 1).NumberFormat = "yyyy/m/d"
End Sub2. انقر على زر
تشغيل(أو اضغط)F5)، ثم أجب عن المطالبات بإدخال السنة والشهر وتحديد الخلية التي يجب أن تبدأ منها التواريخ.
ملاحظات ونصائح:
- لإدخال الشهر، اكتب الرقم المقابل له—فيناير هو 1، وفبراير هو 2، وهكذا دواليك.
- سيتم تنسيق جميع التواريخ المُنشأة تلقائيًا بالشكل «yyyy/m/d». وإذا رغبت، يمكنك تعديل هذا التنسيق بسهولة من سطر تنسيق الأرقام.
- إذا ارتكبت خطأً أثناء الإدخال أو رغبت في إعادة إنشاء القائمة، فكل ما عليك فعله هو إعادة تشغيل الماكرو.
- يُعد هذا الحل المثالي عندما تنشئ قوائم تواريخ بشكلٍ روتيني أو تقوم بأتمتة التقارير المتكررة.
الطريقة المضمنة في Excel - ميزة ملء السلسلة
طريقة أخرى مباشرة ومدمجة في Excel لإدراج جميع أيام الشهر هي استخدام وظيفةملء السلسلة—وهي طريقة مثالية جدًّا للمستخدمين غير الملمين بالصيغ أو VBA. فبمجرد تحديد قيمة الخطوة (يوم واحد) وتحديد قيمة الإيقاف لتكون آخر يوم في الشهر المطلوب، يمكنك إنشاء قائمة تواريخ دقيقة لأي شهر بسهولة.
- أدخل أول يوم من الشهر المطلوب في خلية فارغة (على سبيل المثال، في الخلية)A2، اكتب2023/4/1 لتمثيل أول أبريل 2023). تأكد من أن Excel يتعرّف على إدخالك كتاريخ—وإذا لم تكن متأكدًا، يمكنك استخدام الصيغة=DATE(2023,4,1) في الخلية لضمان التعرّف الصحيح عليه.
- حدد الخلية الابتدائية (A2)، ثم انتقل إلىالصفحة الرئيسية > ملء > سلسلة...لفتح مربع حوار السلسلة.
- في مربع حوار السلسلة:
- اخترالأعمدةإذا أردت عرض التواريخ مُدرجةً في عمود؛ أو اخترالصفوفللحصول على قائمة أفقية.
- اضبطالنوععلىتاريخ.
- اضبطوحدة التاريخعلىيوم.
- اضبطقيمة الخطوةعلى1 (لزيادة القيمة بيوم واحد).
- في خانةقيمة الإيقاف، اكتب آخر يوم من الشهر المستهدف. على سبيل المثال، إذا كان الشهر المستهدف هو أبريل 2023، فأدخل2023/4/30.
- انقرموافق. سيقوم Excel الآن بملء نطاق الخلايا المحدد بتواريخ الشهر المحدد من بدايته حتى نهايته.
المزايا والملاحظات:
- لا تتطلب هذه الطريقة حفظ الصيغ أو إجراء أي تعديلات عليها.
- يجب إدخال تاريخَي البدء والإيقاف لكل شهر يدويًّا.
- إذا أخطأت في إدخال قيمة الإيقاف، فقد تصبح القائمة ناقصة أو تتضمّن أيامًا إضافية. تأكد من مراجعة تاريخ انتهاء الصلاحية الخاص بك مرة أخرى، ولا سيما إذا كان الشهر فبراير أو السنة كبيسة.
- بعد ملء السلسلة، يمكنك تنسيق جميع الخلايا كتواريخ باستخدامالصفحة الرئيسية > تنسيق الأرقامإذا لزم الأمر.
كل حل من الحلول المذكورة أعلاه يقدم مزايا فريدة: فالصيغ ديناميكية وسهلة النسخ إلى أشهر أخرى؛ وVBA يُمكّنك من الأتمتة بنقرة واحدة للاستخدام على نطاق واسع؛ وملء السلسلة سريع وبصري، وهو مثالي للمهام العرضية. وفي حال واجهتك أي مشكلات، تأكد أولًا من أن التواريخ التي أدخلتها بتنسيق قابل للتعرف عليه، وعند استخدام VBA، تأكد من تفعيل الماكروات وتحديد نطاقات خلايا صالحة. أما إذا كنت بحاجة إلى جدولة أكثر تعقيدًا (بما في ذلك عطلات نهاية الأسبوع أو العطل الرسمية أو أيام العمل المحددة)، فقد يتطلب الأمر إضافة منطق صيغ متقدمة أو إدخال تعديلات على كود VBA.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل