كيفية الحصول على تاريخ نهاية الشهر في Excel؟
قد يكون الحصول على تاريخ نهاية الشهر سهلاً بالنسبة لك، ولكن إذا كان هناك العديد من بيانات التاريخ في Excel، كيف يمكنك الحصول بسرعة على تاريخ نهاية كل شهر دفعة واحدة؟ الآن سأقدم لك بعض الحيل السريعة لحل هذه المشكلة في Excel.
الحصول على تاريخ نهاية الشهر باستخدام الصيغ في Excel
الحصول على تاريخ نهاية الشهر باستخدام VBA في Excel
الحصول على تاريخ نهاية الشهر باستخدام الصيغ في Excel
قد يكون استخدام صيغة للعثور على تاريخ نهاية كل شهر أمرًا سهلاً جدًا لكل مستخدمي Excel.
حدد خلية بجانب بيانات التاريخ، ثم اكتب هذه الصيغة =DATE(YEAR(A2),MONTH(A2)+1,0) (A2 هي الخلية التي تريد الحصول على تاريخ نهاية الشهر منها) واضغط على مفتاح Enter في لوحة المفاتيح، ثم اسحب التعبئة التلقائية إلى النطاق الذي تحتاج إلى تطبيق هذه الصيغة عليه. الآن يظهر تاريخ نهاية كل شهر في الخلايا. شاهد لقطات الشاشة:
![]() |
![]() |
![]() |
أيضًا، يمكنك استخدام هذه الصيغة =EOMONTH(A2,0) للحصول على تاريخ نهاية الشهر. (تحتاج إلى تنسيق الخلايا الناتجة كتنسيق تاريخ قبل إدخال هذه الصيغة).
نصيحة: في Excel 2003 أو الإصدارات الأقل، إذا كنت تريد استخدام الصيغة =EOMONTH(A2,0)، تحتاج إلى تثبيت أداة تحليل Toolpak عن طريق النقر على أدوات > إضافات أولاً. شاهد لقطات الشاشة:
![]() | ![]() | ![]() |
الحصول على تاريخ نهاية الشهر باستخدام الدالة المعرفة في Excel
إذا كنت على دراية بـ VBA، يمكنك استخدام كود VBA أدناه للعثور على تاريخ نهاية الشهر.
1. اضغط معًا على مفاتيح F11 + Alt على لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Applications.
2. ثم انقر فوق إدراج > وحدة لإدراج نافذة وحدة جديدة. وبعد ذلك قم بنسخ كود VBA التالي إلى النافذة.
VBA: الحصول على تاريخ نهاية الشهر.
Function LastDayInMonth(Optional pDate As Date = 0) As Date
'Updateby20140723
If pDate = 0 Then pDate = VBA.Date
LastDayInMonth = VBA.DateSerial(VBA.Year(pDate), VBA.Month(pDate) + 1, 0)
End Function
3. احفظ وأغلق النافذة. ثم حدد خلية واكتب هذه الصيغة =LastDayInMonth(A2) (A2 تحتوي على التاريخ الذي تريد الحصول على تاريخ نهاية الشهر منه)، ثم اضغط على مفتاح Enter وستحصل على تاريخ نهاية الشهر.
ملاحظة: يتطلب هذا الكود VBA أيضًا أن تقوم بتنسيق الخلايا الناتجة كتنسيق تاريخ قبل إدخال هذه الصيغة =LastDayInMonth(A2).
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد