Jak zkontrolovat, zda je rok přestupným rokem v aplikaci Excel?
Víte, jak zjistit, zda je rok přestupným rokem nebo ne? V aplikaci Excel neexistuje žádná přímá metoda, kterou byste to mohli zkontrolovat, ale můžete vytvořit uživatelsky definovanou funkci nebo vzorec, který tento problém vyřeší.
Pomocí vzorce zkontrolujte, zda je rok přestupným rokem
Pomocí funkce definované uživatelem zkontrolujte, zda je rok přestupným rokem
Pomocí vzorce zkontrolujte, zda je rok přestupným rokem
Předpokládejme, že máte v listu seznam roku, následující dlouhý vzorec vám pomůže určit, zda je daný rok přestupným rokem. Udělejte prosím toto:
1. Kromě buněk roku zadejte do prázdné buňky tento vzorec:
= IF (OR (MOD (A2,400) = 0, AND (MOD (A2,4) = 0, MOD (A2,100) <> 0)), "přestupný rok", "NENÍ přestupný rok"), (A2 obsahuje rok, na který chcete použít tento vzorec, můžete jej podle potřeby změnit) viz screenshot:
2. Poté přetáhněte úchyt výplně do rozsahu, ve kterém chcete tento vzorec obsahovat, a všechny roky byly zkontrolovány, zda jsou přestupnými roky nebo ne.
Poznámka: Pokud je relativní buňka prázdná, zobrazí tento vzorec také přestupný rok.
Pomocí funkce definované uživatelem zkontrolujte, zda je rok přestupným rokem
Můžete také vytvořit funkci definovanou uživatelem a zkontrolovat, zda je rok přestupným rokem, a můžete ji dokončit takto:
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: zkontrolujte, zda je rok přestupným rokem
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. Poté tento kód uložte a zavřete, vraťte se do svého listu a zadejte tento vzorec: = isleapyear (A2), viz screenshot:
4. Poté přetáhněte úchyt výplně do buněk, které chcete tento vzorec obsahovat, a všechny roky byly zaškrtnuty, NEPRAVDIVÉ znamená přestupný rok a TRUE označuje přestupný rok. Viz screenshot:
Související článek:
Najděte nejnižšího společného jmenovatele nebo největšího společného faktoru v aplikaci Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!