Ugrás a tartalomra

Hogyan ellenőrizhető, hogy az év szökőév-e az Excelben?

Tudja, hogyan lehet meghatározni, hogy egy év szökőév-e vagy sem? Az Excel programban nincs közvetlen módszer az ellenőrzésére, de létrehozhat egy felhasználó által definiált függvényt vagy képletet a probléma megoldására.

Képlettel ellenőrizze, hogy egy év szökőév-e

A Felhasználó által definiált funkcióval ellenőrizze, hogy egy év szökő-e


nyíl kék jobb buborék Képlettel ellenőrizze, hogy egy év szökőév-e

Ha feltételezzük, hogy a munkalapon szerepel egy évlista, akkor a következő hosszú képlet segíthet abban, hogy megállapítsuk, egy adott év szökőév-e vagy sem. Kérjük, tegye a következőket:

1. Az év cellák mellett egy üres cellába írja be ezt a képletet:

= IF (VAGY (VAGY (MOD (A2,400) = 0, ÉS (MOD (A2,4) = 0, MOD (A2,100) <> 0)), "Ugróév", "NEM Ugróév"), (A2 tartalmaz olyan évet, amelyen alkalmazni szeretné ezt a képletet, megváltoztathatja az igényeinek megfelelően) lásd a képernyőképet:

doc-check-if-szökőév-1

2. Ezután húzza át a kitöltő fogantyút arra a tartományra, amelybe ezt a képletet be kívánja állítani, és az összes évet ellenőrizte, hogy szökőév-e vagy sem.

doc-check-if-szökőév-1

Megjegyzések: Ha a relatív cella üres, akkor ez a képlet is mutatja az Ugró évet.


nyíl kék jobb buborék A Felhasználó által definiált funkcióval ellenőrizze, hogy egy év szökő-e

Létrehozhat egy felhasználó által definiált függvényt is annak ellenőrzésére, hogy az év szökőév-e.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: ellenőrizze, hogy egy év szökőév-e

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. Ezután mentse és zárja be ezt a kódot, menjen vissza a munkalapra, és írja be ezt a képletet: = isleapyear (A2), lásd a képernyőképet:

doc-check-if-szökőév-1

4. Ezután húzza a kitöltő fogantyút azokhoz a cellákhoz, amelyekbe ezt a képletet be kívánja állítani, és minden év be van jelölve HAMIS nem szökő évet jelent és az TRUE szökő évet jelez. Lásd a képernyőképet:

doc-check-if-szökőév-1


Kapcsolódó cikk:

Keresse meg az Excel legkisebb közös nevezőjét vagy legnagyobb közös tényezőjét

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

 

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