Преобразование чисел в слова в Excel: от простых формул до VBA-макросов

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

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

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

Начнём с плохой новости: в Excel (включая версии 2019, 2021 и Microsoft 365) нет стандартной функции вроде =ЧИСЛОВТЕКСТ(). Однако есть полумеры, которые могут помочь в простых случаях:

• 🔹 Функция BAHTTEXT — работает только в тайской версии Excel и преобразует числа в тайские баты. Для русского языка бесполезна, но её существование доказывает, что Microsoft могла бы добавить аналогичную функцию для других валют.
• 🔹 Формат ячейки "Текст" — если ввести число в ячейку с текстовым форматом, оно останется числом, но отобразится как текст. Это не решение, а лишь способ избежать автоматического преобразования (например, для телефонных номеров).
• 🔹 Функция TEXT — позволяет форматировать числа как текст с разделителями, но не переводит их в пропись. Пример: =TEXT(1234; "0") вернёт "1234", а не "одна тысяча двести тридцать четыре".

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

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

2. Формулы для преобразования чисел в слова (без VBA)

Для простых случаев (числа до 999 999) можно использовать вложенные функции ЕСЛИ. Принцип работы: разбиваем число на сотни, десятки и единицы, затем "склеиваем" их названия. Пример для чисел от 0 до 99:

=ЕСЛИ(A1=0;"ноль";
ЕСЛИ(A1<20;ВЫБОР(A1;"один";"два";"три";...;"девятнадцать");
ДВ.ЗНАЧ(ЦЕЛОЕ(A1/10);1)&" " &
ВЫБОР(ОСТАТ(A1;10);"";"один";"два";...;"девять")
)
)

Для чисел до 999 формула усложняется в 3 раза — нужно добавить обработку сотен. Полный вариант занимает несколько строк и требует ручного ввода всех вариантов склонений. Главный минус: такая формула не масштабируется на миллионы и не учитывает валюту.

Для рублей и копеек придётся писать отдельные формулы и объединять их через & " руб. " &. Например:

=ЧИСЛОВТЕКСТ_РУБ(ЦЕЛОЕ(A1)) & " руб. " & ЧИСЛОВТЕКСТ_РУБ(ОСТАТ(A1*100;100)) & " коп."

⚠️ Внимание: Если вы копируете формулы из интернета, проверьте, чтобы в них не было скрытых символов (например, неразрывных пробелов). Они могут ломать логику ЕСЛИ и ВЫБОР.

3. Готовые надстройки для Excel: быстро и без кода

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

• 📌 NumWords — бесплатная надстройка с поддержкой русского, английского и других языков. После установки появляется функция =NUMWORDS(), которая преобразует числа в пропись с учётом валют.
• 📌 Русский язык для Excel — платный пакет от ООО "Инфо-Софт", который включает функцию =ЧИСЛОПРОПИСЬ() с поддержкой склонений и дробных частей.
• 📌 SpellNumber — надстройка от Microsoft Office Labs (архивная версия), которая добавляет функцию =SpellNumber(). Работает только на английском, но может быть адаптирована.

Function ЧислоПрописью(Сумма As Currency, Optional Валюта As String = "руб") As String
' Макрос для преобразования чисел в слова на русском языке
' Поддерживает рубли, доллары, евро и кастомные валюты
Dim Рубли As Variant, Копейки As Variant
Dim ТекстРуб As String, ТекстКоп As String

' Массивы для склонений
Рубли = Array("рубль", "рубля", "рублей")
Копейки = Array("копейка", "копейки", "копеек")

' Обработка целой части
ТекстРуб = Преобразовать(Int(Сумма), "ж", True)

' Обработка дробной части
If Сумма - Int(Сумма) > 0 Then
ТекстКоп = Преобразовать(Round((Сумма - Int(Сумма)) * 100, 0), "ж", False)
Else
ТекстКоп = ""
End If

' Склонение валют
ЧислоПрописью = Application.WorksheetFunction.Proper(ТекстРуб) & " " & Склонение(Int(Сумма), Рубли) &
IIf(ТекстКоп <> "", " " & ТекстКоп & " " & Склонение(Val(ТекстКоп), Копейки), "")
End Function

Function Преобразовать(Число As Long, Род As String, ВключатьЕдиницы As Boolean) As String
' Вспомогательная функция для преобразования
' Род: "м" (мужской), "ж" (женский), "с" (средний)
' Полный код функции занимает ~200 строк, здесь приведён упрощённый вариант
' Полную версию можно скачать по ссылке (см. конец статьи)
End Function

Function Склонение(Число As Long, Варианты As Variant) As String
' Функция для правильного склонения валют
Dim Остаток As Integer
Остаток = Число Mod 100
If Остаток > 10 And Остаток < 20 Then
Склонение = Варианты(2)
Else
Остаток = Остаток Mod 10
If Остаток = 1 Then
Склонение = Варианты(0)
ElseIf Остаток > 1 And Остаток < 5 Then
Склонение = Варианты(1)
Else
Склонение = Варианты(2)
End If
End If
End Function

• 🌐 NumWord.com — поддерживает русский, английский, немецкий. Есть API для автоматизации.
• 🌐 Числапрописью.рф — специализируется на рублях и копейках, учитывает падежи.
• 🌐 ConvertNumber.com — международный сервис с поддержкой 20+ языков.

=ЕСЛИ(A1<0; "минус " & ЧИСЛОВТЕКСТ_РУБ(ABS(A1)); ЧИСЛОВТЕКСТ_РУБ(A1))

If Сумма < 0 Then ЧислоПрописью = "минус " & ЧислоПрописью(Abs(Сумма), Валюта): Exit Function

=ВЫБОР(ДЕНЬ(A1);"первое";"второе";...;"тридцатое") & " " &
ВЫБОР(МЕСЯЦ(A1);"января";"февраля";...;"декабря")

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Range("B" & Target.Row).Value = ЧислоПрописью(Target.Value)
End If
End Sub