Hvordan kontrolleres, om et år er et skudår i Excel?
Ved du, hvordan du bestemmer, om et år er et skudår eller ej? I Excel er der ingen direkte metode til at kontrollere det, men du kan oprette brugerdefineret funktion eller formel for at løse dette problem.
Kontroller, om et år er et skudår med formlen
Kontroller, om et år er et skudår med brugerdefineret funktion
Kontroller, om et år er et skudår med formlen
Hvis du antager, at du har en liste over år i regnearket, kan den følgende lange formel hjælpe dig med at afgøre, om et givet år er et skudår eller ej. Gør som dette:
1. Ud over årcellerne skal du indtaste denne formel i en tom celle:
= HVIS (ELLER (MOD (A2,400) = 0, OG (MOD (A2,4) = 0, MOD (A2,100) <> 0)), "Skudår", "IKKE et skudår"), (A2 indeholder år, hvor du vil anvende denne formel, kan du ændre det til dit behov) se skærmbillede:
2. Træk derefter fyldhåndtaget over til det interval, som du vil indeholde denne formel, og alle årene er blevet kontrolleret, om de er skudår eller ej.
Bemærk: Hvis den relative celle er tom, viser denne formel også skudår.
Kontroller, om et år er et skudår med brugerdefineret funktion
Du kan også oprette brugerdefineret funktion for at kontrollere, om året er et skudår, du kan udfylde det som disse:
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Kontroller, om et år er et skudår
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. Gem derefter og luk denne kode, gå tilbage til dit regneark, og indtast denne formel: = isleapyear (A2), se skærmbillede:
4. Træk derefter fyldhåndtaget til de celler, som du vil have denne formel, og alle årene er markeret, FALSK står ikke for et skudår og TRUE angiver et skudår. Se skærmbillede:
Relateret artikel:
Find den laveste fællesnævner eller største fælles faktor i Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!