Для экономистов макрос для эксела сумма прописью

Num2Text

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

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

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. В итоге вы увидите, что сумма указанного диапазона значений отобразилась прописью.

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

Использование макросов

Макросы — небольшие файлы, которые любой пользователь может написать в среде visual basic. Пользователи, которым интересно, как его писать могут изучить это в интернете. Функция макросов в excel — различные операции с полученными данными, например:

1. Преобразование результата из численного вида в буквенный. То есть сумма прописью.
2. При запуске макроса может меняться цвет и размер шрифта.
3. Кнопка, сделанная при помощи макроса.
4. Выпадающие списки и галочки.

После скачивания этого архива, его нужно распаковать. Если вы примените полученный макрос только в каком-то конкретном файле, то он будет работать только в нём. А нам нужно, чтобы макрос работал во всех документах, с которыми мы будем работать в программе excel. Для этого нужно сделать следующие шаги:

1. Создать новый документ в excel и открыть его.
2. Запустить редактор Visual Basic. Для тех, кто не знает, это делается нажатием комбинации клавиш Alt+f11.
3. Левой кнопкой мыши два раза кликнуть по первой строке в появившемся списке в левом верхнем углу.
4. В появившемся списке выбрать папку с именем Microsoft Excel Objects.
5. Среди файлов этой папки следует выбрать файл «Эта книга».
6. Щелчком правой кнопки мыши открыть контекстное меню и выбрать пункт Import file.
7. Из предложенный файлов нужно выбрать тот, что мы скачали.

Теперь мы можем делать сумму прописью в excel. Однако, формула, которую мы будем вводить в ячейку, будет немного отличаться от той, когда мы применяли надстройку. Здесь нужно ввести следующее: «=PERSONAL. XLSB! СуммаПрописью (Номер ячейки с результатом)».

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

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

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

Создание сумм прописью с помощью формул

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

    Ради общего интереса я предоставлю вам пример файла с работающей формулой, которую я нашёл на excelworld.ru, поскольку самостоятельно формульным решением задачи я не занимался, но считаю нужным предоставить весь наработанный или собранный материал. Скачать пример можно по этой ссылке.

С помощью VBA

     Вот еще один способ на любителя. Конечно создать сумму прописью в Excel с помощью макроса не самый распространённый способ, но им достаточно часто пользовались и пользуются до сих пор. Большой сложности он не представляет, вам нужно:

• Комбинацией горячих клавиш ALT+F11 вызвать редактор Visual Basic;
• С помощью меню «Insert» — «Module», создать пустой новый модуль;
• Скопировать предоставленный код макроса в тело модуля.

      Получается готовая пользовательская функция VBA, которая умеет превращать любую сумму от 0 до 9 999 999 в ее текстовое воплощение, создается сумма прописью.

      Код нужного макроса выглядит так:

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

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

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

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

    Приставку «Module2» в моей формуле можете опустить, так как таким образом, программа разделяет 2 похожие формулы, одна от установленных надстроек, а вторая от макроса.

     А на этом у меня всё! Я очень надеюсь, что всё о том, как ваши цифры сделать прописными вам понятно. Буду очень благодарен за оставленные комментарии, так как это показатель читаемости и вдохновляет на написание новых статей! Делитесь с друзьями прочитанным и ставьте лайк!

     Не забудьте поблагодарить автора!

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

Вперед!

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

Функция «СуммаПрописью»

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

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

Чтобы функция была доступна из всех рабочих книг на отдельном компьютере, ее код следует добавить в персональную (личную) книгу макросов (PERSONAL.XLSB).

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

1. Скачайте архив и извлеките из него файл «Module.bas» с кодом функции.
2. Откройте любую книгу Excel, можно новую.
3. Сочетанием левой клавиши Alt+F11 откройте редактор Visual Basic for Applications.

1. Дважды кликните на строке «VBA Project (PERSONAL.XLSB)» или один раз на крестике слева для открытия вложенного списка. Если эта позиция уже развернута переходите к пункту 5.

1. Дважды кликните на строке «Microsoft Excel Objects» или один раз на крестике слева для открытия списка объектов. Если эта позиция уже развернута переходите к пункту 6.

1. Кликнув правой кнопкой на строке «ЭтаКнига», откройте контекстное меню и выберите в нем пункт «Import File…».

1. В открывшемся диалоге выбора файлов найдите извлеченный ранее из архива «Module.bas» и выберите его двойным кликом. Модуль с функцией будет автоматически загружен.

Теперь можно в ячейки на листах любых рабочих книг вставлять формулу: «=PERSONAL.XLSB!СуммаПрописью(АдресЯчейки)» или, что намного удобнее, выбирать функцию с помощью мастера. Откройте мастер функций, выберите категорию «Определенные пользователем» и в списке доступных функций появится строка «PERSONAL.XLSB!СуммаПрописью», которую можно выбрать, а на втором шаге вставить адрес ячейки с числовым значением.

Формула будет доступна во всех книгах Excel, но только на компьютере, на котором находится персональная книга макросов PERSONAL.XLSB с загруженным модулем.

Если книгу планируется передавать на другие машины, тогда в шаге 6 надо правой кнопкой кликнуть на строке «ЭтаКнига», относящейся не к «VBA Project (PERSONAL.XLSB)», а относящейся к «VBA Project (ВашаКнига)» с именем вашей книги. Тогда модуль с функцией загрузится непосредственно в вашу рабочую книгу Excel и будет доступен для этой книги на любом компьютере. В этом случае формула в ячейке будет иметь вид: «=СуммаПрописью(АдресЯчейки)».

‘);
var s = document.createElement(‘script’);
s.type = ‘text/javascript’; s.async = true;
s.src = ‘https://ad.admitad.com/shuffle/a86adf82cb/’+subid_block+’?inject_to=’+injectTo;
var x = document.getElementsByTagName(‘script’);
x.parentNode.insertBefore(s, x);
})();

Преобразование с помощью макросов Excel

Можно написать собственную функцию, которая произведет конвертацию суммы прописью. Нажмите сочетание ALT+F11 и в открывшемся разработчике Excel VBA вставьте новый модуль. В него добавьте следующий код.

Function SUMMPROPIS(n As Double) As String
 Dim Chis1, Chis2, Chis3, Chis4, Chis5 As Variant
 Chis1 = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 Chis2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят", "девяносто ")
 Chis3 = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
 Chis4 = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 Chis5 = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
 If n <= 0 Then
 SUMMPROPIS = "ноль"
 Exit Function
End If
 cifr = Retclass(n, 1)
 des = Retclass(n, 2)
 hund = Retclass(n, 3)
 thous = Retclass(n, 4)
 desthous = Retclass(n, 5)
 hundthous = Retclass(n, 6)
 mil = Retclass(n, 7)
 desmil = Retclass(n, 8)Select Case desmil
 Case 1
 mil_txt = Chis5(mil) & "миллионов "
 GoTo www
 Case 2 To 9
 desmil_txt = Chis2(desmil)
 End Select
 Select Case mil
 Case 1
 mil_txt = Chis1(mil) & "миллион "
 Case 2, 3, 4
 mil_txt = Chis1(mil) & "миллиона "
 Case 5 To 20
 mil_txt = Chis1(mil) & "миллионов "
 End Select
www:
 hundthous_txt = Chis3(hundthous)
 Select Case desthous
 Case 1
 thous_txt = Chis5(thous) & "тысяч "
 GoTo eee
 Case 2 To 9
 desthous_txt = Chis2(desthous)
 End Select
 Select Case thous
 Case 0
 If desthous > 0 Then thous_txt = Chis4(thous) & "тысяч "
 Case 1
 thous_txt = Chis4(thous) & "тысяча "
 Case 2, 3, 4
 thous_txt = Chis4(thous) & "тысячи "
 Case 5 To 9
 thous_txt = Chis4(thous) & "тысяч "
 End Select
 If desthous = 0 And thous = 0 And hundthous <> 0 Then hundthous_txt = hundthous_txt & " тысяч "
eee:
 hund_txt = Chis3(hund)
 Select Case des
 Case 1
 cifr_txt = Chis5(cifr)
 GoTo rrr
 Case 2 To 9
 des_txt = Chis2(des)
 End Select 
 cifr_txt = Chis1(cifr)
rrr:
 SUMMPROPIS = desmil_txt & mil_txt & hundthous_txt & desthous_txt & thous_txt & hund_txt & des_txt & cifr_txt
End Function
Private Function Retclass(M, I)
 Retclass = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1))
End Function

Теперь эту функцию можно вызвать обычным путем и получить сумму прописью. Она находится в разделе функций Excel «Определенные пользователем». В качестве аргумента укажите адрес с числом. Перевод в сумму прописью осуществляется только для целых чисел. Дробное число требует дополнительной формулы:

 =SUMMPROPIS(A7)&" руб. "&ТЕКСТ((A7-ЦЕЛОЕ(A7))*100;"00")&" коп."

Вместо ячейки A7 подставляйте свой адрес. Копейки в таком исполнении будут выводиться в виде числа. Мы рассмотрели все способы представления суммы прописью в Excel. Выбирайте для себя самый удобный и пользуйтесь с удовольствием!

Шаг 3: вставляем функцию

После того как нужная надстройка была включена, можно сразу же приступать к выполнению функции СУММА_ПРОПИСЬЮ. Сейчас рассмотрим, как это выполняется на примере.

1. Для начала введите какое-нибудь число в любую ячейку листа. Это необходимо для демонстрации возможностей функции.
2. Установите курсор в ту ячейку, в которой хотите, чтобы отображался результат функции.
3. Нажмите по кнопке «Вставить функцию», которая расположена справа от строки функций.
4. Появится окно «Мастера». В нем вам необходимо из списка выбрать нужную функцию. Соответственно, выделите «СУММА_ПРОПИСЬЮ» и нажмите кнопку «ОК».
5. Откроется новое окно, в которое необходимо ввести аргументы.

Мы рассмотрели, как вставить функцию «СУММА_ПРОПИСЬЮ». Как можно отметить, делается это так же, как и со всеми остальными функциями, нужно лишь отыскать в списке нужную.

Где хранить логин и пароль для почты?

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

• Записать пароль и логин на бумажный носитель. Правда, в этом случае вам придется всегда носить данные с собой, и если вы их потеряете, придется немало потрудиться, чтобы восстановить доступ к сервисам.
• Создать на компьютере текстовый документ, в котором будут указаны пароли и логины к различным сервисам. Чтобы они не стали известны всем, кто имеет доступ к вашему ПК, измените расширение. Например, .txt можно поменять на .jpg. В этом случае файл будет отображаться как картинка, и чтобы получить доступ к информации в нем, придется сначала изменить расширение.
• Чтобы не хранить логины и пароли на компьютере, можно скопировать файл на флэш-карту и использовать ее по мере необходимости.
• Можно воспользоваться специальным программным обеспечением для хранения паролей. Так все данные окажутся в одном месте, и чтобы получить к ним доступ, вам придется запомнить только один шифр.

Как сумму перевести в текст в Excel2007

​ или других языках.​​ имела ввиду именно​ копируется.​​ в любую ячейку​, чтобы открыть редактор​ пишем в любой​End With​​: Когда только знакомился​: ВСЁ, что Вам​ Excel меню Надстройки​ 26450.00 или 26450,00&​ & Sotni(vl) Case​ ‘ — единицы​ «: tys(5) =​​ = «семь «:​ «пятнадцать » Case​

​ Case n Case​​ Так как по​ ячейку а56. Но,​MCH​

​ листа этой книги​​ Visual Basic​ свободной ячейке листа​End Function​ с Excel и​ надо есть на​​ — кнопка Обзор,​

​ excel русский?​​ 2 ‘ -​ миллионов vl =​

​ «тысяч «: mln(5)​​ EdinicyPoslednie(7) = IIf(Valuta​​ «16»: Двадцатка =​

​ 0: Сотни =​​ умолчанию нет готовой​ видимо, зависит от​​: Сумма прописью на​ обычным способом -​добавьте новый пустой модуль​ произвольное число. Выделяем​vikttur​

​ слово «макрос» было​​ данном сайте:​​ и покажите путь​Шмелька-шумелька​ десятки vl =​​ Mid(SumInt, shag, 1)​ = «миллионов «:​

​ = 0, «семь​​ «шестнадцать » Case​ «» Case 1:​ функции, создадим свою​

​ программы.​​ русском (MSumProp) и​ через мастер функций​

​ через меню​​ любую другую ячейку.​​:​

​ пугающе-страшным, нужно было​​найти можно вот​ к распакованному файлу.​: ну, если точно,​​ Mid(SumInt, shag, 1)​​ If shag >​ mlrd(5) = «миллиардов​ евро», IIf(Valuta =​

​ «17»: Двадцатка =​​ Сотни = «сто​ пользовательскую функцию с​Alex_ST​ на украинском (MSumPropUkr)​ (кнопка​

​Insert — Module​​ Кликаем по значку​Не усовершенствуя, просто​ написать автовывод суммы​ так:​ После этого в​

​ то у меня​​ If vl =​ 2 Then If​ » Desyatki(6) =​​ 1, «семь рублей»,​​ «семнадцать » Case​ » Case 2:​ помощью макросов.​​: Да похоже, что​ языках, реализовано с​

​f​​скопируйте и вставьте туда​«Вставить функцию»​ добавил ячейки​ прописью.​

​а вот, куда​​ списке функций у​

​ написано 26’450.00, т.к.​​ «1» And Mid(SumInt,​

​ (Mid(SumInt, shag -​​ «шестьдесят «: Sotni(6)​​ «семь долларов»)) Edinicy(8)​

​ «18»: Двадцатка =​​ Сотни = «двести​Для создания пользовательской функции,​ от версии Офиса​ помошью UDF​

​x​​ текст этой функции:​. Он расположен слева​Alex_ST​​Смотрите на этот​ стоит зайти (это​ Вас появится «Сумма​​ я такие настройки​ shag + 1,​ 2, 1) =​

​ = «шестьсот «:​​ = «восемь «:​

​ «восемнадцать » Case​​ » Case 3:​ которая сможет перевести​ как раз и​Особенности:​

​в строке формул,​​Function СУММАПРОПИСЬЮ(n As​ от строки формул.​: Казанский,​ корявый образец, вдруг​ из найденного)​ прописью» В общем​ поставила :)​ 1) <> 0​ 0 And Mid(SumInt,​ tys(6) = «тысяч​ EdinicyPoslednie(8) = IIf(Valuta​ «19»: Двадцатка =​ Сотни = «триста​ число в текст​ не зависит.​1. Работают до​ категория​

​ Double) As String​​Запускается Мастер функций. В​вычисление при помощи​ кому-нибудь для чего-нибудь​mak50​ случае достаточно будет​excel русский​ Then GoTo 10​ shag — 1,​​ «: mln(6) =​ = 0, «восемь​ «девятнадцать » End​ » Case 4:​ прописью , нам​МСН проверял Ваш​ 999 трлн.​Определенные пользователем​ Dim Nums1, Nums2,​ полном алфавитном перечне​​ Ворда, конечно, прикольно,​ понадобится.{/post}{/quote}​: Спасибо, разбираюсь……..​

​ просто указать ссылку​​Юрий М​

​ Else txt =​​ 1) = 0​ «миллионов «: mlrd(6)​ евро», IIf(Valuta =​ Select Десятки =​ Сотни = «четыреста​ нужно выполнить 3​ файл на 2010,​

​2. Делают первую​​) или просто набрав​ Nums3, Nums4 As​​ функций ищем запись​

​ но столько ограничений…​​На сколько я​Ал)​ на нужную ячейку​​: Попробуйте поискать Сумма​ txt & Desyatki(vl)​ And vl =​ = «миллиардов «​ 1, «восемь рублей»,​ Десятки & Двадцатка​​ » Case 5:​ простых шага:​ я — на​ букву прописной, остальные​

​ ее в ячейке​​ Variant Nums1 =​«Сумма_прописью»​- должен быть​​ понимаю, это до​: Увожаемые, а можно​

​ с числом в​​ прописью​ ‘ — если​ «0») Then GoTo​ Desyatki(7) = «семьдесят​ «восемь долларов»)) Edinicy(9)​ End Function Function​ Сотни = «пятьсот​Открыть редактор макросов ALT+F11.​ 2003. Результат одинаковый​​ строчные.​ вручную и указав​ Array(«», «один «,​. Её раньше не​ открыт Ворд (уж​ 999 999 тысяц,​ сделать это без​ первом поле. И​dude​ конец триады от​ 10 End If​ «: Sotni(7) =​

planetaexcel.ru>

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

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

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

1. Открываем программу Excel и переходим во вкладку «Файл».

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

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

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

В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».

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

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

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

3. Формула 3 просто переводит число в текст: число = пропись

Вот формулы, которые пишут сумму прописью:

При необходимости формулу можно подогнать под нужный формат.

Как использовать данную формулу? Вы можете взять файл примера и внести в него свои данные, чтобы получить результат. Если же у Вас уже есть готовый файл с заполненными данными и Вам необходимо добавить возможность написания суммы прописью, то чтобы формула заработала, необходимо сделать некоторые подготовительные действия, а именно добавить справочники, которые использует формула. В данном примере справочники заданы как именованные диапазоны (это решение хорошо тем, что пользователь эти диапазоны не видит на листах и соответственно не сможет лишний раз что-то испортить).

Итак, нам необходимо сделать следующие справочники:

Имя диапазона: n_1 Диапазон: =

Имя диапазона: n_2 Диапазон: =

Имя диапазона: n_3 Диапазон: =

Имя диапазона: n_4 Диапазон: =

Имя диапазона: n_5 Диапазон: =

Имя диапазона: n0 Диапазон: =»000000000000″&ПСТР(1/2;2;1)&»00″

Имя диапазона: n0x Диапазон: =ЕСЛИ(n_3=1;n_2;n_3&n_1)

Имя диапазона: n1x Диапазон: =ЕСЛИ(n_3=1;n_2;n_3&n_5)

Имя диапазона: мил Диапазон: =

Имя диапазона: тыс Диапазон: =

Чтобы создать справочник таких диапазонов, переходим на вкладку «Формулы» — «Диспетчер имен«:

В открывшемся окне нажимаем кнопку «Создать» и в форме вводим данные первого диапазона из таблицы:

Далее таким же образом вводим все остальные диапазоны из таблицы:

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

Функция сумма прописью на русском языке

После установки надстройки VBA-Excel добавится функционал для вставки суммы прописью. Он содержит удобную форму для ввода (см. рисунок справа), а также функцию СУММАПРОПИСЬЮ, которой можно пользоваться так же как и любой встроенной в Excel.

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

Вы можете указать сумму прописью в договоре в рублях (как с копейками так и без), в долларах США или евро (с центами или без). Помимо суммы договора можно прописывать прописью и срок в календарных или рабочих днях. Можно указывать количество товара прописью в штуках.

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

Вставка суммы прописью через пользовательскую форму

Наиболее простой способ вставить сумму прописью — это заполнить специальную форму.

1. Выберите ячейку, в которую необходимо вставить число прописью.
2. На вкладке VBA-Excel нажмите команду Сумма прописью и выберите язык Русский.
3. Появится диалоговое окно для выбора параметров функции. Заполните ее так как необходимо Вам. Настройки автоматически сохраняются, чтобы не пришлось повторять действия в следующий раз.
4. Нажмите Вставить текстом, тогда сумма прописью будет вставлена в ячейку как текст. Нажмите Вставить формулой в случае если в ячейку должна быть вставлена формула, в этом случае сумма прописью будет автоматически изменяться при редактировании числа.

Второй способ вставить сумму прописью — это ввести формулу в ячейку: =СУММАПРОПИСЬЮ(A1), где A1 — ссылка на ячейку с формулой.

Далее рассмотрим подробнее синтаксис функции.

Подробный синтаксис функции

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

=СУММАПРОПИСЬЮ(Число; ; ; ; ; ; )

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

• Число — ссылка на ячейку или число (не обязательно в числовом формате), которое необходимо написать прописью.
• — число от 1 до 6, определяющее падеж

1. Именительный (по умолчанию если параметр не указан)
2. Родительный
3. Дательный
4. Винительный
5. Творительный
6. Предложный

— число от 0 до 8 для добавления после суммы прописью в нужном падеже тип данных

1. Ничего (по умолчанию если параметр не указан)
2. Рубли
3. Доллары США
4. Евро
5. Календарные дни
6. Рабочие дни
7. Дни
8. Штуки
9. Целое + дробная часть

— значение 0 или 1, которое указывает на необходимость записи дробной части числа прописью

1. Не выводить прописью дробную часть числа (по умолчанию)
2. Указать прописью также и дробную часть числа

— значение 0 или 1, которое указывает на необходимость дублирования числа перед суммой прописью

1. Скрыть число перед суммой прописью
2. Продублировать числовое значение суммы прописью (по умолчанию)

— значение 0 или 1, которое указывает на необходимость записывать сумму прописью в скобках

1. Убрать скобки из суммы прописью
2. Поместить сумму прописью в скобки (по умолчанию)

— значение 0 или 1, которое указывает на необходимость делать первую букву суммы прописью заглавной

1. Все буквы суммы прописью строчные
2. Сделать первую букву заглавной (по умолчанию)

Разберем синтаксис функции на примерах:

Склонение числительных по падежам.

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

Обратите внимание, что если вторая переменная (падеж) не задана, то указывается по умолчанию в именительном падеже

Как прописать дробную часть числа с помощью функции.

Различные форматы вывода суммы прописью.