Как в Excel сделать напоминание по датам: от простых правил до автоматических уведомлений

=ЕСЛИ(ISBLANK(D2);""; ЧИСТРАБДНИ(SEGODNYA; D2))

=ЧИСТРАБДНИ(SEGODNYA; D2; Праздники!A2:A10)

Метод 3: Power Query — динамические напоминания

Если ваши данные обновляются регулярно (например, импортируются из 1С или Google Sheets), Power Query поможет автоматизировать создание напоминаний. Этот метод подходит для обработки больших объёмов данных — например, списка из 1000 клиентов с разными датами оплаты.

Алгоритм действий:

1. Импортируйте данные в Power Query (Данные → Получить данные → Из таблицы/диапазона).
2. Добавьте вычисляемый столбец с количеством дней до события:

   = Date.From([Дата оплаты]) - Date.From(DateTime.LocalNow)

3. Отфильтруйте строки, где значение столбца < 0 (просрочено) или между 0 и 7 (на этой неделе).
4. Загрузите отфильтрованные данные на новый лист с названием Напоминания.

🔹 Преимущество метода: Power Query обновляет данные при каждом открытии файла или по команде Данные → Обновить все. Можно настроить автоматическое обновление при открытии книги:

1. Перейдите в Файл → Параметры → Данные → Обновить данные при открытии файла.
2. Установите флажок Обновлять связь при открытии файла.

⚠️ Внимание: Если файл хранится в OneDrive или SharePoint, Power Query может запрашивать разрешение на обновление данных при каждом открытии. Чтобы этого избежать, опубликуйте книгу как веб-запросы или используйте Power Automate для автоматизации.

Метод 4: VBA-макросы для автоматических уведомлений

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

🔹 Пример кода для проверки дат при открытии книги:

Private Sub Workbook_Open
Dim ws As Worksheet
Dim lastRow As Long, i As Long
Dim alertMsg As String

Set ws = ThisWorkbook.Sheets("Клиенты")' имя вашего листа
lastRow = ws.Cells(ws.Rows.Count,"D").End(xlUp).Row' последний ряд с данными в столбце D

For i = 2 To lastRow' пропускаем заголовок
If ws.Cells(i, 4).Value < Date And ws.Cells(i, 4).Value <>"" Then
alertMsg = alertMsg &"⚠️ Просрочено:" & ws.Cells(i, 1).Value &" (" & ws.Cells(i, 4).Value &")" & vbCrLf
ElseIf ws.Cells(i, 4).Value <= Date + 3 And ws.Cells(i, 4).Value <>"" Then
alertMsg = alertMsg &"⏳ Скоро:" & ws.Cells(i, 1).Value &" (" & ws.Cells(i, 4).Value &")" & vbCrLf
End If
Next i

If alertMsg <>"" Then
MsgBox"Внимание! Найдены важные даты:" & vbCrLf & vbCrLf & alertMsg, vbExclamation,"Напоминания"
End If
End Sub

🔹 Как это работает:

• 📁 Код проверяет все даты в столбце D на листе Клиенты.
• 🔔 Если находит просроченные или близкие даты (за 3 дня), показывает окно с перечнем.
• 🔄 Срабатывает автоматически при открытии файла.

⚠️ Внимание: Макросы работают только если файл сохранён в формате .xlsm (с поддержкой макросов). При первом открытии Excel может блокировать выполнение кода — разрешите макросы в Центре управления безопасностью.

Метод 5: Интеграция с Outlook — email-уведомления

Если вы пользуетесь Microsoft Outlook, можно настроить автоматическую отправку email с напоминаниями из Excel. Это полезно для командной работы — например, чтобы уведомлять бухгалтерию о приближающихся платежах.

🔹 Инструкция:

1. Откройте редактор VBA (Alt + F11) и добавьте ссылку на библиотеку Outlook:

   Tools → References → Microsoft Outlook XX.X Object Library

2. Вставьте код для отправки писем (пример ниже).
3. Настройте запуск макроса по кнопке или по расписанию.

🔹 Пример кода для рассылки:

Sub SendReminders
Dim olApp As Object, olMail As Object
Dim ws As Worksheet, lastRow As Long, i As Long
Dim emailList As String, bodyText As String

Set olApp = CreateObject("Outlook.Application")
Set ws = ThisWorkbook.Sheets("Клиенты")
lastRow = ws.Cells(ws.Rows.Count,"D").End(xlUp).Row

For i = 2 To lastRow
If ws.Cells(i, 4).Value <= Date + 3 And ws.Cells(i, 4).Value >= Date Then
emailList = emailList & ws.Cells(i, 5).Value &";"' столбец с email
bodyText = bodyText &"•" & ws.Cells(i, 1).Value &":" & ws.Cells(i, 4).Value &" (осталось" & ws.Cells(i, 4).Value - Date &" дней)" & vbCrLf
End If
Next i

If emailList <>"" Then
Set olMail = olApp.CreateItem(0)
With olMail
.To ="manager@example.com"' ваш email
.CC = emailList' копия получателям из списка
.Subject ="Напоминания о платежах на" & Format(Date,"dd.mm.yyyy")
.Body ="Уважаемые коллеги!" & vbCrLf & vbCrLf &"Напоминаем о приближающихся платежах:" & vbCrLf & bodyText & vbCrLf &"Пожалуйста, подтвердите оплату."
.Send' или.Display для проверки перед отправкой
End With
End If

Set olApp = Nothing
End Sub

⚠️ Внимание: Перед использованием этого метода:

• Проверьте, что Outlook настроен на вашем компьютере.
• Убедитесь, что в таблице есть столбец с email-адресами получателей.
• Протестируйте отправку на свой email, заменив .Send на .Display.

Сравнение методов: какой выбрать?

Каждый способ имеет свои плюсы и минусы. Выбор зависит от ваших задач:

🔹 Рекомендации:

• 🏠 Для домашнего бюджета хватит условного форматирования + формул.
• 🏢 В офисе с