Skip to main content

כיצד לבדוק אם שנה היא שנה מעוברת ב-Excel?

Author: Xiaoyang Last Modified: 2025-05-30

האם אתה יודע כיצד לקבוע אם שנה היא שנה מעוברת או לא? ב-Excel, אין שיטה ישירה לבדיקה זו, אך אתה יכול ליצור פונקציה מותאמת או נוסחה כדי לפתור את הבעיה.

בדוק אם שנה היא שנה מעוברת עם נוסחה

בדוק אם שנה היא שנה מעוברת עם פונקציה מוגדרת על ידי המשתמש


arrow blue right bubble בדוק אם שנה היא שנה מעוברת עם נוסחה

נניח שיש לך רשימה של שנים בגליון העבודה, הנוסחה הארוכה הבאה יכולה לעזור לך לקבוע אם שנה נתונה היא שנה מעוברת או לא. אנא עשה כך:

1. ליד תאי השנים, בתא ריק, הזן את הנוסחה הבאה:

=IF(OR(MOD(A2,400)=0,AND(MOD(A2,4)=0,MOD(A2,100)<>0)),"שנה מעוברת", "לא שנה מעוברת"), (A2 מכיל את השנה שברצונך להחיל את הנוסחה עליה, תוכל לשנות זאת לפי הצורך) ראה צילום מסך:

doc-check-if-leap-year-1

2. לאחר מכן גרור את ידית המילוי מעל הטווח שבו ברצונך לכלול את הנוסחה הזו, וכל השנים נבדקו אם הן שנים מעוברות או לא.

doc-check-if-leap-year-2

הערה: אם התא הרלוונטי ריק, הנוסחה תציג גם כן שנה מעוברת.


arrow blue right bubble בדוק אם שנה היא שנה מעוברת עם פונקציה מוגדרת על ידי המשתמש

אתה יכול גם ליצור פונקציה מוגדרת על ידי המשתמש כדי לבדוק אם השנה היא שנה מעוברת, תוכל להשלים זאת כך:

1. החזק את המקשים ALT + F11, וזה יפתח את חלון Microsoft Visual Basic for Applications.

2. לחץ על Insert > Module, והדבק את הקוד הבא בחלון ה-Module.

קוד VBA: בדוק אם שנה היא שנה מעוברת

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-leap-year-3

4. לאחר מכן גרור את ידית המילוי לתאים שבהם ברצונך לכלול את הנוסחה הזו, וכל השנים נבדקו, ה-FALSE מייצג שאינה שנה מעוברת וה- TRUE מצביע על שנה מעוברת. ראה צילום מסך:

doc-check-if-leap-year-4


מאמר קשור:

מצא את המכנה המשותף הקטן ביותר או הגורם המשותף הגדול ביותר ב-Excel

כלי הפרודוקטיביות הטובים ביותר ל-Office

🤖 Kutools AI Aide: מהפכה בניתוח נתונים באמצעות: ביצוע חכם |צור קוד |צור נוסחאות מותאם אישית |נתח נתונים וייצר תרשימים |הפעל פונקציות משופרות
פיצ'רים פופולריים: מצא, הדגש או סמן כפילויות | מחק שורות ריקות | שלב עמודות או תאים מבלי לאבד נתונים |   עיגול ...
חיפוש מתקדם: VLookup עם מספר קריטריונים | VLookup לערכים מרובים | חיפוש במספר גליונות | התאמה עמומה ....
רשימת נפתחת מתקדמת: צור במהירות רשימה נפתחת | רשימה נפתחת תלויה | רשימה נפתחת עם בחירה מרובה ....
מנהל עמודות: הוסף מספר עמודות מסוים | העבר עמודות | החלף מצב תצוגה של עמודות מוסתרות | השווה טווחים ועמודות ...
פיצ'רים נבחרים: מיקוד רשת | תצוגת עיצוב | שורת נוסחאות משופרת | נהל חוברת עבודה וגליון עבודה | ספריית טקסט אוטומטי (Auto Text) | בורר תאריך | מיזוג נתונים | הצפן/פענח תאים | שלח דואר אלקטרוני לפי טבלה חד-ממדית | סינון מתקדם | סינון מיוחד (סנן תאים עם גופן מודגש/נטוי/קו חוצה...) ...
15 ערכות כלים מובילות:12 כלי טקסט (הוסף טקסט, מחק תווים מסוימים, ...) | מעל50 סוגי תרשימים (תרשים גאנט, ...) | מעל40 נוסחאות חכמות (חישוב גיל על פי תאריך לידה, ...) |19 כלי הוספה (הכנס קוד QR, הכנס תמונה מנתיב, ...) |12 כלי המרה (המרה למילים, המרת מטבע, ...) |7 כלי מיזוג ופיצול (מיזוג מתקדם של שורות, פיצול תאים, ...) | ...ועוד

שדרג את כישורי ה-Excel שלך עם Kutools for Excel ותחווה יעילות שלא הכרת. Kutools for Excel מציע מעל300 פיצ'רים מתקדמים לשיפור הפרודוקטיביות ולחסוך זמן. לחץ כאן כדי לקבל את הפיצ'ר שהכי נחוץ לך...


Office Tab מביא ממשק טאב ל-Office והופך את העבודה שלך להרבה יותר קלה

  • אפשר עריכה וקריאה בטאבים ב-Word, Excel, PowerPoint
  • פתח וצור מסמכים מרובים בטאבים חדשים באותו חלון, במקום בחלונות חדשים.
  • הגדל את הפרודוקטיביות שלך ב-50% וצמצם מאות קליקים של עכבר בכל יום!