Суммпроп excel скачать бесплатно

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

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

1. нажмите сочетание клавиш ALT+F11, чтобы открыть редактор Visual Basic
2. добавьте новый пустой модуль через меню Insert — Module
3. скопируйте и вставьте туда текст этой функции:

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 2007 или 2010, то тип файла должен быть с поддержкой макросов, т.е. в формате xlsm!) и вернитесь в Excel. Теперь вы можете вставить созданную функцию в любую ячейку листа этой книги обычным способом — через мастер функций (кнопка f_x в строке формул, категория Определенные пользователем) или просто набрав ее в ячейке вручную и указав в качестве аргумента ячейку с суммой:

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

 =СУММАПРОПИСЬЮ(A3)&» руб. «&ТЕКСТ((A3-ЦЕЛОЕ(A3))*100;»00″)&» коп.» 

=СУММАПРОПИСЬЮ(A3)&» руб. «&TEXT((A3-INT(A3))*100;»00″)&» коп.»

Тогда, например, для числа 35,15 результат функции будет выглядеть как «тридцать пять руб. 15 коп.»

Ссылки по теме

• Более мощный вариант функции с рублями и копейками на русском/английском из надстройки PLEX
• Что такое макросы, куда вставлять код макроса, как их использовать

До того, как заняться созданием веб-сайтов, основатель нашей студии Андрей Коцюбинский писал книги по компьютерной тематике, и среди них значительной популярностью пользовалась книга «Excel для бухгалтера в примерах». С этой книгой распространялся макрос для Excel, автоматизирующий печать суммы прописью в электронных таблицах.

Автору программы

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

Надстройка: сумма прописью в Excel

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

Далее нужно поместить полученный файл в папку, в которой хранятся дополнительные надстройки. Конкретный путь к этой папке зависит от версии Excel, но скорее всего он будет похожим на этот: C:Documents and SettingsUserApplication DataMicrosoftAddIns, где вместо User следует подставить имя пользователя Windows. Дополнительное неудобство вызывается тем, что папка Application Data может быть скрыта, то есть не видна при просмотре в проводнике Windows. Проще всего для размещения скачанного файла в нужной папке выбрать в Excel команду меню Сервис — Надстройки и в появившемся диалоге нажать кнопку Обзор. Будет открыт диалог выбора файла с надстройкой, причем текущей окажется нужная вам папка. Запустите проводник Windows и перейдите в нем к папке, в которой находится скачанный ранее из интернета файл. Перетащите с помощью мыши значок файла из окна проводника в открытый диалог. Теперь файл с нужной надстройкой находится в нужной папке. Щелкните на нем мышью и нажмите кнопку OK, чтобы закрыть диалог. В списке доступных надстроек должна появиться строка Сумма Прописью. Установите флажок рядом с этой строкой и нажмите кнопку OK, после чего вы сможете использовать функцию печати суммы прописью в Excel.

Макрос: сумма прописью в Excel

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

Для включения макросов при работе с версией Excel 2002, входящей в состав Microsoft Office XP, или с версией Microsoft Office Excel 2003, нужно выбрать команду меню Сервис — Параметры. Будет открыт диалог настройки, имеющий несколько вкладок. Необходимо открыть вкладку Безопасность, на которой следует нажать кнопку Безопасность макросов. На экране появится диалог настройки безопасности Excel. С помощью переключателя, расположенного в диалоге, установите низкий уровень безопасности, чтобы выполнялись все макросы. Далее необходимо закрыть оба диалога, для чего следует нажать кнопки OK в них. В Excel 2000 для вызова аналогичного диалога ненобходимо выбрать команду меню Сервис — Макрос — Безопасность. Если же используется версия Excel 97, нужно выбрать команду меню Сервис — Параметры. В диалоге настройки следует выбрать вкладку Общие и снять флажок Защита от макровирусов. Следует заметить, что если вы не снимите защиту от макровирусов в Excel 97 или установите средний уровень безопасности в других версиях программы, при запуске Excel будет задан вопрос, хотите ли вы выполнять макросы, на который следует ответить утвердительно.

Чтобы подключать программу печати суммы прописью ко всем электронным таблицам, следует поместить полученный файл в папку автозапуска Excel. Данная папка называется XLStart, и расположена она в папке, в которой установлен Microsoft Office. Вначале найдите папку Program Files. Скорее всего, она расположена на диске C вашего компьютера. В этой папке следует найти папку Microsoft Office или Microsoft Office 2003, а в ней папку Office 10, Office 11 или Office, в зависимости от используемой вами версии. Вне зависимости от конкретных названий папок, в последней папке вы должны обнаружить папку XLStart. Поместите скачанный ранее файл sumprop.xls в данную папку, после чего при каждом запуске Excel будет открываться таблица, в которой располагается макрос печати суммы прописью.

Использование программы печати суммы прописью

Вне зависимости от способа, которым вы подключили программу, в качестве макроса из рабочей книги или в качестве надстройки, работа с ней ведется через использование функций Excel. Введите в первую ячейку третьей строки формулу =СуммаПрописью(836) и вы увидите результат вычислений: Восемьсот тридцать шесть рублей 00 копеек. Введите после этого в первую ячейку второй строки формулу =СуммаПрописью(A1). Так как пока в ячейку A1 ничего не введено, то результатом будет Ноль рублей 00 копеек. После того, как в первую ячейку будет введено число, например, 3743917034,51, результат изменится на Три миллиарда семьсот сорок три миллиона девятьсот семнадцать тысяч тридцать четыре рубля 51 копейка. При вводе другого числа результат соответственно изменится. О выводе результата в другой валюте рассказывается на странице суммы прописью для долларов, евро, гривен.

Кроме печати суммы прописью доступна стала и еще одна дополнительная функция. Введите в первую ячейку число 582,43, а в любую свободную ячейку формулу =ЧислоПрописью(A1). Результатом будет пятьсот восемьдесят два, то есть первая буква уже не прописная, копейки отброшены и нет названия рублей. Также имеется возможность вывода суммы для названий женского рода – пятьсот восемьдесят две. Для этого следует использовать формулу =ЧислоПрописью(A1;ЛОЖЬ). Если второй параметр опущен, выводится сумма для названий мужского рода.

Вы можете использовать мастер функций, чтобы работать с функциями вывода суммы прописью и числа прописью. Вначале щелкните мышью на ячейке, в которую вы хотите вставить функцию, после чего откройте список доступных функций. В нем следует выбрать вариант Другие функции. Кроме того, для вызова функций можно нажать кнопку fx, расположенную в левой части строки формул. В ранних версиях программы аналогичная кнопка расположена на панели инструментов. Каким бы способом не вызван был мастер функций, в появившемся диалоге необходимо выбрать категорию Определенные пользователем. В списке функций данной категории должны находиться СуммаПрописью и ЧислоПрописью. Выбрав нужную функцию, нажмите кнопку OK, чтобы перейти к следующему диалогу мастера функций. В нем задаются аргументы, то есть вы должны ввести число, которое будет преобразовано в слова. Можно ввести непосредственно значение или сослаться на ячейку, в которой это значение расположено. Нажав кнопку OK, вы закроете диалог и вставите результат в текущую ячейку.

Дополнительные возможности функций СуммаПрописью и ЧислоПрописью

При использовании функции суммы прописью, вы можете включать ее в сложные выражения, как это принято в Excel. Например, вы можете вывести словами результат расчетов =СуммаПрописью(СУММ(B3:B12)/18-450) или добавить к результату слова «Прописью общая сумма:», как в этом примере: =СЦЕПИТЬ(«Прописью общая сумма: «;СуммаПрописью(B3)).

Также имеется возможность незначительно изменить значения, выводимые в результате вычислений, используя средства Excel, предназначенные для обработки символьных данных. Например, если в ячейке A1 находится число 19,45, и вместо результата Девятнадцать рублей 45 копеек вы хотите получить Девятнадцать руб. 00 коп., нужно использовать примерно такую формулу:

=ЗАМЕНИТЬ(ЧислоПрописью(A1);1;1;ПРОПИСН(ЛЕВСИМВ(ЧислоПрописью(A1);1))) & » руб. 00 коп.»

Используемая в примере функция ЧислоПрописью вернет все нужные слова, а с помощью стандартных функции  ЛЕВСИМВ и ПРОПИСН первая буква результата будет изменена из строчной в прописную. Далее первый символ будет заменен на новый с помощью функции ЗАМЕНИТЬ. И, после всех преобразований, к концу полученной строки с помощью оператора & будет добавлена строка «руб. 00 коп.». Следует отметить, что копейки в этом примере отбрасываются, и всегда выводятся целые значения рублей.

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