Как получить дату последнего дня месяца в Excel?
Возможно, получить последний день месяца для вас несложно, но если в Excel содержится множество дат, как быстро сразу определить последний день для каждого месяца? Сейчас я предложу вам несколько простых приёмов для решения этой задачи в Excel.
Получение даты последнего дня месяца с помощью формул в Excel
Получение даты последнего дня месяца с помощью VBA в Excel
Получение даты последнего дня месяца с помощью формул в Excel
Использование формулы для поиска конечной даты каждого месяца может быть невероятно простым для любого пользователя Excel.
Выберите ячейку рядом с датой и введите в неё следующую формулу: =DATE(YEAR(A2),MONTH(A2)+1,0) (A2 — ячейка с исходной датой, для которой нужно определить последний день месяца). Затем нажмите клавишу Enter и перетащите маркер автозаполнения на нужный диапазон. Готово — в ячейках теперь отображается последний день каждого месяца! См. снимки экрана:
 |
 |
 |
Также можно использовать эту формулу: =EOMONTH(A2,0), чтобы получить последний день месяца. (Перед вводом этой формулы обязательно отформатируйте ячейки результата как «Дата».)
Совет: В Excel 2003 или более ранней версии, чтобы использовать формулу =EOMONTH(A2,0), сначала необходимо установить надстройку Пакет анализа, выбрав в меню Сервис > Надстройки. См. снимки экрана:
 |  |  |
Получение даты последнего дня месяца с помощью определённой функции в Excel
Если вы знакомы с VBA, воспользуйтесь приведённым ниже кодом для поиска последнего дня месяца.
1. Нажмите одновременно клавиши Alt + F11 на клавиатуре, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Затем выберите Вставка > Модуль, чтобы открыть новое окно модуля. Скопируйте приведённый ниже код VBA в это окно.
VBA: Как получить дату последнего дня месяца
Function LastDayInMonth(Optional pDate As Date = 0) As Date
'Updateby20140723
If pDate = 0 Then pDate = VBA.Date
LastDayInMonth = VBA.DateSerial(VBA.Year(pDate), VBA.Month(pDate) + 1, 0)
End Function
3. Сохраните и закройте это окно. Затем выберите ячейку и введите формулу =LastDayInMonth(A2) (где A2 содержит дату, по которой нужно определить последний день месяца), после чего нажмите клавишу Enter — и получите дату последнего дня месяца.
Примечание: Чтобы этот код VBA работал корректно, ячейки с результатом необходимо заранее отформатировать как Формат даты, а уже затем вводить формулу =LastDayInMonth(A2).
Связанные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек