Суммы и числа прописью - Страница 5 - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Суммы и числа прописью - Страница 5 - Мир MS Excel

Старая форма входа

Страница 5 из 12 « 1 2 3 4 5 6 7 … 11 12 »
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Готовые решения » Суммы и числа прописью (Excel)

Суммы и числа прописью

Дата: Вторник, 03.03.2015, 13:10 | Сообщение № 81

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Поможите кто чем может, от поезда отстал, документы украли!
В ячейке, где число пропись (украинский язык) с последней двойкой косяк - вместо два пишет дві. Укажите горемычному где ошибка в коде.

К сообщению приложен файл: 123.xls (35.0 Kb)

Ответить

Дата: Вторник, 03.03.2015, 13:24 | Сообщение № 82

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

в строке поменяйте
[vba]

Код

Nums0 = Array("", "одна ", "двi ", "......

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Вторник, 03.03.2015, 13:52 | Сообщение № 83

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Ай спасибо! Фунциклирует.

Ответить

Дата: Среда, 11.03.2015, 21:09 | Сообщение № 84

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3206

Репутация: 609 ±

Замечаний: 0% ±

2003

Упс! А куда вдруг пропали все посты с мучениями с переводом на мову формульного вычисления с дробями? Или Palamar себя плохо повёл, скатился на майданный флудо-троллинг и его посты покоцали?

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Среда, 11.03.2015, 21:11 | Сообщение № 85

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

По просьбе автора темы перенесла обсуждение в отдельную тему
http://www.excelworld.ru/forum/2-16309-1

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Среда, 11.03.2015, 21:16 | Сообщение № 86

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3206

Репутация: 609 ±

Замечаний: 0% ±

2003

Понял, Лена. В общем-то правильно, наверное. Здесь всё-таки "Готовые решения".
Только надо было первый пост в вопросом Palamar здесь оставить, а в него добавить ссылку на новый топик с пояснением модератора сразу после переноса постов.
И, главное, не забыть после решения вопроса сюда решение выложить.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 11.03.2015, 21:17

Ответить

Дата: Воскресенье, 13.09.2015, 19:49 | Сообщение № 87

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, помогите сделать!!!!!
Пожалуйста нужно срочно, помогите.
Нужно в ячейке B1 чтобы писало прописью на украинском число, которое в ячейке А1.

К сообщению приложен файл: 5108722.xlsx (7.4 Kb)

Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 19:52

Ответить

Дата: Воскресенье, 13.09.2015, 19:51 | Сообщение № 88

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Вот файл к предыдущему сообщению

Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 19:52

Ответить

Дата: Воскресенье, 13.09.2015, 20:31 | Сообщение № 89

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

trostya, Вы данную тему всю прочитали? Например, пост№81 не Ваш случай?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 13.09.2015, 21:04 | Сообщение № 90

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!!

Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 21:04

Ответить

Дата: Воскресенье, 13.09.2015, 21:10 | Сообщение № 91

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Вот ещё числа прописью на украинском
http://www.excelworld.ru/forum/2-16309-1

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 13.09.2015, 21:16 | Сообщение № 92

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

По этой ссылке http://www.excelworld.ru/forum/2-16309-1 второй пост,
там есть на украинском, но там с рублями и копейками, а мне нужны целые числа без рублей и копеек,
если можно сделайте в тот документ что я скидывал!!!!

Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 21:16

Ответить

Дата: Воскресенье, 13.09.2015, 21:18 | Сообщение № 93

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

А если всё-таки прочитать тему? Там таки автором выложено окончательное решение

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 13.09.2015, 21:23 | Сообщение № 94

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Ответить

Дата: Воскресенье, 13.09.2015, 21:37 | Сообщение № 95

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, Поможешь сделать???

Ответить

Дата: Воскресенье, 13.09.2015, 21:39 | Сообщение № 96

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Такое чувство, что мы про разные темы говорим. Вот здесь пример с формулой, которая работает с любыми числами, в том числе и целыми
[p.s.]Не помню, чтобы мы переходили на ты[/p.s.]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 13.09.2015, 21:52 | Сообщение № 97

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Извините за "ТЫ", ну вот вставил формулу но нечего не пишет(((((

К сообщению приложен файл: 22.xlsx (8.2 Kb)

Ответить

Дата: Воскресенье, 13.09.2015, 22:14 | Сообщение № 98

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Копируйте не текст формулы из строки формул, а ячейку

К сообщению приложен файл: 1131735.xlsx (9.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 13.09.2015, 22:44 | Сообщение № 99

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, ОЧЕНЬ ОГРОМНОЕ СПАСИБО!!!!!!!! hands

hands

:hands:

hands

:hands:

specool

:specool:

specool

first

:first:

Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 22:44

Ответить

Дата: Среда, 21.10.2015, 11:34 | Сообщение № 100

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Формула преобразования значения в цифровом формате в сумму прописью в рублях.
Все в одной ячейке с использованием матриц, ВПР и прочих формул без лишних таблиц.
Ссылка на ячейку A1.
Конструкция громоздкая (7703 знака), но как не странно работает.
Преобразует число до 999 миллиардов.
При разряде менее 0,01 проводит округление.
Формат следующий:
Число - 123456789123,456
Ответ - 123 456 789 123 (сто двадцать три миллиарда четыреста пятьдесят шесть миллионов семьсот восемьдесят девять тысяч сто двадцать три) рубля 46 копеек

Формула:
_________________________________________________________________________

Код

ТЕКСТ(ОТБР(A1;0);"# ##0_ ")&"("&ЕСЛИ(ОТБР(A1;0)=0;"ноль";ЕСЛИ(ОТБР(ОСТАТ(A1/10^9;1000);0)=0;"";ЕСЛИ(ОТБР(ОСТАТ(A1/10^9;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)=0;"";ВПР(ОТБР(ОСТАТ(A1/10^9;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0))&" "&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=1;"миллиардов ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=4);"миллиарда ";"миллиардов ")))&ЕСЛИ(ОТБР(ОСТАТ(A1/10^6;1000);0)=0;"";ЕСЛИ(ОТБР(ОСТАТ(A1/10^6;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)=0;"";ВПР(ОТБР(ОСТАТ(A1/10^6;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=1;"миллион ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=4);"миллиона ";"миллионов ")))&ЕСЛИ(ОТБР(ОСТАТ(A1/1000;1000);0)=0;"";ЕСЛИ((ОТБР(ОСТАТ(A1/1000;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100))=0;"";ВПР((ОТБР(ОСТАТ(A1/1000;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100));{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10));{1;"одна":2;"две":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=1;"тысяча ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=4);"тысячи ";"тысяч ")))&ЕСЛИ(ОТБР(ОСТАТ(A1;1000);0)=0;"";ЕСЛИ(ОТБР(ОСТАТ(A1;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)=0;"";ВПР(ОТБР(ОСТАТ(A1;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0))))&") "&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=1;"рубль ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=4);"рубля ";"рублей "))&ТЕКСТ(ОКРУГЛ(100*A1;0)-ОКРУГЛВНИЗ(100*A1;-2);"00_ ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100)<20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))=1;"копейка";ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100)>20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))>=5;"копеек";"копейки"))

________________________________________________________________________________________________________

гипотетически можно заменить "рубль", "рубли", "рублей" и "копейка", "копейки", "копеек" на другую ед. измерения.
Занимался для того чтобы не ковыряться долго при включении сумм в тексты договорных документов.
[moder]Формулы следует оформлять тегами. Кнопка fx. Исправила[/moder]

Улыбайтесь. Люди любят идиотов.

Сообщение отредактировал Aleckx - Среда, 21.10.2015, 15:41

Ответить

Мир MS Excel » Вопросы и решения » Готовые решения » Суммы и числа прописью (Excel)

Страница 5 из 12
«
1
2
3
4
5
6
7
…
11
12
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!