كيفية الحصول على تاريخ نهاية الشهر في 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.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!