Сумма прописью в excel скачать надстройку бесплатно num2text

Очень часто при работе с документами мы сталкиваемся с необходимостью написать сумму прописью. И казалось бы, в этом нет ничего сложного, но когда речь идет о десятках тысяч строк, мы задумываемся. Решение на самом деле очень просто – необходимо использовать специализированное дополнение, которое делает всю работу за нас. Сегодня мы немного подробнее расскажем о специальном расширении 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. Запустить Эксель и зайти в раздел «файл».
2. Кликнуть на строку «параметры».
3. Откроется окошко, в котором необходимо перейти в пункт «надстройки».
4. Внизу в строке «управление» поставить значение «надстройки Эксель» и щелкнуть на элемент «перейти».
5. Появится маленькое окно, в котором требуется нажать на кнопку «обзор».
6. В появившемся окошке найти предварительно скачанный файл, выделить его и кликнуть на ОК.
7. Инструмент появился в доступных надстройках. Поставить галочку в квадратике рядом с ним и снова щелкнуть мышкой на ОК.
8. Теперь нужно проверить функционирование надстройки. Для этого в любой ячейке ввести произвольное число.
9. Выделить любой другой элемент и кликнуть на ярлычок «вставить функцию», находящийся с левой стороны от строчки формулы.
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. Затем вставляют функцию в любую клетку листа книги привычным способом — через мастер функций или просто набирают ее в ячейке вручную, а в качестве аргумента указывают ячейку с суммой.

( 1 оценка, среднее 4 из 5 )