Как в Excel вставить функцию «Сумма прописью»: 4 рабочих способа

Полный код функции для русского языка (с поддержкой копеек):

Function RubText(ByVal MyNumber As Currency) As String
Dim Rub As String, Kop As String, Temp As String
Dim DecimalPlace As Integer, Cnt As Integer

' Округление до 2 знаков после запятой
MyNumber = Round(MyNumber, 2)

' Разделение на рубли и копейки
Rub = Int(MyNumber)
Kop = Format((MyNumber - Rub) * 100, "00")

' Преобразование рублей
If Rub <> 0 Then
Temp = ConvertDigits(Rub)
' Склонение слова "рубль"
If Rub Mod 100 >= 11 And Rub Mod 100 <= 19 Then
Temp = Temp & " рублей"
Else
Select Case Rub Mod 10
Case 1: Temp = Temp & " рубль"
Case 2, 3, 4: Temp = Temp & " рубля"
Case Else: Temp = Temp & " рублей"
End Select
End If
Else
Temp = "ноль рублей"
End If

' Добавление копеек
If Kop <> "00" Then
Temp = Temp & " " & Kop & " копеек"
End If

RubText = Temp
End Function

Function ConvertDigits(ByVal MyNumber As Variant) As String
Dim Txt As String, i As Integer
Dim Ones(1 To 9) As String, Teens(1 To 9) As String
Dim Tens(1 To 9) As String, Hundreds(1 To 9) As String

' Массивы для чисел
Ones(1) = "один": Ones(2) = "два": Ones(3) = "три": Ones(4) = "четыре"
Ones(5) = "пять": Ones(6) = "шесть": Ones(7) = "семь"
Ones(8) = "восемь": Ones(9) = "девять"

Teens(1) = "десять": Teens(2) = "одиннадцать": Teens(3) = "двенадцать"
Teens(4) = "тринадцать": Teens(5) = "четырнадцать": Teens(6) = "пятнадцать"
Teens(7) = "шестнадцать": Teens(8) = "семнадцать": Teens(9) = "восемнадцать"

Tens(2) = "двадцать": Tens(3) = "тридцать": Tens(4) = "сорок"
Tens(5) = "пятьдесят": Tens(6) = "шестьдесят": Tens(7) = "семьдесят"
Tens(8) = "восемьдесят": Tens(9) = "девяносто"

Hundreds(1) = "сто": Hundreds(2) = "двести": Hundreds(3) = "триста"
Hundreds(4) = "четыреста": Hundreds(5) = "пятьсот": Hundreds(6) = "шестьсот"
Hundreds(7) = "семьсот": Hundreds(8) = "восемьсот": Hundreds(9) = "девятьсот"

' Логика преобразования
If MyNumber = 0 Then Exit Function
If MyNumber < 10 Then
Txt = Ones(MyNumber)
ElseIf MyNumber < 20 Then
Txt = Teens(MyNumber - 9)
ElseIf MyNumber < 100 Then
Txt = Tens(Int(MyNumber / 10)) & " " & ConvertDigits(MyNumber Mod 10)
ElseIf MyNumber < 1000 Then
Txt = Hundreds(Int(MyNumber / 100)) & " " & ConvertDigits(MyNumber Mod 100)
Else
Txt = ConvertDigits(Int(MyNumber / 1000)) & " тысяч" & ConvertDigits(MyNumber Mod 1000)
End If

ConvertDigits = Application.WorksheetFunction.Trim(Txt)
End Function

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

• 🔹 Работает с любыми числами (включая миллиарды).
• 🔹 Корректно склоняет валюту ("рубль"/"рубля"/"рублей").
• 🔹 Можно модифицировать под другие валюты (доллары, евро).

⚠️ Внимание: Если при вводе формулы =RubText(A1) появляется ошибка #ИМЯ?, проверьте:

1. Включены ли макросы в настройках Excel (Файл → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Включить все макросы).
2. Правильно ли скопирован код (особенно русские символы в массивах).

Макросы включены в настройках Excel|Файл сохранён в формате .xlsm (с поддержкой макросов)|Код скопирован без ошибок|Ячейка с числом имеет формат "Общий" или "Числовой"-->

4. Способ: Надстройки для Excel (самый удобный вариант)

Если вы не хотите возиться с формулами или VBA, установите специальную надстройку. Самые популярные решения:

Инструкция по установке надстройки ЧислоПрописью:

1. Скачайте файл .xlam с официального сайта.
2. Откройте Excel и перейдите в Файл → Параметры → Надстройки.
3. Внизу окна выберите Перейти... (или Go... в англоязычной версии).
4. Нажмите Обзор, найдите скачанный файл и добавьте его.
5. Теперь в Excel появится новая функция =ЧИСЛОПРОПИСЬЮ(A1).

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

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

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

• 🔸 Ошибка #ИМЯ? — возникает, если макрос не подключён или название функции написано с ошибкой. Проверьте регистр (например, =RubText, а не =rubtext).
• 🔸 Неправильное склонение валют — если функция выдаёт "1 рублей" вместо "1 рубль", исправьте код в разделе склонения (см. раздел с VBA).
• 🔸 Округление копеек — если копейки отображаются как "99 копеек" вместо "99 копеек", проверьте формат ячейки с исходным числом (должен быть "Числовой" с 2 знаками после запятой).
• 🔸 Медленная работа файла — если в книге много вызовов функции =RubText, отключите автоматический пересчёт (Формулы → Параметры вычислений → Вручную).

Также обратите внимание на региональные настройки Windows: если в системе установлен английский язык, функция может выдавать результат на английском даже при русском коде. Чтобы исправить это, измените язык системы на русский в Панель управления → Язык и региональные стандарты.

6. Альтернативные решения: Онлайн-сервисы и Power Query

Если вы работаете с облачными документами или не хотите устанавливать надстройки, рассмотрите эти варианты:

1. Онлайн-конвертеры:

• 🌐 NumWord — поддерживает 20+ языков, включая русский.
• 🌐 Text.ru — простой интерфейс, подходит для одноразового использования.
• 🌐 Calculat.org — конвертация чисел до 10¹⁰⁰.

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

1. Скопируйте число из Excel.
2. Вставьте в поле на сайте и получите текст прописью.
3. Скопируйте результат обратно в Excel (вставляйте как Текст, чтобы избежать автоматического преобразования в число).

2. Power Query (для Excel 2016 и новее):

Если вам нужно преобразовать большой массив данных, воспользуйтесь Power Query:

1. Выделите диапазон с числами.
2. Перейдите в Данные → Получить данные → Из таблицы/диапазона.
3. В редакторе Power Query добавьте пользовательский столбец с формулой на языке M:

   = Number.ToText([Column1], "ru-RU")

4. Загрузите данные обратно в Excel.

Минус этого метода — результат будет на английском ("one thousand"), но его можно доработать через замену текста.

7. Сравнение методов: Какой выбрать?

Рекомендации по выбору:

• 🔹 Для одноразового использования — онлайн-сервисы или формула ЕСЛИ.
• 🔹 Для регулярной работы — VBA-макрос или надстройка.
• 🔹 Для корпоративного использования — надстройка с поддержкой нескольких валют.

FAQ: Частые вопросы по теме

If Rub Mod 100 >= 11 And Rub Mod 100 <= 19 Then
Temp = Temp & " рублей"
Else
Select Case Rub Mod 10
Case 1: Temp = Temp & " рубль"
Case 2, 3, 4: Temp = Temp & " рубля"
Case Else: Temp = Temp & " рублей"
End Select
End If

function RubText(number) {
// Код функции (аналогично VBA)
return result;
}

If MyNumber < 0 Then
RubText = "минус " & RubText(Abs(MyNumber))
Exit Function
End If