Перейти к основному содержанию

Как проверить, является ли год високосным в Excel?

Автор: Сяоян Последнее изменение: 2024 июля 07 г.

Вы знаете, как определить, високосный год или нет? В Excel нет прямого метода проверки, но вы можете создать определяемую пользователем функцию или формулу для решения этой проблемы.

Проверьте, является ли год високосным с формулой

Проверьте, является ли год високосным с помощью функции, определяемой пользователем


стрелка синий правый пузырь Проверьте, является ли год високосным с формулой

Предположим, у вас есть список лет на листе, следующая длинная формула может помочь вам определить, является ли данный год високосным или нет. Пожалуйста, сделайте так:

1. Помимо ячеек года, введите в пустую ячейку следующую формулу:

= ЕСЛИ (ИЛИ (MOD (A2,400) = 0, AND (MOD (A2,4) = 0, MOD (A2,100) <> 0)), «Високосный год», «НЕ високосный год»)(A2 содержит год, когда вы хотите применить эту формулу, вы можете изменить его по своему усмотрению) см. снимок экрана:

doc-check-if-високосный год-1

2. Затем перетащите маркер заполнения в диапазон, который вы хотите содержать в этой формуле, и все годы будут проверены, являются ли они високосными или нет.

doc-check-if-високосный год-2

Внимание: Если соответствующая ячейка пуста, эта формула также покажет високосный год.


стрелка синий правый пузырь Проверьте, является ли год високосным с помощью функции, определяемой пользователем

Вы также можете создать функцию, определяемую пользователем, чтобы проверить, является ли год високосным, вы можете заполнить его следующим образом:

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код 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-високосный год-3

4. Затем перетащите маркер заполнения в ячейки, которые вы хотите содержать эту формулу, и все годы отмечены флажком, НЕПРАВДА означает не високосный год, а ИСТИНА указывает високосный год. Смотрите скриншот:

doc-check-if-високосный год-4


Связанная статья:

Найдите наименьший общий знаменатель или наибольший общий делитель в Excel

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!