Бесплатная горячая линия

8 800 700-88-16
Главная - Другое - Скопировать готовую формулу прописыния сумм писсьменно

Скопировать готовую формулу прописыния сумм писсьменно

Скопировать готовую формулу прописыния сумм писсьменно

Proит


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

написать число прописью при помощи стандартных формул. Пример файла excel с таким решением можно скачать . См. также (если просто нужно получить результат).

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

Формула 3 просто переводит число в текст: число = пропись Вот формулы, которые пишут сумму прописью: 1) Формула 1: =ПОДСТАВИТЬ(ТЕКСТ(ОТБР(A1;0);»# ##0_ «) & «(» & ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);2;1)+1;ПСТР(ТЕКСТ(A1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A1;n0);3;1)*И(ПСТР(ТЕКСТ(A1;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);5;1)+1;ПСТР(ТЕКСТ(A1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A1;n0);6;1)*И(ПСТР(ТЕКСТ(A1;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A1;n0);8;1)+1;ПСТР(ТЕКСТ(A1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);7;3);ВПР(ПСТР(ТЕКСТ(A1;n0);9;1)*И(ПСТР(ТЕКСТ(A1;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);11;1)+1;ПСТР(ТЕКСТ(A1;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A1;n0));»»;»Ноль «)&») рубл»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;n0);11;2)-11;100);9);10);{0;»ь «:1;»я «:4;»ей «};2)&ПРАВСИМВ(ТЕКСТ(A1;n0);2)&» копе»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;n0);2)-11;100);9);10);{0;»йка»:1;»йки»:4;»ек»};2);» )»;»)») 2) Формула 2 =ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);2;1)+1;ПСТР(ТЕКСТ(A1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A1;n0);3;1)*И(ПСТР(ТЕКСТ(A1;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);5;1)+1;ПСТР(ТЕКСТ(A1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A1;n0);6;1)*И(ПСТР(ТЕКСТ(A1;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A1;n0);8;1)+1;ПСТР(ТЕКСТ(A1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);7;3);ВПР(ПСТР(ТЕКСТ(A1;n0);9;1)*И(ПСТР(ТЕКСТ(A1;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);11;1)+1;ПСТР(ТЕКСТ(A1;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A1;n0));»»;»Ноль «)&»рубл»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;n0);11;2)-11;100);9);10);{0;»ь «:1;»я «:4;»ей «};2)&ПРАВСИМВ(ТЕКСТ(A1;n0);2)&» копе»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;n0);2)-11;100);9);10);{0;»йка»:1;»йки»:4;»ек»};2) 3) Формула 3 =ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);2;1)+1;ПСТР(ТЕКСТ(A1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A1;n0);3;1)*И(ПСТР(ТЕКСТ(A1;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);5;1)+1;ПСТР(ТЕКСТ(A1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A1;n0);6;1)*И(ПСТР(ТЕКСТ(A1;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A1;n0);8;1)+1;ПСТР(ТЕКСТ(A1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);7;3);ВПР(ПСТР(ТЕКСТ(A1;n0);9;1)*И(ПСТР(ТЕКСТ(A1;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);11;1)+1;ПСТР(ТЕКСТ(A1;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A1;n0));»»;»Ноль «) При необходимости формулу можно подогнать под нужный формат. Как использовать данную формулу?

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

Итак, нам необходимо сделать следующие справочники: Имя диапазона: n_1 Диапазон: ={«»;»одинz»;»дваz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»} Имя диапазона: n_2 Диапазон: ={«десятьz»;»одиннадцатьz»;»двенадцатьz»;»тринадцатьz»;»четырнадцатьz»;»пятнадцатьz»;»шестнадцатьz»;»семнадцатьz»;»восемнадцатьz»;»девятнадцатьz»} Имя диапазона: n_3 Диапазон: ={«»:1:»двадцатьz»:»тридцатьz»:»сорокz»:»пятьдесятz»:»шестьдесятz»:»семьдесятz»:»восемьдесятz»:»девяностоz»} Имя диапазона: n_4 Диапазон: ={«»;»стоz»;»двестиz»;»тристаz»;»четырестаz»;»пятьсотz»;»шестьсотz»;»семьсотz»;»восемьсотz»;»девятьсотz»} Имя диапазона: n_5 Диапазон: ={«»;»однаz»;»двеz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»} Имя диапазона: 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) Имя диапазона: мил Диапазон: ={0;»овz»:1;»z»:2;»аz»:5;»овz»} Имя диапазона: тыс Диапазон: ={0;»тысячz»:1;»тысячаz»:2;»тысячиz»:5;»тысячz»} Чтобы создать справочник таких диапазонов, переходим на вкладку «Формулы» — «Диспетчер имен»: В открывшемся окне нажимаем кнопку «Создать» и в форме вводим данные первого диапазона из таблицы: Далее таким же образом вводим все остальные диапазоны из таблицы: Всё, теперь можно использовать указанные выше формулы: вставьте формулу в ячейку, где необходимо отобразить число прописью, а в самой формуле (можно через любой текстовый редактор) замените адрес «A1» на адрес той ячейки, где располагается исходное число.

Основано на материалах форума excelworld.ru/forum/3-9902 Если Вам понравилась статья, пожалуйста, поставьте лайк, сделайте репост или оставьте комментарий. Если у Вас есть какие-либо замечания, также пишите комментарии.

Число прописью в Excel: инструкция, как написать сумму

Office 10.09.2018 WindowsTips

+9 -1 9 1

Эту запись вы просматриваете сейчас Сумма прописью в Excel 10.09.2018 WindowsTips

now playing Sun Valley от Windows 10 — практически выдержанное вино для тех, кто знает толк 10.09.2018 WindowsTips

now playing Windows 10X уже стучится в наши ПК, знакомьтесь!

10.09.2018 WindowsTips

now playing Если у Вас стоит какой-то из этих простых паролей, бегите, Вас наверняка уже взломали 10.09.2018 WindowsTips

now playing Самые опасные приложения для Андроид и Айфона в мире.

Кто эти враги народа? 10.09.2018 WindowsTips

now playing Нужен ли антивирус на Айфоне или его защита это просто легенда?

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

Как в Excel сделать сумму прописью Скачать файл надстройки Чтобы получить эту возможность, вы можете скачать надстройку «Сумма прописью» в Excel бесплатно на нашем сайте.

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

Для этого следует пройти следующие этапы:

  1. Жмите ОК и в окне мастера укажите адрес A1. Можно просто мышкой кликнуть по ячейке.
  2. Чтобы подгрузить скачанный файл жмите «Обзор».
  3. И ищите его в папке, куда сохраняли. Вам предложат скопировать файл в папку надстроек, рекомендуем согласиться. Так Excel всегда будет видеть эту надстройку и вы легко найдете функцию для суммы прописью.
  4. Нужные действия реализованы в виде функции СУММА_ПРОПИСЬЮ. Чтобы применить ее, введите в ячейку A1 число и установите указатель рядом, на B1. Нажмите значок Fx около строки формул.
  5. И в полном алфавитном перечне найдите функцию СУММА_ПРОПИСЬЮ. Рекомендуем начать печатать название. В таком случае Excel сам перемотает ближе к нужному разделу.
  6. После нажатия ОК вы увидите сумму прописью.
  7. Далее переходите в надстройки. И кликайте по кнопке «Перейти».
  8. Щелкните на параметры.
  9. Запустите Excel и нажмите «Файл».
  10. Нужная библиотека Excel подключена. Галочка означает, что ее можно использовать. Жмите ОК.

Эта функция «сумма_прописью» работает в Excel 2007, 2010, 2016 Данная надстройка работает только для рублей. Если вам нужна другая валюта, скачайте еще файл sumprop.xla. Действуя по аналогии подключите надстройку для получения суммы прописью в Excel.

Для проверки введем в ячейке A3 произвольное число. Пусть это будет десятичная дробь.

Также вызовем окно вставки функций и найдем новые функции для вывода суммы прописью. Как видите, нам стали доступны:

  1. Сумма Прописью Доллары
  2. Сумма Прописью
  3. Сумма Прописью Евро
  4. Сумма Прописью Евро

Переведем число в евро.

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

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

Формула суммы прописью в Excel — как написать число Для вывода числа прописью в Excel можно создать формулу.
Приведем пример: ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A3;n0);2;1)+1;ПСТР(ТЕКСТ(A3;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A3;n0);3;1)*И(ПСТР(ТЕКСТ(A3;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A3;n0);5;1)+1;ПСТР(ТЕКСТ(A3;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A3;n0);6;1)*И(ПСТР(ТЕКСТ(A3;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A3;n0);8;1)+1;ПСТР(ТЕКСТ(A3;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);7;3);ВПР(ПСТР(ТЕКСТ(A3;n0);9;1)*И(ПСТР(ТЕКСТ(A3;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);10;1)+1)&ИНДЕКС(ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);14;6);n1x;n0x);ПСТР(ТЕКСТ(A3;n0);11;1)+1;ПСТР(ТЕКСТ(A3;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A3;n0));;»Ноль «)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);14;6);ЕСЛИ(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);11;2)-11;100);9);10);»целых «;»целая «)&ПОДСТАВИТЬ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);14;6)/10^5+1)&ИНДЕКС(n1x;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/10^4;10)+1;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000;10)+1)&ЕСЛИ(ЦЕЛОЕ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000);ВПР(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000;10)*(ОСТАТ(ЦЕЛОЕ(ПСТР(ТЕКСТ(A3;n0);14;6)/10^4);10)<>1);тыс;2);»»)&ИНДЕКС(n_4;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/100;10)+1)&ИНДЕКС(n1x;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/10;10)+1;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6);10)+1);»z»;» «)&ИНДЕКС(доля;ДЛСТР(ПСТР(ТЕКСТ(A3;n0);14;6));(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)-11;100);9);10)>0)+1);) Для ее использования вам необходимо указать несколько массивов Excel:

  1. n_2 ={«десятьz»;»одиннадцатьz»;»двенадцатьz»;»тринадцатьz»;»четырнадцатьz»;»пятнадцатьz»;»шестнадцатьz»;»семнадцатьz»;»восемнадцатьz»;»девятнадцатьz»}
  2. n_4 ={«»;»стоz»;»двестиz»;»тристаz»;»четырестаz»;»пятьсотz»;»шестьсотz»;»семьсотz»;»восемьсотz»;»девятьсотz»}
  3. тыс ={0;»тысячz»:1;»тысячаz»:2;»тысячиz»:5;»тысячz»}
  4. n1x =ЕСЛИ(n_3=1;n_2;n_3&n_5)
  5. n_1 ={«»;»одинz»;»дваz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»}
  6. n_5 ={«»;»однаz»;»двеz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»}
  7. n0x =ЕСЛИ(n_3=1;n_2;n_3&n_1)
  8. доля ={«десятая»;»десятых»:»сотая»;»сотых»:»тысячная»;»тысячных»:»десятитысячная»;»десятитысячных»:»стотысячная»;»стотысячных»:»миллионная «;»миллионных»}
  9. n0 =»000000000000″&ПСТР(1/2;2;1)&»0#####»
  10. мил ={0;»овz»:1;»z»:2;»аz»:5;»овz»}
  11. n_3 ={«»:1:»двадцатьz»:»тридцатьz»:»сорокz»:»пятьдесятz»:»шестьдесятz»:»семьдесятz»:»восемьдесятz»:»девяностоz»}

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

Вышеприведенная конструкция предназначена для ячейки A3.

Не забудьте поменять адрес. В англоязычном Excel формула суммы прописью будет выглядеть следующим образом: SUBSTITUTE(PROPER(INDEX(n_4,MID(TEXT(A1,n0),1,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),2,1)+1,MID(TEXT(A1,n0),3,1)+1)&IF(-MID(TEXT(A1,n0),1,3),»миллиард»&VLOOKUP(MID(TEXT(A1,n0),3,1)*AND(MID(TEXT(A1,n0),2,1)-1),мил,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),4,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),5,1)+1,MID(TEXT(A1,n0),6,1)+1)&IF(-MID(TEXT(A1,n0),4,3),»миллион»&VLOOKUP(MID(TEXT(A1,n0),6,1)*AND(MID(TEXT(A1,n0),5,1)-1),мил,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),7,1)+1)&INDEX(n1x,MID(TEXT(A1,n0),8,1)+1,MID(TEXT(A1,n0),9,1)+1)&IF(-MID(TEXT(A1,n0),7,3),VLOOKUP(MID(TEXT(A1,n0),9,1)*AND(MID(TEXT(A1,n0),8,1)-1),тыс,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),10,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),11,1)+1,MID(TEXT(A1,n0),12,1)+1)),»z»,» «)&IF(TRUNC(TEXT(A1,n0)),»»,»Ноль «)&»рубл»&VLOOKUP(MOD(MAX(MOD(MID(TEXT(A1,n0),11,2)-11,100),9),10),{0,»ь «;1,»я «;4,»ей «},2)&RIGHT(TEXT(A1,n0),2)&» копе»&VLOOKUP(MOD(MAX(MOD(RIGHT(TEXT(A1,n0),2)-11,100),9),10),{0,»йка»;1,»йки»;4,»ек»},2) Как видим, это не самый удобный способ преобразовать число в текст прописью в Excel.

Не забудьте поменять адрес. В англоязычном Excel формула суммы прописью будет выглядеть следующим образом: SUBSTITUTE(PROPER(INDEX(n_4,MID(TEXT(A1,n0),1,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),2,1)+1,MID(TEXT(A1,n0),3,1)+1)&IF(-MID(TEXT(A1,n0),1,3),»миллиард»&VLOOKUP(MID(TEXT(A1,n0),3,1)*AND(MID(TEXT(A1,n0),2,1)-1),мил,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),4,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),5,1)+1,MID(TEXT(A1,n0),6,1)+1)&IF(-MID(TEXT(A1,n0),4,3),»миллион»&VLOOKUP(MID(TEXT(A1,n0),6,1)*AND(MID(TEXT(A1,n0),5,1)-1),мил,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),7,1)+1)&INDEX(n1x,MID(TEXT(A1,n0),8,1)+1,MID(TEXT(A1,n0),9,1)+1)&IF(-MID(TEXT(A1,n0),7,3),VLOOKUP(MID(TEXT(A1,n0),9,1)*AND(MID(TEXT(A1,n0),8,1)-1),тыс,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),10,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),11,1)+1,MID(TEXT(A1,n0),12,1)+1)),»z»,» «)&IF(TRUNC(TEXT(A1,n0)),»»,»Ноль «)&»рубл»&VLOOKUP(MOD(MAX(MOD(MID(TEXT(A1,n0),11,2)-11,100),9),10),{0,»ь «;1,»я «;4,»ей «},2)&RIGHT(TEXT(A1,n0),2)&» копе»&VLOOKUP(MOD(MAX(MOD(RIGHT(TEXT(A1,n0),2)-11,100),9),10),{0,»йка»;1,»йки»;4,»ек»},2) Как видим, это не самый удобный способ преобразовать число в текст прописью в Excel. Преобразование с помощью макросов 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. Выбирайте для себя самый удобный и пользуйтесь с удовольствием! Отличного Вам дня! +9 -1 9 1 Предыдущая Ошибка при направлении команды Следующая Восстановление PST файла данных Outlook Читайте также.

Все по теме Как восстановить поврежденный PDF-файл? Есть ли жизнь без PDF или подарок-наказание от Adobe 10.02.2020 Elvira Восстановление PST файла данных Outlook 19.10.2018 lena Ошибка при направлении команды 27.11.2017 WindowsTips

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

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

в сумму прописью. Перед использованием, эту функцию необходимо добавить в вашу книгу. Для этого:

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

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. Теперь вы можете вставить созданную функцию в любую ячейку листа этой книги обычным способом — через мастер функций (кнопка fx в строке формул, категория Определенные пользователем) или просто набрав ее в ячейке вручную и указав в качестве аргумента ячейку с суммой: Если вам необходимо добавить к полученному тексту копейки, то можно воспользоваться чуть более сложной конструкцией: =СУММАПРОПИСЬЮ(A3)&» руб. «&ТЕКСТ((A3-ЦЕЛОЕ(A3))*100;»00″)&» коп.» =СУММАПРОПИСЬЮ(A3)&» руб.

«&TEXT((A3-INT(A3))*100;»00″)&» коп.» Тогда, например, для числа 35,15 результат функции будет выглядеть как «тридцать пять руб.

15 коп.»

Excel. Формулы. Копирование формул

8 января 2018Копирование формул — одна из наиболее распространенных операций при работе в Excel.

Неудивительно, что существует сразу несколько способов ее осуществления.

Поговорим о них подробнее.Способ, известный практически каждому, кто когда-либо работал в Excel.

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

Минусом метода является невозможность копирования в несмежные ячейки («протянуть» формулу можно только на соседние столбцы и строки). Если выделить несколько ячеек и протянуть — то копироваться будет весь диапазон.

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

Тогда Excel выдаст контекстное меню, в котором можно указать, что именно нужно копировать: всё, только значения (этот пункт копирует и формулы) или только форматы. Если протянуть ячейки не получается, то убедитесь, что в параметрах Excel не была отключена такая возможность. Файл — Параметры — Дополнительно — галочка напротив «Разрешить маркеры заполнения и перетаскивания ячеек» должна быть активирована.

Файл — Параметры — Дополнительно — галочка напротив

«Разрешить маркеры заполнения и перетаскивания ячеек»

должна быть активирована.

Похожий на предыдущий способ копирования можно реализовать, используя команду «Заполнить» на ленте на вкладке «Главная» в группе команд «Редактирование»Выделите диапазон ячеек в который нужно скопировать формулу, начав выделение с самой ячейки, содержащей формулу. Затем, в зависимости от того, куда нужно копировать данные, выберите один из вариантов заполнения (вниз, вправо, вверх, влево).В результате будет скопирована и формула, и форматирование ячеек. Данный способ — наиболее быстрый из всех существующих, но имеет ряд ограничений.

Для копирования этим методом нужно выделить ячейку или диапазон с нужными формулами, а затем дважды кликнуть на маркере автозаполнения в правом нижнем углу выделенного диапазона. К сожалению, достоинства этого способа нивелируются следующими недостатками (которые, тем не менее, не так критичны при правильной организации работы с данными и «классическом» ведении баз и таблиц):

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

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

Кроме того, используя данные методы, можно копировать формулы только в соседние (смежные) ячейки. Классический способ копирования с использование команд Ctrl+C (копировать) и Ctrl+V (вставить). Выделяете ячейку или диапазон, копируете, выделяете диапазон вставки (можно несмежный, можно несколько) и вставляете.

В результате вставится и формула, и форматирование. Способ аналогичный предыдущему, с той лишь разницей, что вставка осуществляется не с помощью клавиш Ctrl+V, а с применением Специальной вставки (Ctrl+Alt+V или клик правой кнопкой мыши — «Специальная вставка»).

Главное достоинство — можно выбрать вариант вставки формулы.

Например, скопировать их без форматирования, или вставить только значения.

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

Иначе Excel выдаст предупреждение

«Данная команда неприменима для нескольких фрагментов»

. Видеоверсию данной статьи смотрите на нашем канале на Чтобы не пропустить новые уроки и постоянно повышать свое мастерство владения Excel — подписывайтесь на наш канал в Telegram Куча интересного по другим офисным приложениям от Microsoft (Word, Outlook, Power Point, Visio и т.д.) — на нашем канале в Telegram Вопросы по Excel можно задать нашему боту обратной связи в Telegram Вопросы по другому ПО (кроме Excel) задавайте второму боту — По заказам и предложениям обращайтесь к нам на сайте С уважением, команда

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

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

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

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

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

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

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

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

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

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

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

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

Мы рады, что смогли помочь Вам в решении проблемы.

Добавьте сайт Lumpics.ru в закладки и мы еще пригодимся вам. Отблагодарите автора, поделитесь статьей в социальных сетях.

Опишите, что у вас не получилось.

Последние новости по теме статьи

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

Поэтому, для вас работают бесплатные эксперты-консультанты!

Расскажите о вашей проблеме, и мы поможем ее решить! Задайте вопрос прямо сейчас!

  • Анонимно
  • Профессионально

Задайте вопрос нашему юристу!

Расскажите о вашей проблеме и мы поможем ее решить!

+