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

В работе с Microsoft Excel часто возникает задача преобразовать числовые значения в текстовый формат. Это может понадобиться для генерации отчётов, создания шаблонов договоров, формирования чеков или просто для унификации данных. Например, сумма 1250 рублей в текстовом виде должна отображаться как "одна тысяча двести пятьдесят рублей".

Проблема в том, что стандартные функции Excel не всегда корректно обрабатывают русскоязычные числительные. Функция ТЕКСТ() преобразует число в строку, но не прописывает его словами. А встроенная функция ЧИСЛТЕКСТ() (или NUMBERSTRING в английских версиях) работает только с ограниченным набором языков и часто требует ручной настройки.

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

—— • ——

1. Стандартная функция ЧИСЛТЕКСТ: плюсы и ограничения

В русскоязычных версиях Excel есть встроенная функция ЧИСЛТЕКСТ(число; [формат]), которая преобразует число в текстовое представление. Например, формула =ЧИСЛТЕКСТ(1250; "Р") вернёт "одна тысяча двести пятьдесят рублей".

Основные преимущества метода:

• 🔹 Простота использования — не требует установки надстроек или знания программирования.
• 🔹 Поддержка валют — автоматически подставляет "рубли", "доллары" или "евро" при указании формата "Р", "Д", "Е".
• 🔹 Гибкость — можно настраивать отображение копеек (например, ЧИСЛТЕКСТ(1250,50; "Р") → "одна тысяча двести пятьдесят рублей 50 копеек" ).

Однако у функции есть критические недостатки:

• ⚠️ Не работает в Excel Online и мобильных версиях.
• ⚠️ Ограничена поддержка языков — в английской версии Excel её аналог (NUMBERSTRING) отсутствует.
• ⚠️ Ошибки с большими числами (более 999 триллионов) и дробными значениями.

⚠️ Внимание: Если после ввода формулы вы видите ошибку #ИМЯ?, проверьте регион вашей версии Excel. В некоторых сборках функция называется ЧИСЛО.ПРОПИСЬЮ().

—— • ——

2. Альтернативные функции: ТЕКСТ и СЦЕПИТЬ

Если ЧИСЛТЕКСТ недоступна или не подходит, можно использовать комбинацию функций ТЕКСТ() и СЦЕПИТЬ() (или CONCATENATE в английских версиях). Этот метод не преобразует число в пропись, но позволяет отформатировать его как текст с разделителями, валютами или дополнительными символами.

Примеры применения:

• 📌 Форматирование с разделителями: =ТЕКСТ(1250000; "# ##0") → "1 250 000".
• 💰 Добавление валюты: =СЦЕПИТЬ(ТЕКСТ(1250; "0"); " руб.") → "1250 руб."
• 📅 Для дат: =ТЕКСТ(СЕГОДНЯ(); "ДД ММММ ГГГГ") → "05 мая 2026".

Для полноценного преобразования в пропись потребуется пользовательская функция (см. раздел 4). Однако комбинация ТЕКСТ + СЦЕПИТЬ подходит для большинства бизнес-задач, где нужно просто унифицировать отображение чисел.

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

—— • ——

3. Надстройки для Excel: готовые решения

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

Популярные надстройки для преобразования чисел в текст:

• 🔧 NumWords — бесплатная надстройка с поддержкой 20+ языков, включая русские рубли и копейки. Скачать.
• 🔧 Kutools for Excel — платный пакет инструментов с функцией =NUMTOWORD(), которая работает с валютами и дробными числами.
• 🔧 BANANA — русскоязычная надстройка, оптимизированная для бухгалтерских задач (НДС, налоги, суммы прописью).

Function RUBTEXT(ByVal MyNumber As Currency) As String
Dim Rubles As String, Kop As String
Dim Temp As String

' Основная часть (рубли)
Temp = ConvertLessThanOneThousand(Int(MyNumber))
If Int(MyNumber / 1000) > 0 Then
Temp = ConvertLessThanOneThousand(Int(MyNumber / 1000)) & " тысяч " & Temp
End If
Rubles = Application.WorksheetFunction.Trim(Temp)

' Копейки
Kop = ConvertLessThanOneThousand(CInt((MyNumber - Int(MyNumber)) * 100))

' Итоговая строка
If Len(Rubles) > 0 And Len(Kop) > 0 Then
RUBTEXT = Rubles & " рублей " & Kop & " копеек"
ElseIf Len(Rubles) > 0 Then
RUBTEXT = Rubles & " рублей"
Else
RUBTEXT = Kop & " копеек"
End If
End Function

Function ConvertLessThanOneThousand(ByVal MyNumber As Integer) As String
Dim Result As String
' ... (здесь должен быть полный код обработки чисел до 999)
' Пример для числа 123: "сто двадцать три"
End Function

=ЗНАЧЕН("1250")

=ТЕКСТ(A1; "0") & " руб."