Как сделать реестр договоров в Excel: от простой таблицы до автоматизированной базы

=F2-ТСЕГОДНЯ()

Для финансового анализа полезны:

• 💵 Сумма по типу договора: =СУММЕСЛИ(Таблица1[Тип];"Аренда";Таблица1[Сумма])
• 📈 Средняя сумма договора: =СРЗНАЧ(Таблица1[Сумма договора])
• 🔍 Количество договоров с конкретным контрагентом: =СЧЁТЕСЛИ(Таблица1[Контрагент];"ООО Ромашка")

4. Условное форматирование: визуальный контроль за сроками

Человеческий мозг быстрее реагирует на цвета, чем на цифры. Поэтому настройте условное форматирование, чтобы критические данные бросались в глаза:

1. Выделите столбец с датой окончания (F).
2. Перейдите на вкладку Главная → Условное форматирование → Правила выделения ячеек.
3. Выберите Меньше... и укажите =ТСЕГОДНЯ() (для просроченных договоров). Задайте красный цвет текста.
4. Добавьте второе правило: Между..., где первое значение =ТСЕГОДНЯ(), второе =ТСЕГОДНЯ()+30. Задайте жёлтый цвет.

Теперь ваш реестр будет выглядеть так:

• 🟢 Зелёный — договор действует более 30 дней
• 🟡 Жёлтый — до окончания ≤ 30 дней (нужно продлевать!)
• 🔴 Красный — просрочен (требует срочных действий)

Для столбца Статус тоже можно настроить цвета:

• 🔴 Просрочен → красный фон
• 🟡 Заканчивается → жёлтый фон
• 🟢 Действует → зелёный текст

Это позволит за секунду оценить ситуацию даже в реестре с тысячей строк.

5. Фильтры и сводные таблицы: как быстро найти нужный договор

Когда в реестре сотни строк, прокрутка вручную отнимает время. Используйте фильтры и сортировку, чтобы мгновенно находить нужные данные:

• 🔍 Простой фильтр: нажмите Данные → Фильтр. Теперь в заголовках колонок появятся стрелки, по которым можно отфильтровать данные (например, показать только договоры с ООО "Ромашка").
• 📊 Расширенный фильтр: если нужно отобразить договоры, которые заканчиваются в течение месяца И сумма которых превышает 100 000 ₽, используйте команду Данные → Дополнительно.
• 📈 Сводная таблица: идеальна для анализа. Например, можно посчитать, сколько договоров заключено с каждым контрагентом и на какую общую сумму:
  1. Выделите всю таблицу.
  2. Нажмите Вставка → Сводная таблица.
  3. В поле "Строки" перетащите Контрагент, в "Значения" — Сумма договора (опция "Сумма").

Для быстрого поиска по номеру договора используйте Ctrl + F. Но если номер частично известен (например, "ДОГ-2026/..."), лучше применить фильтр по столбцу Номер договора с условием "начинается с".

6. Защита данных и совместная работа

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

• 🔒 Защита листа:
  1. Выделите ячейки, которые можно редактировать (например, столбцы с новыми договорами).
  2. Правой кнопкой → Формат ячеек → Защита → снимите галочку "Защищаемая ячейка".
  3. Перейдите в Рецензирование → Защитить лист и задайте пароль.

⚠️ Внимание: Если в реестре есть формулы со ссылками на другие файлы (например, вытягиваются данные из бухгалтерской программы), при отправке файла коллегам эти ссылки могут сломаться. Всегда проверяйте работоспособность формул после передачи файла!

Для крупных компаний лучше использовать Microsoft Power Query или Power BI для интеграции реестра с другими системами (1С, CRM). Но для малого бизнеса или личного использования Excel с правильной настройкой вполне достаточно.

7. Адаптация для мобильных устройств

Часто нужно проверить реестр в дороге или на встрече с контрагентом. Excel для Android/iOS поддерживает все основные функции, но есть нюансы:

• 📱 Закрепите заголовки: на мобильном экране видно только 3-5 столбцов. Чтобы не потерять ориентиры, закрепите первую строку:
  1. Откройте файл в мобильном приложении.
  2. Коснитесь заголовка строки 1.
  3. Выберите Закрепить.

Если вы часто работаете с реестром на телефоне, упростите его:

• 🗂️ Оставьте только ключевые столбцы (номер, контрагент, даты, сумма, статус).
• 📌 Перенесите редко используемые данные (например, "Примечания") на отдельный лист.
• 🔄 Настройте автофильтр по умолчанию, чтобы при открытии файла показывались только актуальные договоры (например, "Действует" или "Заканчивается").

8. Автоматизация с помощью макросов (для продвинутых пользователей)

Если вы ведёте сотни договоров, рутинные задачи (например, ежемесячная проверка сроков) можно автоматизировать с помощью макросов. Вот два полезных примера:

Макрос 1: Отправка уведомлений о просроченных договорах

Этот код проверяет все договоры и создаёт список просроченных на отдельном листе:

Sub FindOverdueContracts()
Dim wsData As Worksheet, wsReport As Worksheet
Dim lastRow As Long, i As Long, reportRow As Long

Set wsData = ThisWorkbook.Sheets("Реестр") ' Лист с реестром
Set wsReport = ThisWorkbook.Sheets.Add(After:=wsData)
wsReport.Name = "Просроченные"
wsReport.Range("A1:F1").Value = Array("Номер", "Контрагент", "Дата окончания", "Дней просрочки", "Сумма", "Ответственный")

lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
reportRow = 2

For i = 2 To lastRow
If wsData.Cells(i, 6).Value < Date Then ' Столбец F - дата окончания
wsReport.Cells(reportRow, 1).Value = wsData.Cells(i, 1).Value ' Номер
wsReport.Cells(reportRow, 2).Value = wsData.Cells(i, 3).Value ' Контрагент
wsReport.Cells(reportRow, 3).Value = wsData.Cells(i, 6).Value ' Дата окончания
wsReport.Cells(reportRow, 4).Value = Date - wsData.Cells(i, 6).Value ' Дней просрочки
wsReport.Cells(reportRow, 5).Value = wsData.Cells(i, 4).Value ' Сумма
wsReport.Cells(reportRow, 6).Value = wsData.Cells(i, 7).Value ' Ответственный
reportRow = reportRow + 1
End If
Next i

wsReport.Columns("A:F").AutoFit
MsgBox "Отчёт о просроченных договорах создан!", vbInformation
End Sub

Макрос 2: Автоматическое добавление нового договора

Этот код открывает форму для ввода данных о новом договоре и добавляет его в реестр:

Sub AddNewContract()
Dim ws As Worksheet
Dim newRow As Long
Dim contractNum As String, contractDate As Date
Dim counterparty As String, amount As Currency
Dim duration As Integer, endDate As Date

Set ws = ThisWorkbook.Sheets("Реестр")

' Получаем данные от пользователя
contractNum = InputBox("Введите номер договора:", "Новый договор")
If contractNum = "" Then Exit Sub

contractDate = InputBox("Введите дату заключения (ДД.ММ.ГГГГ):", "Новый договор")
If Not IsDate(contractDate) Then
MsgBox "Некорректный формат даты!", vbExclamation
Exit Sub
End If

counterparty = InputBox("Введите контрагента:", "Новый договор")
amount = InputBox("Введите сумму договора:", "Новый договор")
duration = InputBox("Введите срок действия (в днях):", "Новый договор")

' Рассчитываем дату окончания
endDate = DateAdd("d", duration, contractDate)

' Добавляем новую строку
newRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
ws.Cells(newRow, 1).Value = contractNum
ws.Cells(newRow, 2).Value = contractDate
ws.Cells(newRow, 3).Value = counterparty
ws.Cells(newRow, 4).Value = amount
ws.Cells(newRow, 5).Value = duration
ws.Cells(newRow, 6).Value = endDate

' Обновляем статусы и формулы
ws.Cells(newRow, 7).Formula = "=IF(F" & newRow & "

MsgBox "Договор успешно добавлен!", vbInformation
End Sub

Как включить макросы в Excel?

Макросы работают только в файлах с расширением .xlsm (а не .xlsx). Чтобы их включить: Файл → Параметры → Центр управления безопасностью → Параметры центра → Включить все макросы. Будьте осторожны: запускайте макросы только из проверенных источников!

Если вы никогда не работали с VBA, начинайте с простых макросов. Записывайте свои действия через Вид → Макросы → Запись макроса, а затем редактируйте полученный код.

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

🔹 Как импортировать данные из 1С или другой программы в Excel?
Большинство бухгалтерских программ (1С, "Мое дело" и др.) поддерживают экспорт в .xlsx или .csv. Инструкция:
1. В вашей программе найдите раздел "Отчёты" или "Экспорт".
2. Выберите формат Excel или CSV.
3. Скачайте файл и откройте его в Excel.
4. Если данные в одном столбце (в случае CSV), используйте Данные → Текст по столбцам для разделения.

Для регулярного импорта настройте Power Query (Данные → Получить данные → Из файла).

Sub SendEmailAlerts()
Dim OutApp As Object, OutMail As Object
Dim ws As Worksheet, lastRow As Long, i As Long
Dim emailList As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set ws = ThisWorkbook.Sheets("Реестр")

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
emailList = ""

For i = 2 To lastRow
If ws.Cells(i, 6).Value < Date Then ' Просроченные договоры
emailList = emailList & "Номер: " & ws.Cells(i, 1).Value & vbCrLf & _
"Контрагент: " & ws.Cells(i, 3).Value & vbCrLf & _
"Дата окончания: " & ws.Cells(i, 6).Value & vbCrLf & vbCrLf
End If
Next i

If emailList <> "" Then
With OutMail
.To = "your.email@example.com"
.Subject = "Уведомление: просроченные договоры на " & Format(Date, "dd.mm.yyyy")
.Body = "Список просроченных договоров:" & vbCrLf & vbCrLf & emailList
.Send ' или .Display для проверки перед отправкой
End With
End If

Set OutMail = Nothing
Set OutApp = Nothing
End Sub