В Microsoft Excel нет встроенной русскоязычной функции для автоматического преобразования чисел в текст (прописью). Тем не менее, эту задачу можно легко решить с помощью создания собственного макроса (UDF) на языке VBA. Это быстро, бесплатно и работает во всех версиях Excel.
Шаг 1. Откройте редактор макросов VBA
Откройте вашу рабочую книгу Excel и нажмите комбинацию клавиш Alt + F11. Перед вами откроется окно встроенного редактора Visual Basic for Applications.
Шаг 2. Создайте новый программный модуль
В верхнем меню редактора выберите пункт Insert, а затем нажмите на Module. В проекте появится пустой лист для ввода кода.
Шаг 3. Вставьте код функции
Скопируйте представленный ниже код макроса и вставьте его в открывшееся окно модуля. Этот скрипт преобразует числа от 1 до 99 в текст:
Function PropisSimple(n As Integer) As String
Dim units, tens, teens
units = Array("", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
teens = Array("десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", "девятнадцать")
tens = Array("", "", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто")
If n < 10 Then
PropisSimple = units(n)
ElseIf n < 20 Then
PropisSimple = teens(n - 10)
ElseIf n < 100 Then
PropisSimple = tens(Int(n / 10)) & " " & units(n Mod 10)
End If
End FunctionШаг 4. Используйте функцию на листе Excel
Вернитесь на рабочий лист Excel. Теперь вы можете использовать созданную функцию так же, как и стандартные формулы. Введите в любую ячейку:
=PropisSimple(A1)где в ячейке A1 находится число от 1 до 99.
Важно: Чтобы созданный макрос не удалился при закрытии файла, обязательно сохраните документ в формате книги Excel с поддержкой макросов (расширение .xlsm).
Дополнительно: Как использовать готовые надстройки
Если вам нужно переводить в пропись огромные суммы с копейками и рублями, лучше воспользоваться готовыми надстройками (например, Prowords или надстройкой от Microsoft — «Число прописью»). Они устанавливаются через меню «Параметры» -> «Надстройки» и добавляют глобальные функции для всех ваших документов без необходимости копировать код в каждый файл.
Частые ошибки / Устранение неполадок
При работе с макросами и текстовыми функциями пользователи часто сталкиваются со следующими трудностями:
- Ошибка #ИМЯ? (#NAME?): Возникает, если вы опечатались в названии функции или макросы отключены в настройках безопасности Excel. Перейдите в Центр управления безопасностью и разрешите запуск макросов.
- Лишние пробелы в результате: Если функция возвращает текст с некорректными отступами, воспользуйтесь руководством Как убрать лишние пробелы в Excel: рабочие способы.
- Не получается извлечь число: Если исходные данные содержат текст вперемешку с цифрами, сначала очистите их с помощью инструкции Как извлечь число из текста в Excel: рабочие способы.
Для создания профессиональных и наглядных отчетов вам также может пригодиться статья Как вставить фото в таблицу Excel: пошаговая инструкция.
Часто задаваемые вопросы
Можно ли перевести число в пропись без макросов?
Стандартной функции в Excel для русского языка нет. Без макросов это можно сделать только с помощью очень громоздких формул или сторонних надстроек.
Будет ли работать макрос на другом компьютере?
Да, если вы сохраните файл в формате .xlsm (с поддержкой макросов) и на другом компьютере будет разрешен запуск макросов в настройках безопасности Excel.
