Przejdź do głównej zawartości

Jak sprawdzić, czy rok jest rokiem przestępnym w programie Excel?

Czy wiesz, jak określić, czy rok jest rokiem przestępnym, czy nie? W programie Excel nie ma bezpośredniej metody, aby to sprawdzić, ale możesz utworzyć funkcję lub formułę zdefiniowaną przez użytkownika, aby rozwiązać ten problem.

Sprawdź, czy rok jest rokiem przestępnym ze wzorem

Sprawdź, czy rok jest rokiem przestępnym z funkcją zdefiniowaną przez użytkownika


strzałka niebieski prawy bąbelek Sprawdź, czy rok jest rokiem przestępnym ze wzorem

Przypuśćmy, że masz w arkuszu listę lat, następująca długa formuła pomoże ci określić, czy dany rok jest rokiem przestępnym, czy nie. Zrób tak:

1. Oprócz komórek roku, w pustej komórce wprowadź następującą formułę:

= JEŻELI (LUB (MOD (A2,400) = 0, AND (MOD (A2,4) = 0, MOD (A2,100) <> 0)), "Rok przestępny", "NIE rok przestępny")(A2 zawiera rok, w którym chcesz zastosować tę formułę, możesz ją zmienić według swoich potrzeb) zobacz zrzut ekranu:

Sprawdź dokument, jeśli rok-przestępny-1

2. Następnie przeciągnij uchwyt wypełnienia do zakresu, w którym chcesz zawrzeć tę formułę, a wszystkie lata zostały sprawdzone, czy są to lata przestępne, czy nie.

Sprawdź dokument, jeśli rok-przestępny-1

Note: Jeśli komórka względna jest pusta, ta formuła również pokaże rok przestępny.


strzałka niebieski prawy bąbelek Sprawdź, czy rok jest rokiem przestępnym z funkcją zdefiniowaną przez użytkownika

Możesz także utworzyć funkcję zdefiniowaną przez użytkownika, aby sprawdzić, czy rok jest rokiem przestępnym, możesz to zrobić w następujący sposób:

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: sprawdź, czy rok jest rokiem przestępnym

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. Następnie zapisz i zamknij ten kod, wróć do arkusza roboczego i wprowadź tę formułę: = isleapyear (A2), zobacz zrzut ekranu:

Sprawdź dokument, jeśli rok-przestępny-1

4. Następnie przeciągnij uchwyt wypełniania do komórek, które mają zawierać tę formułę, a wszystkie lata zostały zaznaczone, rozszerzenie FAŁSZYWY oznacza rok nie przestępny, a TRUE wskazuje rok przestępny. Zobacz zrzut ekranu:

Sprawdź dokument, jeśli rok-przestępny-1


Podobne artykuły:

Znajdź najniższy wspólny mianownik lub największy wspólny czynnik w programie Excel

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

 

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