сумма прописью в Excel для бухгалтеров, экономистов, финансистов и менеджеров

Прописать формулу для суммы прописью

​ формула будет продолжать​​) в текст:​ например: четыреста сорок​.​ IBM.​: Да похоже, что​1. Работают до​Самойленко Михаил сдал​RAN​ единицы If Mid(SumInt,​​ txt = txt​

​ = «девятьсот «:​​ = «тринадцать «:​ Select End If​ 1) Case «4»:​ Десятки(Mid(strЧисло, Поз +​ decmil_txt & mil_txt​ работать, не смотря​

​=СЖПРОБЕЛЫ(​​ четыре руб. 00​Для того, чтобы проверить​Сам такую в​ от версии Офиса​ 999 трлн.​

​ сдал сдал​​: Вообще-то я про​ shag — 1,​ & Edinicy(vl) &​​ tys(9) = «тысяч​ EdinicyPoslednie(13) = IIf(Valuta​​ End Function​​ Десятки = «сорок​

​ 1, 2), «м»)​​ & sottys_txt &​ на то, что​ИНДЕКС(Миллионы;ОСТАТ(ОТБР(B6/1000000);1000000)+1)&» «&​ коп.​

​ как работает только​​ свое время написал​ как раз и​2. Делают первую​​Сандюк Валерий сдал​ поиск по сайту​ 1) 1​

​ mln(vl) ‘числа в​​ «: mln(9) =​ = 0, «тринадцать​​Можно написать алгоритм макро​ «: n =​ strМиллиарды = strМиллиарды​ dectys_txt & tys_txt​ Личная книга макросов​ИНДЕКС(Тысячи;ОСТАТ(ОТБР(B6/1000);1000)+1)&» «&​Иногда требуется записать число​

​ что установленная надстройка​​ на Паскале :-)​ не зависит.​​ букву прописной, остальные​

​ сдал сдал​​ говорил. Кнопочка между​

​ Or Mid(SumInt, shag​​ диапозоне от 11​​ «миллионов «: mlrd(9)​​ евро», IIf(Valuta =​ программы по-другому и​ Right(n, 1) Case​ & ИмяРазряда(strМиллиарды, Mid(strЧисло,​ & sot_txt &​ не пересылалась, т.е.​​ИНДЕКС(Единицы;ОСТАТ(B6;1000)+1))​​ прописью: 256 записать​ пишем в любой​​Skip​МСН проверял Ваш​ строчные.​Сурженко Александр не​ «Главная» и «Правила».​ — 1, 2)​​ до 19 склоняются​​ = «миллиардов «​

​ 1, «тринадцать рублей»,​​ еще сделать так,​​ «5»: Десятки =​ Поз + 1,​ dec_txt & ed_txt​

​ Ваши коллеги получившие​​Задача в принципе решена,​​ как двести пятьдесят​ свободной ячейке листа​​: Сумма прописью​ файл на 2010,​

​3. Округляют до​​ сдал сдал сдал​MCH​​ = «10» Then​​ на «мільярдов» независимо​​ ‘——————————————— On Error​ «тринадцать долларов»)) Edinicy(14)​ чтобы она дописывала​​ «пятьдесят «: n​ 2), «миллиард «,​ End Function ‘вспомогательная​ файл, смогут с​ осталось только разместить​

​ шесть. Набирать этот​​ произвольное число. Выделяем​Ниже вы найдете​ я — на​ целых копеек.​Швец Алена сдал​: Кстати, Сумма прописью​ vl = Mid(SumInt,​ от последнего числа​

​ Resume Next SumInt​​ = «четырнадцать «:​ валюту суммы прописью.​ = Right(n, 1)​

​ «миллиарда «, «миллиардов​​ функция для выделения​​ ним работать как​ вспомогательные диапазоны в​ текст безумно скучно,​​ любую другую ячейку.​ готовую пользовательскую функцию​ 2003. Результат одинаковый​4. Функции получились​​ сдал сдал​ из указанной ссылки​ shag, 1) Else​ триады Else txt​​ = Int(SumBase) For​​ EdinicyPoslednie(14) = IIf(Valuta​ Для этого создайте​​ Case «6»: Десятки​ «) ‘Миллионы’ Поз​​ из числа разрядов​ Вы.​​ Личную книгу макросов​ кроме того легко​​ Кликаем по значку​ на VBA, которая​​ — на листе​ относительно небольшими по​​Ющенко Мария сдал​ не корректна​​ vl = Mid(SumInt,​

​ = txt &​​ x = Len(SumInt)​ = 0, «четырнадцать​​ Module2 и введите​ = «шестьдесят «:​

excelworld.ru>

С помощью пользовательской функции

      Как мой взгляд, это самое оптимальное и простое, относительно конечно, решение поставленного вопроса. Вы просто включаете функцию и пользуетесь ее с удовольствием.

     Для этого вам необходимо выполнить некоторые действия. Сначала скачиваете файл надстройки здесь. После, переносите его в папку AddIns, которую можно найти по пути C:Documents and SettingsUserApplication DataMicrosoftAddIns, только вы вместо «User» подставляете имя вашего пользователя Windows. Еще может возникнуть проблема в отображении папки «Application Data», она может быть скрыта, тогда вам в настройках «Свойства папки» нужно активировать пункт «Показать скрытые файлы и папки». image      В диалоговом окне «Настройки» ставим галочку напротив включаемой надстройки «Сумма Прописью» и нажимаем «ОК». image

В Excel 2007 макросы можно включить, если зайти в параметры Excel (Круглая кнопка «Офис»->Параметры Excel).

В окне безопасности слева выбираем пункт «Параметры макросов», а в середине устанавливаем позицию «Включить все макросы». Нажимаем «ОК» во всех окнах параметров программы Excel.

Далее вам понадобится сам файл надстройки с преобразованием числа в пропись.(Скачать файл Num2Text).

Полученный файл надстройки, необходимо поместить в папку с дополнительными «библиотеками» Microsoft Office. В различных версиях офисного пакета расположение подобных «библиотек» немного различается, но общий смысл остается тем же – все они помещаются в папку «Library». В Excel 2003 полный путь к папке – «C:Program FilesMicrosoft OfficeOFFICE11Library», в Excel 2007 полный путь к папке – «C:Program FilesMicrosoft OfficeOFFICE12Library»

Обратите внимание, в этой папке уже могут быть другие файлы с расширением «xla»

Откроется окно со списком надстроек. Отметьте галочкой нужную (в данном случае Num2Text) и нажмите кнопку «ОК».

Перемещаемся в раздел «Параметры».

В активном окне параметров переходим в раздел «Надстройки».

Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».

Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».

Можно в поле занести адрес любой ячейки. Это делается либо путем ручной записи координат этой ячейки, либо простым кликом по ней в то время, когда курсор находится в поле параметра «Сумма». Жмем на кнопку «OK».

После этого, любое число, которое записано в ячейку, указанную вами, будет отображаться в денежном виде прописью в том месте, где установлена формула функции.

Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».

Если вы введете в ячейку формулу =Сумма_прописью(A2) , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.

Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.

Office 365, AD, Active Directory, Sharepoint, C#, Powershell. Технические статьи и заметки.

Excel. Сумма прописью без макросов и надстроек

Дано: Excel c числами и суммами в рублях в ячейках. Задача: написать данные числа прописью без использования макросов и каких-либо надстроек программы Excel, т.е. написать число прописью при помощи стандартных формул.

Пример файла excel с таким решением можно скачать здесь. См. также Сумма прописью онлайн (если просто нужно получить результат). Что означает прописью? Данный файл производит следующие манипуляции с числами:

1. Формула 1 преобразовывает число в сумму прописью следующего формата: «0 (пропись) рублей 00 копеек»

После того, как она набрана в нужной ячейке, нам остается только нажать Enter, чтобы получить результат.

Или же мы можем вместо числа указать адрес ячейки: =Сумма_прописью(B3) .

После нажатия клавиши Enter мы также получаем результат в виде суммы прописью в ячейке с формулой.

Использование надстройки

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

Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.

  1. Открываем программу Excel и переходим во вкладку «Файл».
  2. Перемещаемся в раздел «Параметры».
  3. В активном окне параметров переходим в раздел «Надстройки».
  4. Далее, в параметре настроек «Управление» устанавливаем значение «Надстройки Excel». Жмем на кнопку «Перейти…».
  5. Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».
  6. В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».
  7. Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».
  8. Для того, чтобы проверить как работает только что установленная надстройка пишем в любой свободной ячейке листа произвольное число. Выделяем любую другую ячейку. Кликаем по значку «Вставить функцию». Он расположен слева от строки формул.
  9. Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».
  10. Отрывается окно аргументов функции Сумма_прописью. Оно содержит только одно поле «Сумма». Сюда можно записать обычное число. Оно в выделенной ячейке отобразиться в формате записанной прописью денежной суммы в рублях и копейках.
  11. После этого, любое число, которое записано в ячейку, указанную вами, будет отображаться в денежном виде прописью в том месте, где установлена формула функции.

Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».

Если вы введете в ячейку формулу =Сумма_прописью(A2) , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.

Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.

Мы рады, что смогли помочь Вам в решении проблемы. Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Автор: · Опубликовано 01.03.2018 · Обновлено 08.02.2019

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

Для начала нужно открыть Эксель и написать какое-нибудь число.

Для того чтобы его перевести в текстовый вид, нужно скачать дополнительный макрос, написанный на vba. Данная функция по умолчанию в редакторе отсутствует.

Num2Text

Прежде чем приступить к дальнейшим действиям, вам необходимо скачать данную надстройку. Официального сайта в этом случае нет. Таких модулей в интернете довольно много.

Будьте внимательны. Скачивайте только те файлы, у которых расширение xla, а не exe, поскольку во втором случае там могут быть вирусы.

После этого нужно сделать следующее:

  1. Зайдите в пункт меню «Файл».
  1. В появившемся окне перейдите в раздел «Параметры».
  1. Затем нажимаем на пункт «Надстройки».
  1. Кликните на кнопку «Перейти» (предварительно убедитесь, что рядом выбран пункт «Надстройки Excel»).
  1. После этого у вас появится окно, в котором можно вставить дополнительные файлы, чтобы редактор «узнал» новые функции. Нажмите на кнопку «Обзор».
  1. После этого укажите заранее скаченный файл и кликните «Открыть».
  1. Затем нужно поставить галочку около нового пункта и нажать на «ОК».

На этом этап подготовки завершен. Теперь Excel сможет делать перевод цифр в текстовый вид.

Создание простой формулы

Для того чтобы увидеть возможности новых функций, нужно сделать следующее:

  1. Перейдите на любую соседнюю ячейку. Кликните на иконку «Fx».
  1. В появившемся окне в разделе категории выберите пункт «Полный алфавитный перечень».
  1. Найдите там функцию «Сумма_прописью». Выберите её и нажмите на «OK».
  1. После этого появится окно, в котором нужно указать аргументы функции. Следует указать ячейку, значение которой должно писаться прописью. Для этого достаточно кликнуть на неё.
  1. Сразу после этого адрес ячейки подставится автоматически. Для продолжения кликните «OK».
  1. В результате этого вы увидите вашу сумму прописью. Вплоть до копеек. Благодаря этому можно переводить даже дробные числа.
  1. Попробуйте изменить ваше значение на любое другое. Сумма прописью изменится мгновенно.

Сумма ячеек

В финансовых отчетах необходимо считать сумму различных ячеек или столбцов. В этом случае формула немного усложняется. Рассмотрим, как это сделать.

  1. Проставьте цифры в 4 ячейки подряд.
  1. Кликните на ячейку, в которой вы работали до этого. Скопируйте формулу при помощи сочетания клавиш Ctrl+C.
  1. После этого перейдите в другую ячейку, чтобы создать новую формулу. Активируйте строку ввода уравнений.
  1. Нажмите на клавиатуре на кнопки Ctrl+V.
  1. Удаляем аргумент функции, то есть «C4» в нашем случае. Вместо этого в скобке пишем обычную формулу суммы, которая будет считать диапазон наших ячеек.

=Сумма_прописью(СУММ(A4:D4))

  1. В результате этого должно получиться следующее.
  1. Нажмите на клавиатуре на кнопку Enter. В итоге вы увидите, что сумма указанного диапазона значений отобразилась прописью.

У данного модуля есть большой минус – вы сможете работать только с российкими рублями. То есть, не получится сделать сумму прописью для узбекских сумов, украинских гривен, казахских тенге, американских долларов, белорусских рублей, английских фунтов и так далее. Язык поменять не выйдет. Для таких случаев существует альтернативный метод.

Sumprop

Установка данного модуля происходит точно так же, как в описанном выше способе, только на этот раз выбираем другой файл.

Ставим галочку возле новой надстройки и нажимаем на кнопку «OK».

После этого в вашем редакторе появится еще несколько новых функций. Рассмотрим их всех.

Работа с формулами

Для этого нужно сделать следующие действия.

  1. Первым делом создадим наглядную таблицу. В одном столбце у нас будут цифры, во втором – результат. Для демонстрации возможностей будем использовать дробные числа.
  1. Переходим первую пустую ячейку и нажимаем на кнопку «Fx».

В появившемся окне выберите категорию «Определенные пользователем». Новые функции будут именно там.

Будем вставлять поочередно. Именно в той хронологии, как они идут в списке.

СуммаПрописью

  1. Выберите соответствующий пункт и нажмите на кнопку «OK».

Справка нам подсказывает, что эта функция для рублей.

  1. В появившемся окне нужно вставить аргумент. Для этого достаточно кликнуть на ячейку с числом.
  1. Благодаря этому адрес подставится автоматически. Для продолжения нажмите на кнопку «OK».
  1. В результате этого вы увидите следующее.

СуммаПрописьюГривны

  1. Выделяем следующую строчку и кликаем на иконку вставки функции.
  1. На этот раз выбираем вторую функцию. Для вставки нажимаем на кнопку «OK».
  1. Затем кликаем на следующее число.
  2. После автоматической подстановки нажмите на кнопку «OK».
  1. Результат будет следующим.

СуммаПрописьюДоллары

  1. Переходим на третью строчку и кликаем на иконку «Fx».
  1. Выбираем «долларовую» функцию и нажимаем на «OK».
  1. Указываем соответствующий аргумент.
  1. Кликаем на «OK».
  1. Благодаря этому целое число отображается в долларах, а дробное – в центах.

СуммаПрописьюЕвро

  1. Переходим на четвертую строчку и вызываем окно вставки уравнения.
  1. Указываем функцию для «Евро».
  1. Кликаем на соответствующий аргумент.
  1. Нажимаем на кнопку «OK».
  1. Результат будет следующим.

Обратите внимание на то, что количество центов (копеек) выводится всегда. Даже если их 0.

ЧислоПрописью

Преимущество данного модуля в том, что вы можете осуществить преобразование без дополнительных денежных приставок.

  1. Перейдите на последнюю строчку и нажмите на иконку «Fx».
  1. Выберите последнюю функцию.
  1. В качестве аргумента укажите последнее оставшееся число.
  1. Для вставки нажмите на кнопку «OK».

В результате проделанных действий, мы увидим следующую таблицу.

Обратите внимание на то, что во всех ячейках сумма прописью указывается с большой буквы и только число – с маленькой.

Платные модули

Описанные выше надстройки были бесплатными. В интернете можно найти и более мощные инструменты, но за определенную плату.

На сайте PlanetaExcel продается надстройка PLEX.

Нам показывают, что в ней находится огромная библиотека формул.

На момент публикации статьи стоимость надстройки оценивается в 795 рублей.

Разумеется, они предоставляют возможность бесплатного тестирования, но количество запусков ограничено.

Заключение

Прочитав данную инструкцию, вы должны были понять, как настроить редактор Excel, чтобы можно был выводить сумму прописью. Если у вас что-то не получается, возможны следующие варианты:

  • вы скачали не тот файл;
  • вы не добавили эту надстройку в Эксель;
  • вы выделяете не те ячейки;
  • используете не те функции;
  • допускаете опечатку при подсчете суммы различных значений.

Видеоинструкция

Если у вас остались какие-нибудь вопросы или вы так и не смогли найти причину своих проблем, рекомендуется посмотреть видеоролик, в котором приводятся дополнительные комментарии к описанным выше инструкциям.

Очень часто при работе с документами мы сталкиваемся с необходимостью написать сумму прописью. И казалось бы, в этом нет ничего сложного, но когда речь идет о десятках тысяч строк, мы задумываемся. Решение на самом деле очень просто – необходимо использовать специализированное дополнение, которое делает всю работу за нас. Сегодня мы немного подробнее расскажем о специальном расширении NUM2TEXT.XLA, ну а в самом низу этой же странички вы сможете бесплатно скачать его последнюю версию по прямой ссылке.

Для чего это нужно?

Очень часто, работая в бухгалтерии, человек сталкивается с необходимостью, как мы уже говорили, прописать какую-либо сумму прописью. Если речь идет о таком программном обеспечении, как, например, 1C, сложностей не возникает. Но работая с Microsoft Excel, мы на 100% ощущаем всю горечь проблемы. И тогда становится ясно, что без дополнения NUM2TEXT уже не обойтись.

Данное расширение подойдет не только для профессионалов, но и для обычных пользователей. Тем более что в самом конце этой странички вы сможете полностью бесплатно скачать его по прямой ссылке.

Как установить

Установить NUM2TEXT для нашего офисного пакета очень просто. Делается это следующим образом:

  1. Сначала, при помощи имеющейся в самом низу странички кнопки, скачиваем архив с нужным нам файлом. После этого распаковываем его.
  2. Далее запускаем программу Excel и переходим в главное меню, а именно раздел «Файл». Далее жмем по ссылке «Параметры».
  3. Выбираем кнопку «Надстройки», а потом кликаем по «Управление».
  4. Жмем ссылку «Надстройки Excel», а после нее «Перейти…».
  5. Переходим к «Обзор…» к и находим тот файл, который недавно скачали.
  6. Активируем наш плагин, установив галочку напротив его названия.

После этого добавленный инструмент можно будет использовать, а для того, чтобы проверить, работает ли он, делаем следующее:

  1. Выделяем какую-либо ячейку в таблице Excel, а потом вписываем в нее значение.
  2. Выделив вторую ячейку, выбираем инструмент «Вставить функцию» (кнопка, расположенная немножко левее, чем инструмент для ввода формул).
  3. Выбираем «Сумма прописью» и кликаем «ОК».
  4. В текстовом поле «Аргументы» устанавливаем указатель мыши на «Сумма» и указываем наш аргумент.

После этого число, которое мы указали, должно отобразиться прописью. Соответственно, если это произошло, значит мы все сделали правильно.

Как пользоваться

Для того чтобы инструмент, добавленный в Microsoft Excel, начал работать, необходимо проделать ряд несложных шагов, а именно: добавляем формулу, к примеру, это может быть: «=Сумма_прописью (сумма)» (вместо «сумма» — нужное число) или «=Сумма_прописью (координата) (вместо «координата» — адрес ячейки, в которой содержится число).

Ключ активации и загрузка

Как мы уже говорили, рассматриваемый инструмент является полностью бесплатным и никаких дополнительных действий для своей активации не предусматривает.

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

Зачем это нужно

Число, указанное прописью, применяют во многих бухгалтерских документов. Если фирма использует специальные программы, например 1С для формирования отчетности, то такой потребности не возникнет. Но когда нужно ввести сумму прописью при заполнении бумаг в обычных программах, могут возникнуть проблемы. Это требует большого количества времени, поэтому встает вопрос об автоматизации процесса.

Кроме специалистов, которым на работе нужно указать буквенное значение числа, обычным пользователям тоже может потребоваться такой ввод для своих личных целей.

Использование надстройки

В Экселе отсутствует стандартный инструмент, позволяющий добавить сумму прописью, для этого применяют специальные надстройки. Одна из популярных надстроек — NUM2TEXT, которую можно скачать бесплатно. Она меняет цифровые значения на буквенные с помощью Мастера функций. Предварительно необходимо загрузить и сохранить на жестком диске компьютера файл NUM2TEXT.xla.

Преобразовать числа в текст прописью в Excel 2007, 2010, 2016, можно следующим образом:

  1. Запустить Эксель и зайти в раздел «файл».image
  2. Кликнуть на строку «параметры».image
  3. Откроется окошко, в котором необходимо перейти в пункт «надстройки».image
  4. Внизу в строке «управление» поставить значение «надстройки Эксель» и щелкнуть на элемент «перейти».image
  5. Появится маленькое окно, в котором требуется нажать на кнопку «обзор».image
  6. В появившемся окошке найти предварительно скачанный файл, выделить его и кликнуть на ОК.image
  7. Инструмент появился в доступных надстройках. Поставить галочку в квадратике рядом с ним и снова щелкнуть мышкой на ОК.image
  8. Теперь нужно проверить функционирование надстройки. Для этого в любой ячейке ввести произвольное число.
  9. Выделить любой другой элемент и кликнуть на ярлычок «вставить функцию», находящийся с левой стороны от строчки формулы.image
  10. Открыть мастер функций, в предложенном списке найти «сумма прописью». Выделить ее и кликнуть на ОК.
  11. В окошке «аргументы функции» в строке «сумма» вписать нужное числовое значение. Оно сразу отобразится в указанной области в рублях и копейках прописью.
  12. В строчке можно указать адрес любой ячейки. Возможны 2 варианта – ручным способом через запись координат или простым нажатием на нее в тот момент, когда указатель мышки стоит в поле «сумма». Щелкнуть на ОК.
  13. Далее цифра, введенная в ячейку, отобразится в стоимостном выражении прописью в той клетке, где стоит формула.

  Что такое условное форматирование в Эксель и как его использовать

Использование формулы

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

Синтаксис обычно такой: Сумма_прописью (сумма) или Сумма_прописью (координаты_ячейки).

Если пользователь напечатает в ячейке формулу =Сумма_прописью (74) и нажмет на клавишу ENTER, то в ней автоматически появится текст «семьдесят четыре рубля 00 копеек» (с копейками или без зависит от самой формулы).

Если пользователь напечатает в ячейке =Сумма прописью (А3), то цифра, стоящая в клетке А3, отобразится в запрашиваемом формате.

Скрипт VBA

Далее представлена подготовленная функция на VBA для пользователей, которая переведет цифровой показатель от 0 до 9 999 999 в его текстовое выражение, т.е. в сумму прописью. Сначала ее потребуется занести в книгу. Алгоритм действий:

  • нажимают одновременно на ALT+F11, откроется редактор Visual Basic;
  • добавляют новый пустой модуль посредством меню Insert – Module;
  • копируют и добавляют туда скрипт:
Function СУММАПРОПИСЬЮ(n As Double) As String      Dim Nums1, Nums2, Nums3, Nums4 As Variant      Nums1 = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")   Nums2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")   Nums3 = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")   Nums4 = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")   Nums5 = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ",  "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")   If n <= 0 Then     СУММАПРОПИСЬЮ = "ноль"     Exit Function   End If   'разделяем число на разряды, используя вспомогательную функцию Class   ed = Class(n, 1)   dec = Class(n, 2)   sot = Class(n, 3)   tys = Class(n, 4)   dectys = Class(n, 5)   sottys = Class(n, 6)   mil = Class(n, 7)   decmil = Class(n, 8)   'проверяем миллионы   Select Case decmil     Case 1       mil_txt = Nums5(mil) & "миллионов "       GoTo www     Case 2 To 9       decmil_txt = Nums2(decmil)   End Select   Select Case mil     Case 1       mil_txt = Nums1(mil) & "миллион "     Case 2, 3, 4       mil_txt = Nums1(mil) & "миллиона "     Case  5 To 20       mil_txt = Nums1(mil) & "миллионов "   End Select   www:   sottys_txt = Nums3(sottys)   'проверяем тысячи   Select Case dectys     Case 1       tys_txt = Nums5(tys) & "тысяч "       GoTo eee     Case 2 To 9       dectys_txt = Nums2(dectys)   End Select   Select Case tys     Case 0       If dectys > 0 Then tys_txt = Nums4(tys) & "тысяч "     Case 1       tys_txt = Nums4(tys) & "тысяча "     Case 2, 3, 4       tys_txt = Nums4(tys) & "тысячи "     Case 5 To 9       tys_txt = Nums4(tys) & "тысяч "   End Select   If dectys = 0 And tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & " тысяч "   eee:   sot_txt = Nums3(sot)   'проверяем десятки   Select Case dec     Case 1       ed_txt = Nums5(ed)       GoTo rrr     Case 2 To 9       dec_txt = Nums2(dec)   End Select   ed_txt = Nums1(ed)   rrr:   'формируем итоговую строку   СУММАПРОПИСЬЮ = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt  End Function  'вспомогательная функция для выделения из числа разрядов  Private Function Class(M, I)    Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1))  End Function

Сохраняют файл и возвращаются в Excel. Затем вставляют функцию в любую клетку листа книги привычным способом — через мастер функций или просто набирают ее в ячейке вручную, а в качестве аргумента указывают ячейку с суммой.

  Вставка картинки в Excel и способы закрепления изображения в ячейке

Читайте также:

Оцените статью
Рейтинг автора
5
Материал подготовил
Илья Коршунов
Наш эксперт
Написано статей
134
А как считаете Вы?
Напишите в комментариях, что вы думаете – согласны
ли со статьей или есть что добавить?
Добавить комментарий