انتقل إلى المحتوى الرئيسي

كيفية التحقق مما إذا كانت السنة سنة كبيسة في 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 تحتوي على السنة التي تريد تطبيق هذه الصيغة فيها ، يمكنك تغييرها حسب حاجتك) انظر لقطة الشاشة:

doc-check-if-jump-year-1

2. ثم اسحب مقبض التعبئة إلى النطاق الذي تريد أن تحتوي على هذه الصيغة ، وتم التحقق من جميع السنوات إذا كانت سنوات كبيسة أم لا.

doc-check-if-jump-year-1

ملاحظات: إذا كانت الخلية النسبية فارغة ، فستعرض هذه الصيغة السنة الكبيسة أيضًا.


السهم الأزرق الحق فقاعة تحقق مما إذا كانت السنة هي سنة كبيسة باستخدام الوظيفة المحددة بواسطة المستخدم

يمكنك أيضًا إنشاء وظيفة محددة بواسطة المستخدم للتحقق مما إذا كانت السنة سنة كبيسة ، يمكنك إكمالها على النحو التالي:

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) ، انظر لقطة الشاشة:

doc-check-if-jump-year-1

4. ثم اسحب مقبض التعبئة إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وتم إلغاء تحديد كل السنوات ، ملف خاطئة تعني ليس سنة كبيسة و الحقيقة يشير إلى سنة كبيسة. انظر لقطة الشاشة:

doc-check-if-jump-year-1


مقالة ذات صلة:

ابحث عن القاسم المشترك الأصغر أو العامل المشترك الأكبر في Excel

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
ivec, your determination of a leap year within Excel itself works if the year is at / later than the Excel base year of 1900. For years before the Excel base year of 1900, I believe an external determination is required.
This comment was minimized by the moderator on the site
What about relying on Excel's own definition of a leap year?
The expression below checks the difference between March 1st and Feb 28 in that year - a leap year will have Feb 29 in-betweek, which makes a difference of 2 days.
IsLeapYear formula: = ( DATE( $$YEAR_REF$$ ;3;1)-DATE( $$YEAR_REF$$ ;2;28) > 1.5 )

The 1.5 is because I'm not sure if there is a risk of floating-point inaccuracies...
This comment was minimized by the moderator on the site
Please don't post my previous comment.
This comment was minimized by the moderator on the site
Using Excel 2013 the VBA returns backwards, saying 2015 is a leap year and 2016 is not
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations