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

Введение: зачем переводить цифры в текст?

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

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

Прежде чем переходить к инструкциям, важно понять: универсального решения "одной кнопкой" в Excel нет. Выбор метода зависит от версии программы (2010, 2016, 2019 или Microsoft 365), частоты использования функции и требований к формату вывода. Например, для бухгалтерских документов может потребоваться указание валюты ("рублей", "долларов") и копеек, а для внутренних отчётов — только целые числа.

Способ 1: Встроенная функция БСЧЁТ (только для английского)

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

Тем не менее, рассмотрим синтаксис для полноты картины:

=БСЧЁТ(число; [формат])

Где число — ячейка с суммой (например, A1), а [формат] — необязательный аргумент для указания валюты (по умолчанию — доллары). Пример для числа 1234,56 вернёт: "One thousand two hundred thirty-four and 56/100".

⚠️ Внимание: Если ваш Excel русифицирован, функция БСЧЁТ может отсутствовать в списке или возвращать ошибку #ИМЯ?. Чтобы её активировать, потребуется сменить языковые настройки офиса на английский или использовать надстройки (о них — далее).

Для русского языка этот метод применим только как основа для создания пользовательской функции на VBA (см. Способ 4). Если вам срочно нужно решение "здесь и сейчас" — пропустите этот раздел и переходите к следующим способам.

Способ 2: Формула с вложенными ЕСЛИ (для целых чисел до 999)

Для небольших чисел (до 999) можно обойтись без макросов, используя комбинацию функций ЕСЛИ, ИНДЕКС и ПОИСКПОЗ. Этот метод подходит, если вам нужно редко преобразовывать суммы и нет времени на настройку VBA. Минус — формула получается громоздкой и работает только с целыми числами.

Пример формулы для числа в ячейке A1 (до 999):

=ЕСЛИ(A1=0;"ноль";
ЕСЛИ(A1<20;ИНДЕКС({"ноль";"один";"два";...;"девятнадцать"};A1);
ЕСЛИ(A1<100;
ИНДЕКС({"двадцать";"тридцать";...;"девяносто"};ЦЕЛОЕ(A1/10)) &
ЕСЛИ(ОСТАТ(A1;10)=0;"";" " & ИНДЕКС({"";"один";...;"девять"};ОСТАТ(A1;10)));
ИНДЕКС({"сто";"двести";...;"девятьсот"};ЦЕЛОЕ(A1/100)) &
ЕСЛИ(ОСТАТ(A1;100)=0;"";" " &
ЕСЛИ(ОСТАТ(A1;100)<20;ИНДЕКС({"";"один";...;"девятнадцать"};ОСТАТ(A1;100));
ИНДЕКС({"";"двадцать";...;"девяносто"};ЦЕЛОЕ(ОСТАТ(A1;100)/10)) &
ЕСЛИ(ОСТАТ(A1;10)=0;"";" " & ИНДЕКС({"";"один";...;"девять"};ОСТАТ(A1;10)))
)
)
)
)
)

Как видите, формула занимает несколько строк и требует ручного заполнения массивов чисел. Для упрощения можно вынести массивы ("один", "два"...) в отдельные ячейки и ссылаться на них. Однако для чисел >999 придётся добавлять логику для тысяч, миллионов и т.д., что сделает формулу ещё сложнее.

Создать списки единиц, десятков и сотен в отдельных ячейках

Проверить корректность ссылок на массивы в формуле

Убедиться, что в исходной ячейке нет дробной части

Тестировать формулу на краевых значениях (0, 19, 20, 99, 100, 999)-->

Способ 3: Бесплатные надстройки для русского языка

Самый простой способ вывести сумму прописью на русском — использовать готовые надстройки. Они добавляют в Excel пользовательские функции, которые работают как стандартные. Рассмотрим две проверенные надстройки:

• 📌 NumToText — бесплатная надстройка от PlanetaExcel. После установки добавляет функцию =РУБЛЬ(число; [валюта]), которая поддерживает рубли, доллары и евро. Пример вывода: "Одна тысяча двадцать три рубля 45 копеек".
• 📌 Summa Propisyu — надстройка с открытым кодом, доступна на GitHub. Помимо основной функции, позволяет настраивать род чисел (мужской/женский) и формат вывода (с валютой или без).
• 📌 Атлас-Финанс — платное решение с расширенными возможностями (поддержка миллиардов, настройка падежей). Подходит для корпоративного использования.

Как установить надстройку NumToText:

1. Скачайте файл NumToText.xlam с официального сайта PlanetaExcel.
2. Откройте Excel, перейдите в Файл → Параметры → Надстройки.
3. Внизу окна выберите Перейти... → Обзор и укажите путь к скачанному файлу.
4. Поставьте галочку рядом с NumToText и нажмите ОК.

Теперь в любой ячейке можно использовать функцию:

=РУБЛЬ(A1)

где A1 — ячейка с числом. Для указания копеек используйте формат с двумя знаками после запятой (например, 1234,56).

⚠️ Внимание: Надстройки могут конфликтовать с антивирусами (ложные срабатывания на макросы). Перед установкой добавьте файл .xlam в исключения антивируса или проверьте его на VirusTotal.

Способ 4: Пользовательская функция на VBA (универсальное решение)

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

Function Рубль(Сумма As Double) As String
Dim Rub As String, Kop As String, Temp As String
Dim РубльТекст As Variant, КопейкаТекст As Variant
Dim i As Integer

РубльТекст = Array("ноль", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять", _
"десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", _
"шестнадцать", "семнадцать", "восемнадцать", "девятнадцать", "двадцать", _
"тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто")
КопейкаТекст = Array("копеек", "копейка", "копейки")

Rub = Int(Сумма)
Kop = Format((Сумма - Rub) * 100, "00")

If Rub = 0 Then
Temp = "ноль рублей"
Else
Temp = ConvertLessThanOneThousand(Rub, РубльТекст, "рубль", "рубля", "рублей")
End If

If Kop > 0 Then
Temp = Temp & " " & ConvertLessThanOneThousand(Kop, РубльТекст, "копейка", "копейки", "копеек")
End If

Рубль = Temp
End Function

Function ConvertLessThanOneThousand(ByVal Number As Integer, Текст As Variant, One As String, TwoFour As String, FiveZero As String) As String
Dim Result As String
If Number = 0 Then Exit Function
If Number < 20 Then
Result = Текст(Number)
ElseIf Number < 100 Then
Result = Текст(18 + Int(Number / 10))
If Number Mod 10 <> 0 Then Result = Result & " " & Текст(Number Mod 10)
Else
Result = Текст(18 + Int(Number / 100)) & "сот"
If Number Mod 100 <> 0 Then Result = Result & " " & ConvertLessThanOneThousand(Number Mod 100, Текст, One, TwoFour, FiveZero)
End If

Select Case Number Mod 100
Case 1: Result = Result & " " & One
Case 2, 3, 4: Result = Result & " " & TwoFour
Case Else: Result = Result & " " & FiveZero
End Select

ConvertLessThanOneThousand = Result
End Function

=Рубль(A1)

If Сумма < 0 Then Рубль = "минус " & Рубль(Abs(Сумма)): Exit Function

(Number) =>
let
Units = {"ноль", "один", "два", ...}, // полный список единиц
Teens = {"десять", "одиннадцать", ...}, // полный список от 10 до 19
Tens = {"двадцать", "тридцать", ...}, // полный список десятков
Hundreds = {"сто", "двести", ...}, // полный список сотен
// Логика преобразования (упрощённо)
Convert = (n) =>
if n = 0 then "ноль" else
if n < 20 then Units{n} else
if n < 100 then Tens{Number.IntegerDivide(n, 10) - 2} & " " & Units{Number.Mod(n, 10)} else
Hundreds{Number.IntegerDivide(n, 100) - 1} & " " & Convert(Number.Mod(n, 100)),
Rubles = Convert(Number.IntegerDivide(Number, 1)),
Kop = Convert(Number.Mod(Number * 100, 100))
in
Rubles & " рубль " & Kop & " копеек"

Рубль = UCase(Left(Рубль, 1)) & Mid(Рубль, 2)