Как в Excel перевести сумму цифрами в текст прописью: от простых формул до VBA

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

В этой статье мы разберём 5 рабочих методов — от самых простых до продвинутых, — которые подойдут как новичкам, так и опытным пользователям. Вы узнаете, как преобразовать числа в текст на русском языке с учётом копеек, рублей и правильного склонения, а также избежать типичных ошибок. Все решения протестированы на Excel 2010–2023 и Office 365, включая веб-версию.

———

1. Встроенные функции Excel: ограничения и обходные пути

На первый взгляд, в Excel нет специализированной функции для перевода чисел в текст прописью. Однако можно использовать комбинацию стандартных функций — ТЕКСТ(), ПОИСКПОЗ() и ВЫБОР() — для частичной автоматизации. Например, чтобы преобразовать число от 1 до 999, потребуется создать сложную формулу с вложенными условиями.

Основной недостаток этого подхода — ограниченный диапазон чисел (обычно до 999 999) и отсутствие поддержки копеек. Кроме того, формула становится громоздкой и трудной для редактирования. Тем не менее, для простых задач этот метод может быть полезен. Ниже приведён пример формулы для чисел до 99:

=ЕСЛИ(A1=0;"ноль";
ВЫБОР(ЦЕЛОЕ(A1/10)+1;"десять";"двадцать";"тридцать";"сорок";"пятьдесят";"шестьдесят";"семьдесят";"восемьдесят";"девяносто") &
ЕСЛИ(ОСТАТ(A1;10)=0;"";" " &
ВЫБОР(ОСТАТ(A1;10)+1;"один";"два";"три";"четыре";"пять";"шесть";"семь";"восемь";"девять")))

Для чисел свыше 100 формула усложняется в разы, поэтому такой способ подходит только для разовых задач с небольшими диапазонами.

2. Надстройка «ЧислоПрописью»: быстрое решение без программирования

Самый простой способ автоматизировать процесс — использовать бесплатную надстройку «ЧислоПрописью» от Microsoft или сторонних разработчиков. Эта надстройка добавляет в Excel специальную функцию, которая преобразует числа в текст на русском языке с учётом валют (рубли, доллары, евро) и копеек.

Как установить и использовать:

• 📥 Скачайте надстройку с официального сайта Microsoft AppSource или проверенного источника (например, AppSource).
• 🔧 Перейдите в Файл → Параметры → Надстройки → Управление надстройками Excel и выберите загруженный файл.
• 📊 В ячейке введите формулу =ЧислоПрописью(A1;"рубль";"копейка"), где A1 — ячейка с числом.
• ✅ Надстройка автоматически преобразует 1234,56 в текст: "одна тысяча двести тридцать четыре рубля пятьдесят шесть копеек".

Преимущества этого метода:

• ✔️ Работает с числами до 999 триллионов.
• ✔️ Поддерживает склонение валют (рубль/рубля/рублей, доллар/доллара/долларов).
• ✔️ Совместима с Excel 2013 и новее, включая Office 365.

3. VBA-макрос: универсальное решение для опытных пользователей

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

Ниже приведён готовый код макроса для перевода чисел в текст на русском языке:

Function NumToText(ByVal Number As Double, Optional Currency As String = "рубль") As String
Dim Rubles As Variant, Kopecks As Variant, Temp As String
Rubles = Array("рубль", "рубля", "рублей")
Kopecks = Array("копейка", "копейки", "копеек")

' Основная логика преобразования
Temp = ConvertLessThanOneThousand(Int(Number))
If Int(Number) Mod 100 >= 11 And Int(Number) Mod 100 <= 19 Then
Temp = Temp & " " & Rubles(2)
Else
Select Case Int(Number) Mod 10
Case 1: Temp = Temp & " " & Rubles(0)
Case 2, 3, 4: Temp = Temp & " " & Rubles(1)
Case Else: Temp = Temp & " " & Rubles(2)
End Select
End If

' Обработка копеек
If Number - Int(Number) > 0 Then
Temp = Temp & " " & ConvertLessThanOneThousand(CInt((Number - Int(Number)) * 100)) & " "
If CInt((Number - Int(Number))  100) Mod 100 >= 11 And CInt((Number - Int(Number))  100) Mod 100 <= 19 Then
Temp = Temp & Kopecks(2)
Else
Select Case CInt((Number - Int(Number)) * 100) Mod 10
Case 1: Temp = Temp & Kopecks(0)
Case 2, 3, 4: Temp = Temp & Kopecks(1)
Case Else: Temp = Temp & Kopecks(2)
End Select
End If
End If
NumToText = Temp
End Function

Function ConvertLessThanOneThousand(ByVal Number As Integer) As String
Dim Ones As Variant, Tens As Variant, Hundreds As Variant
Ones = Array("", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
Tens = Array("", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", _
"шестьдесят", "семьдесят", "восемьдесят", "девяносто")
Hundreds = Array("", "сто", "двести", "триста", "четыреста", "пятьсот", _
"шестьсот", "семьсот", "восемьсот", "девятьсот")

ConvertLessThanOneThousand = Hundreds(Int(Number / 100))
If Number Mod 100 >= 20 Or Number Mod 100 = 0 Then
ConvertLessThanOneThousand = ConvertLessThanOneThousand & " " & Tens(Int((Number Mod 100) / 10))
ConvertLessThanOneThousand = ConvertLessThanOneThousand & " " & Ones(Number Mod 10)
Else
Select Case Number Mod 100
Case 10: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " десять"
Case 11: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " одиннадцать"
Case 12: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " двенадцать"
Case 13: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " тринадцать"
Case 14: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " четырнадцать"
Case 15: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " пятнадцать"
Case 16: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " шестнадцать"
Case 17: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " семнадцать"
Case 18: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " восемнадцать"
Case 19: ConvertLessThanOneThousand = ConvertLessThanOneThousand & " девятнадцать"
End Select
End If
ConvertLessThanOneThousand = Application.WorksheetFunction.Trim(ConvertLessThanOneThousand)
End Function

Как использовать макрос:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте код в модуль (Insert → Module).
3. Сохраните файл как .xlsm (с поддержкой макросов).
4. В ячейке введите =NumToText(A1), где A1 — ячейка с числом.

Открыть редактор VBA (Alt+F11)|Создать новый модуль (Insert → Module)|Вставить код функции NumToText|Сохранить файл как .xlsm|Включить макросы при открытии файла-->

⚠️ Внимание: Макросы могут быть заблокированы настройками безопасности Excel. Чтобы разрешить их выполнение, перейдите в Файл → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Параметры макросов и выберите Включить все макросы (не рекомендуется для недоверенных файлов).

4. Онлайн-сервисы: быстрый перевод без установки

Если вам нужно единоразово преобразовать сумму в текст, можно воспользоваться онлайн-конвертерами. Эти сервисы не требуют установки программ или настройки макросов, но подходят только для разовых задач. Ниже — проверенные инструменты:

Как работать с онлайн-сервисами:

1. Перейдите на сайт и введите число в соответствующее поле.
2. Выберите валюту (рубли, доллары и т. д.).
3. Скопируйте полученный текст прописью и вставьте в Excel.

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

5. Пользовательская функция в Excel: альтернатива VBA

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

Пример формулы для чисел до 999 999 (без копеек):

=ЕСЛИ(A1=0;"ноль";
ЕСЛИ(A1<1000;ConvertLessThanThousand(A1);
ЕСЛИ(A1<1000000;
ConvertLessThanThousand(ЦЕЛОЕ(A1/1000)) & " тысяча " &
ЕСЛИ(И(ОСТАТ(ЦЕЛОЕ(A1/1000);100)>=11;ОСТАТ(ЦЕЛОЕ(A1/1000);100)<=19);"";
ЕСЛИ(ОСТАТ(ЦЕЛОЕ(A1/1000);10)=1;"";
ЕСЛИ(И(ОСТАТ(ЦЕЛОЕ(A1/1000);10)>=2;ОСТАТ(ЦЕЛОЕ(A1/1000);10)<=4);"и";""))) &
ConvertLessThanThousand(ОСТАТ(A1;1000));
"Ошибка: число слишком большое")))

Для работы этой формулы потребуется создать вспомогательную функцию ConvertLessThanThousand в отдельном листе или через Имя диапазона. Этот способ подходит для опытных пользователей, готовых потратить время на настройку.

6. Типичные ошибки и как их избежать

При переводе чисел в текст прописью пользователи часто сталкиваются с следующими проблемами:

• 🔢 Некорректное склонение валют: например, "1 рубль" вместо "1 рубля". Это происходит из-за ошибок в логике определения окончаний. Решение — использовать проверенные шаблоны или надстройки.
• 💰 Отсутствие копеек: многие самописные формулы игнорируют дробную часть. Всегда проверяйте, поддерживает ли ваш метод копейки (например, 123,45 → "сто двадцать три рубля 45 копеек").
• 📉 Ограничение по диапазону: некоторые решения работают только до 999 999. Для миллиардов и триллионов используйте VBA или надстройки.
• 🌍 Неправильный язык: если вы работаете с иностранными валютами (доллары, евро), убедитесь, что функция поддерживает нужный язык.

Чтобы минимизировать ошибки:

• 📌 Тестируйте формулы на краевых значениях: 0, 1, 999, 1000, 1001.
• 📌 Проверяйте склонение для чисел, оканчивающихся на 11–19 (например, "11 рублей", а не "11 рубль").
• 📌 Используйте ТЕКСТ() для форматирования чисел перед преобразованием (например, =ТЕКСТ(A1;"0.00")), чтобы избежать ошибок с дробными частями.

7. Автоматизация для бухгалтерских документов

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

Пример структуры шаблона:

• 📄 Ячейка A1: Сумма цифрами (например, 12345,67).
• 📄 Ячейка B1: Формула или макрос для преобразования в текст (например, =ЧислоПрописью(A1)).
• 📄 Ячейка C1: Название валюты (рубли/доллары/евро) для динамического изменения.

Для печати документа:

1. Объедините ячейки с текстом прописью в одну строку (например, =СЦЕПИТЬ("Сумма: ";B1)).
2. Настройте параметры страницы (Разметка страницы → Параметры страницы), чтобы текст не обрезался при печати.
3. Используйте функцию ПЕЧАТНЫЙ_ДИАПАЗОН(), чтобы задать область печати.

⚠️ Внимание: При экспорте в PDF проверьте, что шрифт поддерживает кириллицу (например, Arial или Times New Roman). В противном случае текст прописью может отобразиться кракозябрами.

FAQ: Частые вопросы по переводу чисел в текст

Function NumToText(ByVal Number As Double) As String
If Number < 0 Then
NumToText = "минус " & NumToText(Abs(Number))
Else
' Основная логика (как в примере выше)
End If
End Function