Сумма прописью: один макрос — и реестр считает себя сам

🧾 Бухгалтерия одного учреждения решила: копии приказов о выплате премии больше не принимаем — несите реестр передачи документов по шаблону. Приказов много. В конце реестра — общее количество цифрами и прописью. И это теперь постоянная рутина. Пересчитывать приказы прописью вручную — отличная медитация, но планы на вечер были другие.

💡 Собрал рецепт: умная таблица, обычная СУММ и одна функция прописью из готового макроса. Писать код на VBA (Visual Basic for Applications) не пришлось — всё уже придумано за нас. Семь шагов:

✅ 1. Выделите диапазон реестра и нажмите Ctrl+T — обычный диапазон станет умной таблицей. Назовите её как хотите, а если не хотите, Excel назовет сам: «Таблица1». В таблице столбец с числами — «Количество».

✅ 2. Итог в цифрах — функция СУММ: =СУММ(Таблица1[Количество])

✅ 3. Готовой функции «число прописью» в стандартном наборе Excel нет. Берём готовое: статья «Сумма прописью» Николая Павлова на Planeta Excel. Оттуда копируем код.

✅ 4. Включите вкладку «Разработчик»: Файл → Параметры → Настроить ленту → галочка «Разработчик» → ОК.

✅ 5. «Разработчик» → кнопка Visual Basic → в новом окне Insert → Module → вставьте скопированный код → сохраните и закройте окно.

✅ 6. При сохранении Excel предложит формат .xlsm — файл с макросами. Соглашайтесь.

✅ 7. Соберите итоговую строку реестра:

🧮 Формула итога (СЦЕП/СЦЕПИТЬ, вводите одной строкой). Цепочка пробелов после «документов» — не опечатка: она выравнивает строку на печатном листе. СУММАПРОПИСЬЮ — та самая функция из макроса, латинского дубля у неё нет:

=СЦЕП("Всего документов ";СУММ(Таблица1[Количество]);" ( ";СУММАПРОПИСЬЮ(СУММ(Таблица1[Количество]));")")

📊 Дальше включается магия умной таблицы: добавляете новые строки — сумма в цифрах и прописью пересчитывается сама. Таблица умная. Чего в отчётный сезон не всегда скажешь о нас.

🔎 Где применять: реестры передачи документов, описи, акты — везде, где количество дублируется прописью. Настроили один раз, дальше заполняете только строки.

⚠️ Оговорки. Макрос живёт внутри конкретного файла: книгу сохраняем как .xlsm и при открытии разрешаем макросы; СУММАПРОПИСЬЮ работает только там, куда установлен модуль. СЦЕП — Excel 2016/2019/365, в старых версиях та же формула собирается через СЦЕПИТЬ или &. В МойОфис и LibreOffice VBA-функция без доработок не заведётся. И автоматика автоматикой, а формула доверия вечна: =ЕСЛИ(проверил; спокоен; переделываю). Итог перед передачей проверяем глазами.

📌 Итог: раз настроили — реестр считает себя сам, рутина «посчитать и вписать прописью» закрыта.

📎 Готовый модуль СуммаПрописью.bas и шаблон реестра — в файлах сразу под этим постом.

🤔 Каким приёмом вы разгружаете реестровую рутину? Расскажите в комментариях — соберём темы для будущих Excel-будней.

#ExcelБудни #Excel #Автоматизация