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

Шаги:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте новый модуль: Вставка → Модуль.
3. Скопируйте этот код:

Function NumToTextRub(ByVal MyNumber As Currency) As String
Dim Rubles As String, Kop As String, Temp As String
Dim DecimalPlace As Integer, Count As Integer

' Обработка копеек
MyNumber = Round(MyNumber, 2)
DecimalPlace = InStr(MyNumber, ",")
If DecimalPlace > 0 Then
Kop = GetTens(Right(MyNumber, 2))
Temp = Left(MyNumber, DecimalPlace - 1)
Else
Kop = "00"
Temp = MyNumber
End If

' Обработка рублей
Count = 1
Do While Temp <> ""
Rubles = GetHundreds(Right(Temp, 3)) & Rubles
If Count = 1 And Right(Temp, 3) <> "000" Then Rubles = Rubles & " тысяч "
If Count = 2 And Right(Temp, 3) <> "000" Then Rubles = Rubles & " миллионов "
If Count = 3 And Right(Temp, 3) <> "000" Then Rubles = Rubles & " миллиардов "
Temp = Left(Temp, Len(Temp) - 3)
Count = Count + 1
Loop

' Форматирование результата
NumToTextRub = Application.WorksheetFunction.Trim(Rubles) & " рублей " & Kop & " копеек"
End Function

' Вспомогательные функции
Function GetHundreds(ByVal MyNumber As String) As String
' ... (здесь полный код обработки сотен, десятков и единиц)
End Function

Function GetTens(TensText As String) As String
' ... (код для обработки десятков)
End Function

После вставки кода:

• 🔄 Закройте редактор VBA и сохраните файл как .xlsm (с поддержкой макросов).
• 📊 В любой ячейке используйте формулу: =NumToTextRub(A1).

4. Обработка валют: доллары, евро, тенге

Для работы с иностранными валютами модифицируем функцию VBA или используем надстройки с поддержкой мультивалютности. Например, для долларов:

Function NumToTextUSD(ByVal MyNumber As Currency) As String
' Аналогичный код, но с заменой:
NumToTextUSD = Application.WorksheetFunction.Trim(Rubles) & " dollars and " & Kop & " cents"
End Function

Ключевые отличия для разных валют:

Для мультивалютных документов удобно создать выпадающий список с выбором валюты и использовать ВЫБОР():

=ВЫБОР(B1; NumToTextRub(A1); NumToTextUSD(A1); NumToTextEUR(A1))

Где B1 — ячейка с номером валюты (1 — рубли, 2 — доллары и т.д.).

5. Обработка ошибок: что делать, если числа не преобразовываются

Даже с правильно настроенными функциями вы можете столкнуться с проблемами. Вот топ-5 ошибок и их решения:

1. #ИМЯ? — функция не распознаётся.

   Причина: не активирована надстройка или не сохранён макрос. Решение: проверьте Параметры → Надстройки или сохраните файл как .xlsm.

2. #ЗНАЧ! — неверный формат данных.

   Причина: в ячейке текст вместо числа. Решение: используйте =ЗНАЧЕН(A1) для преобразования.

3. Неправильные окончания (например, "1 рублей").

   Причина: ошибка в коде склонения. Решение: проверьте логику в функции GetHundreds.

4. Округление копеек (например, 99.99 → "100 рублей").

   Причина: отсутствует обработка дробной части. Решение: добавьте Round(MyNumber, 2).

5. Макросы отключены — функции VBA не работают.

   Причина: настройки безопасности. Решение: Файл → Параметры → Центр управления безопасностью → Параметры центра → Включить все макросы.

⚠️ Внимание: Если вы передаёте файл с макросами коллегам, они также должны включить макросы при открытии. Иначе функции вернут ошибку #ИМЯ?.

6. Автоматизация для бухгалтерии: шаблоны документов

Для регулярного использования (например, в платежных поручениях) создайте шаблон с прописными суммами. Пример структуры:

Дополнительные советы для бухгалтерских документов:

• 📑 Используйте Защитить лист (Рецензирование → Защитить лист), чтобы избежать случайных изменений в формулах.
• 🔄 Связывайте шаблон с внешними данными (например, выгрузкой из 1С) через Power Query.
• 🖨 Для печати настройте Параметры страницы, чтобы прописная сумма не обрезалась.

Пример готового шаблона для платежного поручения:

FAQ: Частые вопросы по преобразованию чисел в слова

NumToTextRub = Application.WorksheetFunction.Trim(Rubles) & " гривень " & Kop & " копійок"

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