كيفية التحقق مما إذا كانت السنة سنة كبيسة في Excel؟
هل تعرف كيف تحدد ما إذا كانت السنة سنة كبيسة أم لا؟ في Excel ، لا توجد طريقة مباشرة للتحقق منها ، ولكن يمكنك إنشاء وظيفة أو صيغة محددة من قبل المستخدم لحل هذه المشكلة.
تحقق مما إذا كانت السنة سنة كبيسة بالصيغة
تحقق مما إذا كانت السنة هي سنة كبيسة باستخدام الوظيفة المحددة بواسطة المستخدم
تحقق مما إذا كانت السنة سنة كبيسة بالصيغة
لنفترض أن لديك قائمة بالسنة في ورقة العمل ، فإن الصيغة الطويلة التالية يمكن أن تساعدك في تحديد ما إذا كانت سنة معينة سنة كبيسة أم لا. يرجى القيام بذلك على النحو التالي:
1. إلى جانب خلايا السنة ، في خلية فارغة ، أدخل هذه الصيغة:
= IF (OR (MOD (A2,400،0) = 2,4، AND (MOD (A0،2,100) = 0، MOD (AXNUMX،XNUMX) <> XNUMX))، "Leap Year"، "NOT a Leap Year")، (A2 تحتوي على السنة التي تريد تطبيق هذه الصيغة فيها ، يمكنك تغييرها حسب حاجتك) انظر لقطة الشاشة:
2. ثم اسحب مقبض التعبئة إلى النطاق الذي تريد أن تحتوي على هذه الصيغة ، وتم التحقق من جميع السنوات إذا كانت سنوات كبيسة أم لا.
ملاحظات: إذا كانت الخلية النسبية فارغة ، فستعرض هذه الصيغة السنة الكبيسة أيضًا.
تحقق مما إذا كانت السنة هي سنة كبيسة باستخدام الوظيفة المحددة بواسطة المستخدم
يمكنك أيضًا إنشاء وظيفة محددة بواسطة المستخدم للتحقق مما إذا كانت السنة سنة كبيسة ، يمكنك إكمالها على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: تحقق مما إذا كانت السنة سنة كبيسة
Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
IsLeapYear = True
Else
IsLeapYear = False
End If
End Function
3. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل الخاصة بك ، وأدخل هذه الصيغة: = isleapyear (A2) ، انظر لقطة الشاشة:
4. ثم اسحب مقبض التعبئة إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وتم إلغاء تحديد كل السنوات ، ملف خاطئة تعني ليس سنة كبيسة و الحقيقة يشير إلى سنة كبيسة. انظر لقطة الشاشة:
مقالة ذات صلة:
ابحث عن القاسم المشترك الأصغر أو العامل المشترك الأكبر في Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!