Как в Excel конвертировать числа в текст прописью: от простых чисел до сумм с копейками

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

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

Для новичков начнём с самого простого — встроенных инструментов. Опытные пользователи найдут здесь оптимизированные VBA-решения и примеры для работы с разными валютами. Все примеры протестированы в Excel 2019–2023 и Microsoft 365, но majority методов будут работать и в более ранних версиях (начиная с Excel 2010).

1. Встроенная функция БАТЕКСТ: ограничения и возможности

Самый очевидный способ — использовать функцию =БАТЕКСТ() (или =DOLLAR() в англоязычных версиях). Она преобразует число в текстовый формат с указанием валюты, но имеет критические ограничения:

• 💵 Работает только с долларами США (вывод в формате "$1,234.56" → "One thousand two hundred thirty-four and 56/100").
• 📛 Не поддерживает рубли, евро или другие валюты без дополнительных манипуляций.
• 🔢 Максимальное число — 999 999 999,99 (миллиард минус одна копейка).
• 🌍 В русских версиях Excel результат выдаётся на английском языке.

Пример использования:

=БАТЕКСТ(1234,56;2)

Результат: "One thousand two hundred thirty-four and 56/100".

Чтобы адаптировать функцию для рублей, придётся заменить "$" на "руб." и "and" на "коп." вручную или через =ПОДСТАВИТЬ(). Но это полумера — для полноценной русификации лучше использовать другие методы.

⚠️ Внимание: Функция БАТЕКСТ округляет числа до двух знаков после запятой. Если вам нужно сохранить больше десятичных разрядов, используйте альтернативные способы.

2. Пользовательская функция на VBA: универсальное решение для рублей

Для полной русификации и гибкости наилучший вариант — создать собственную функцию на VBA. Этот метод позволяет:

• 📝 Преобразовывать числа любой длины (включая триллионы).
• 💰 Указывать валюту (рубли, доллары, евро).
• 🔄 Обрабатывать копейки/центы отдельно.
• 🌐 Выводить результат на русском языке с правильными падежами.

Вот готовый код функции, который нужно вставить в редактор VBA (Alt + F11 → Вставка → Модуль):

Function NumToText(ByVal Number As Double, Optional Currency As String = "руб.") As String
Dim Rubles As Variant, Kopecks As Variant, Temp As String
Dim Fractional As String, IntegerPart As String

' Разделяем целую и дробную части
IntegerPart = Int(Number)
Fractional = Round((Number - IntegerPart) * 100, 0)

' Массивы для чисел
Dim Units(9) As String, Teens(9) As String, Tens(9) As String, Hundreds(9) As String
Units = Array("", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
Teens = Array("десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", _
"пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", "девятьнадцать")
Tens = Array("", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", _
"шестьдесят", "семьдесят", "восемьдесят", "девяносто")
Hundreds = Array("", "сто", "двести", "триста", "четыреста", "пятьсот", _
"шестьсот", "семьсот", "восемьсот", "девятьсот")

' Обработка целой части
If IntegerPart = 0 Then
Rubles = "ноль"
Else
Temp = ""
' Миллиарды
If IntegerPart >= 1000000000 Then
Temp = NumToText(Int(IntegerPart / 1000000000)) & " миллиард"
If Int(IntegerPart / 1000000000) Mod 100 >= 11 And Int(IntegerPart / 1000000000) Mod 100 <= 19 Then
Temp = Temp & "ов"
Else
Select Case Int(IntegerPart / 1000000000) Mod 10
Case 1: Temp = Temp & ""
Case 2, 3, 4: Temp = Temp & "а"
Case Else: Temp = Temp & "ов"
End Select
End If
IntegerPart = IntegerPart Mod 1000000000
If IntegerPart > 0 Then Temp = Temp & " "
End If
' Миллионы
If IntegerPart >= 1000000 Then
Temp = Temp & NumToText(Int(IntegerPart / 1000000)) & " миллион"
If Int(IntegerPart / 1000000) Mod 100 >= 11 And Int(IntegerPart / 1000000) Mod 100 <= 19 Then
Temp = Temp & "ов"
Else
Select Case Int(IntegerPart / 1000000) Mod 10
Case 1: Temp = Temp & ""
Case 2, 3, 4: Temp = Temp & "а"
Case Else: Temp = Temp & "ов"
End Select
End If
IntegerPart = IntegerPart Mod 1000000
If IntegerPart > 0 Then Temp = Temp & " "
End If
' Тысячи
If IntegerPart >= 1000 Then
Temp = Temp & NumToText(Int(IntegerPart / 1000)) & " тысяча"
If Int(IntegerPart / 1000) Mod 100 >= 11 And Int(IntegerPart / 1000) Mod 100 <= 19 Then
Temp = Temp & ""
Else
Select Case Int(IntegerPart / 1000) Mod 10
Case 1: Temp = Temp & ""
Case 2, 3, 4: Temp = Temp & "и"
Case Else: Temp = Temp & ""
End Select
End If
IntegerPart = IntegerPart Mod 1000
If IntegerPart > 0 Then Temp = Temp & " "
End If
' Сотни, десятки, единицы
If IntegerPart >= 100 Then
Temp = Temp & Hundreds(Int(IntegerPart / 100)) & " "
IntegerPart = IntegerPart Mod 100
End If
If IntegerPart >= 20 Then
Temp = Temp & Tens(Int(IntegerPart / 10)) & " "
IntegerPart = IntegerPart Mod 10
ElseIf IntegerPart >= 10 Then
Temp = Temp & Teens(IntegerPart - 9) & " "
IntegerPart = 0
End If
If IntegerPart > 0 Then Temp = Temp & Units(IntegerPart) & " "
Temp = Trim(Temp)
' Падежи для рублей
If IntegerPart Mod 100 >= 11 And IntegerPart Mod 100 <= 19 Then
Rubles = Temp & Currency & "ей"
Else
Select Case IntegerPart Mod 10
Case 1: Rubles = Temp & Currency & "ль"
Case 2, 3, 4: Rubles = Temp & Currency & "ля"
Case Else: Rubles = Temp & Currency & "лей"
End Select
End If
End If

' Обработка копеек
If Fractional > 0 Then
Temp = ""
IntegerPart = Fractional
If IntegerPart >= 100 Then
Temp = Hundreds(Int(IntegerPart / 100)) & " "
IntegerPart = IntegerPart Mod 100
End If
If IntegerPart >= 20 Then
Temp = Temp & Tens(Int(IntegerPart / 10)) & " "
IntegerPart = IntegerPart Mod 10
ElseIf IntegerPart >= 10 Then
Temp = Temp & Teens(IntegerPart - 9) & " "
IntegerPart = 0
End If
If IntegerPart > 0 Then Temp = Temp & Units(IntegerPart) & " "
Temp = Trim(Temp)
' Падежи для копеек
If IntegerPart Mod 100 >= 11 And IntegerPart Mod 100 <= 19 Then
Kopecks = Temp & "копеек"
Else
Select Case IntegerPart Mod 10
Case 1: Kopecks = Temp & "копейка"
Case 2, 3, 4: Kopecks = Temp & "копейки"
Case Else: Kopecks = Temp & "копеек"
End Select
End If
NumToText = Rubles & " " & Kopecks
Else
NumToText = Rubles
End If
End Function

После вставки кода функция станет доступна в Excel как =NumToText(). Примеры использования:

• =NumToText(1234,56) → "одна тысяча двести тридцать четыре рубля пятьдесят шесть копеек"
• =NumToText(5000; "долл.") → "пять тысяч долларов"
• =NumToText(1000001) → "один миллион один рубль"

Включите макросы в Файл → Параметры → Центр управления безопасностью → Параметры центра... → Включить все макросы|Скопируйте код в новый модуль (Alt+F11 → Вставка → Модуль)|Сохраните файл как .xlsm (с поддержкой макросов)|Проверьте функцию на тестовых данных: 0, 1, 1001, 1234567,89

=ЧИСЛОПРОПИСЬЮ(1234,56; "RUR")  ' → "Одна тысяча двести тридцать четыре рубля 56 копеек"
=ЧИСЛОПРОПИСЬЮ(100; "USD")       ' → "Сто долларов США"
=ЧИСЛОПРОПИСЬЮ(ДАТА(2023;5;15))  ' → "Пятнадцатое мая две тысячи двадцать третьего года"

=СЦЕПИТЬ(
ВПР(ЦЕЛОЕ(A1/100); Слова!A:B; 2; ЛОЖЬ); " ";
ВПР(ОСТАТ(ЦЕЛОЕ(A1/10);10); Слова!C:D; 2; ЛОЖЬ); " ";
ВПР(ОСТАТ(A1;10); Слова!E:F; 2; ЛОЖЬ)
)

Function MoneyToText(ByVal Amount As Double, Optional Currency As String = "руб.") As String
' ... (код аналогичен NumToText, но с forced обработкой копеек)
If Fractional = 0 Then
NumToText = Rubles & " 00 копеек"
Else
NumToText = Rubles & " " & Kopecks
End If
' Заглавная первая буква
NumToText = UCase(Left(NumToText, 1)) & Mid(NumToText, 2)
End Function

=СЦЕПИТЬ(
ВПР(ДЕНЬ(A1); Месяцы!A:B; 2; ЛОЖЬ); " ";
ТЕКСТ(Месяцы!VLOOKUP(МЕСЯЦ(A1); Месяцы!C:D; 2; FALSE); "Т"); " ";
ГОД(A1); " года"
)

Function DateToText(ByVal DateValue As Date) As String
Dim Days(31) As String, Months(12) As String
Days = Array("", "первое", "второе", "третье", "четвёртое", "пятое", _
"шестое", "седьмое", "восьмое", "девятое", "десятое", _
"одиннадцатое", "двенадцатое", "тринадцатое", "четырнадцатое", _
"пятнадцатое", "шестнадцатое", "семнадцатое", "восемнадцатое", _
"девятнадцатое", "двадцатое", "двадцать первое", "двадцать второе", _
"двадцать третье", "двадцать четвёртое", "двадцать пятое", _
"двадцать шестое", "двадцать седьмое", "двадцать восьмое", _
"двадцать девятое", "тридцатое", "тридцать первое")
Months = Array("", "января", "февраля", "марта", "апреля", "мая", "июня", _
"июля", "августа", "сентября", "октября", "ноября", "декабря")
DateToText = Days(Day(DateValue)) & " " & Months(Month(DateValue)) & " " & _
Year(DateValue) & " года"
End Function

If Number < 0 Then
NumToText = "минус " & NumToText(Abs(Number), Currency)
Exit Function
End If

Function MoneyToTextWithVAT(ByVal Amount As Double, ByVal VATRate As Double)
Dim MainText As String
MainText = MoneyToText(Amount)
MoneyToTextWithVAT = MainText & ", в том числе НДС " & VATRate & "% - " & _
MoneyToText(Amount * VATRate / (1 + VATRate))
End Function

=ЧИСЛОПРОПИСЬЮ(123; "UAH"; "UA")  ' украинский
=ЧИСЛОПРОПИСЬЮ(123; "KZT"; "KK")  ' казахский