Как рассчитать остаток рабочих дней в месяце в Excel: 5 проверенных способов

Расчёт остатка рабочих дней в текущем месяце — типичная задача для бухгалтеров, менеджеров проектов и HR-специалистов. Вручную считать такие данные неэффективно: легко ошибиться в учёте выходных или праздников. К счастью, Microsoft Excel предлагает несколько способов автоматизировать этот процесс — от простых формул до сложных вычислений с учётом производственного календаря.

Многие пользователи ошибочно полагают, что достаточно вычесть выходные из общего количества дней в месяце. Но это работает только для стандартной 5-дневной рабочей недели. А если у компании скользящий график, сменный режим или индивидуальные праздники? В этой статье разберём универсальные решения, которые подойдут для любых условий — от базового учёта до расширенных сценариев с динамическими данными.

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

• 📅 Текущая дата — от неё зависит, сколько дней уже прошло в месяце.
• 🏢 График работы — 5/2, 6/1, сменный или гибкий.
• 🎉 Праздничные дни — официальные (из производственного календаря) и корпоративные.
• 📊 Формат вывода — нужно ли учитывать сегодняшний день как рабочий или нет.

1. Базовый расчёт: рабочие дни без учёта праздников

Начнём с самого простого варианта — подсчёта рабочих дней в месяце без учёта праздников, только с стандартными выходными (суббота и воскресенье). Для этого в Excel есть специальная функция:

```excel

=РАБДЕНЬ.МЕЖД(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ());1);КОНМЕСЯЦА(СЕГОДНЯ();0);[праздники])

```

Но чтобы посчитать остаток рабочих дней (а не все дни месяца), формула будет другой:

```excel

=РАБДЕНЬ.МЕЖД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0)) - 1

```

Здесь:

• 📌 СЕГОДНЯ() — возвращает текущую дату.
• 📌 КОНМЕСЯЦА(СЕГОДНЯ();0) — последний день текущего месяца.
• 📌 -1 — исключаем сегодняшний день из расчёта (если нужно его учесть, убираем -1).

Эта формула вернёт количество полных рабочих дней с сегодняшнего дня до конца месяца, исключая субботы и воскресенья. Но она не учитывает праздники — об этом поговорим в следующем разделе.

2. Учёт официальных праздников: производственный календарь

В России и многих других странах есть официальные праздники, которые переносят выходные дни. Например, если праздник выпадает на вторник, выходной переносится на понедельник. Чтобы точно посчитать рабочие дни, нужно:

1. Создать список праздничных дат (например, на листе Праздники).
2. Использовать функцию РАБДЕНЬ.МЕЖД с учётом этого списка.

Пример структуры таблицы с праздниками:

Теперь формула для расчёта остатка рабочих дней с учётом праздников:

```excel

=РАБДЕНЬ.МЕЖД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0);Праздники!$A$2:$A$100) - 1

```

Где Праздники!$A$2:$A$100 — диапазон с датами праздников. Если праздников нет в текущем месяце, функция автоматически проигнорирует их.

3. Динамический расчёт: рабочие дни до конкретной даты

Иногда нужно посчитать рабочие дни не до конца месяца, а до определённой даты — например, до дедлайна проекта или срока выполнения задачи. Для этого модифицируем формулу:

```excel

=РАБДЕНЬ.МЕЖД(СЕГОДНЯ();D10;Праздники!$A$2:$A$100)

```

Где D10 — ячейка с целевой датой. Если целевая дата раньше сегодняшней, функция вернёт ошибку #ЧИСЛО!. Чтобы избежать этого, добавьте проверку:

```excel

=ЕСЛИ(D10>=СЕГОДНЯ(); РАБДЕНЬ.МЕЖД(СЕГОДНЯ();D10;Праздники!$A$2:$A$100); "Срок истёк")

```

Эта формула:

• 🔹 Сначала проверяет, не прошла ли целевая дата (D10>=СЕГОДНЯ()).
• 🔹 Если нет — считает рабочие дни.
• 🔹 Если да — выводит текст "Срок истёк".

4. Расчёт для нестандартных графиков работы

Не все компании работают по стандартной схеме понедельник-пятница. Например, в розничной торговле часто используется график 2 через 2 или 6-дневная рабочая неделя. Для таких случаев функция РАБДЕНЬ.МЕЖД не подходит — она жёстко завязана на субботу и воскресенье.

Решение — использовать комбинацию функций ДЕНЬНЕД и СУММПРОИЗВ. Пример для графика работаем со вторника по субботу, выходной — понедельник и воскресенье:

```excel

=СУММПРОИЗВ(

--(ДЕНЬНЕД(РЯД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0)))<>1);

--(ДЕНЬНЕД(РЯД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0)))<>7)

) - 1

```

Разберём по шагам:

1. РЯД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0)) — создаёт массив дат от сегодня до конца месяца.
2. ДЕНЬНЕД() — определяет день недели (1=воскресенье, 2=понедельник, ..., 7=суббота).
3. <>1 и <>7 — исключаем воскресенье (1) и субботу (7).
4. СУММПРОИЗВ — суммирует ИСТИНА/ЛОЖЬ как 1/0.

Измените числа в ДЕНЬНЕД(...)<>X на номера ваших выходных дней|

Проверьте диапазон дат в функции РЯД|

Убедитесь, что формула массива введена с Ctrl+Shift+Enter (в старых версиях Excel)|

Добавьте -1 если нужно исключить сегодняшний день-->

5. Автоматизация: создание пользовательской функции на VBA

Если вам часто приходится считать рабочие дни с учётом индивидуальных правил (например, корпоративные праздники или плавающие выходные), имеет смысл написать пользовательскую функцию на VBA. Это избавит от необходимости каждый раз править формулы.

Пример кода для функции CustomWorkDays, которая учитывает:

• 📅 Стандартные выходные (задаются в параметрах).
• 🎉 Список праздников (передаётся как диапазон).
• 🔄 Перенос выходных при попадании праздников на рабочие дни.

```vba

Function CustomWorkDays(StartDate As Date, EndDate As Date, _

Holidays As Range, Optional Weekends As Variant) As Long

' Если выходные не указаны, используем стандартные (суббота-воскресенье)

If IsMissing(Weekends) Then Weekends = Array(vbSaturday, vbSunday)

Dim TotalDays As Long, i As Long, DayType As Integer

TotalDays = 0

For i = StartDate To EndDate

DayType = Weekday(i, vbUseSystemDayOfWeek)

' Проверяем, не выходной ли это день

If Not IsInArray(DayType, Weekends) Then

' Проверяем, не праздник ли это

If Not IsHoliday(i, Holidays) Then

TotalDays = TotalDays + 1

End If

End If

Next i

CustomWorkDays = TotalDays

End Function

' Вспомогательная функция для проверки праздников

Function IsHoliday(CheckDate As Date, Holidays As Range) As Boolean

Dim Cell As Range

For Each Cell In Holidays

If Cell.Value = CheckDate Then

IsHoliday = True

Exit Function

End If

Next Cell

IsHoliday = False

End Function

' Вспомогательная функция для проверки массива

Function IsInArray(Value As Variant, Arr As Variant) As Boolean

Dim i As Long

For i = LBound(Arr) To UBound(Arr)

If Arr(i) = Value Then

IsInArray = True

Exit Function

End If

Next i

IsInArray = False

End Function

```

Теперь в Excel можно использовать:

```excel

=CustomWorkDays(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0);Праздники!$A$2:$A$100;{1;7})

```

Где {1;7} — массив с номерами выходных дней (1=воскресенье, 7=суббота).

6. Практический пример: дашборд для отдела кадров

Давайте соберём всё воедино и создадим интерактивный дашборд, который показывает:

• 📅 Остаток рабочих дней в месяце.
• 📊 Процент выполнения месячного плана (если указать цель).
• ⚠️ Предупреждение о приближении дедлайна.

Шаги для создания:

1. Создайте лист Данные с таблицей праздников и целевой датой.
2. На листе Дашборд добавьте формулы:
   • Остаток рабочих дней: =РАБДЕНЬ.МЕЖД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0);Данные!$A$2:$A$100).
   • Процент выполнения: =1 - (остаток_дней / общее_кол-во_рабочих_дней).
   • Предупреждение: =ЕСЛИ(остаток_дней<5;"⚠️ Срочно!";"").

Критически важно: Если в вашей компании используются плавающие выходные (например, каждый второй понедельник месяца), их нужно добавить в список праздников вручную или через дополнительную логику в VBA.

Private Sub Workbook_Open()
Application.CalculateFull
End Sub

Частые ошибки и как их избежать

Даже опытные пользователи Excel иногда сталкиваются с проблемами при расчёте рабочих дней. Вот топ-5 ошибок и способы их решения:

⚠️ Внимание: Функция РАБДЕНЬ.МЕЖД в Excel 2010 и старше может неправильно обрабатывать перенос выходных. Обновитесь до актуальной версии или используйте VBA.

⚠️ Внимание: Если вы работаете с датами до 1900 года, Excel может их неправильно интерпретировать. Для исторических данных используйте текстовый формат или специализированные надстройки.

FAQ: Ответы на частые вопросы

=РАБДЕНЬ.МЕЖД(A1;B1;Праздники!$A$2:$A$100)

=РАБДЕНЬ.МЕЖД(СЕГОДНЯ();КОНМЕСЯЦА(СЕГОДНЯ();0);Праздники!$A$2:$A$100) * 8