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

Как в Explorer посмотреть сохраненные пароли


10.09.2018 WindowsTips Во многих документах мы можем видеть строку, в которой требуется указать сумму не в числовом виде, а прописью. Это защищает отчетность от подделки, ведь цифру легко переправить. А вот длинную запись незаметно исправить не так-то просто.

Сумма прописью в Excel доступна только в виде надстроек или с использованием формул. Встроенного инструмента не имеется.

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

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

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

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

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

Преобразование с помощью макросов 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.

Выбирайте для себя самый удобный и пользуйтесь с удовольствием! Отличного Вам дня! +5 0 5 0 Предыдущая Ошибка при направлении команды Следующая Восстановление PST файла данных Outlook Читайте также.

Все по теме

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

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

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

    Для этого достаточно кликнуть на неё.

  • Сразу после этого адрес ячейки подставится автоматически.

    Для продолжения кликните «OK».

  • В результате этого вы увидите вашу сумму прописью.