Суммы и числа прописью - Страница 8

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

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

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

Digital

Дата: Четверг, 27.10.2016, 14:07 | Сообщение № 141

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 229

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

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

Excel 2007

Добрый день MCH!
Спасибо за наработку, очень полезная вещь при заполнении накладных.

Ответить

Алекс177

Дата: Понедельник, 05.12.2016, 11:37 | Сообщение № 142

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

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

Сообщений: 1

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

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

Excel 2007

Добрый день МСН!
Спасибо за формулы, очень помогли!
Помогите изменить одну формулу с первой страницы этой темы (num_spell_12x6.xls) где надо чтобы дробные оставались цифрами (например 4,991 Четыре целых 991 тысячная).
Заранее спасибо.

Ответить

luser11

Дата: Суббота, 18.03.2017, 08:46 | Сообщение № 143

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

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

Сообщений: 5

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

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

Excel 2013

Добрый день.

Очень нужна помощь.

Требуется перевести цифры в кинограммы

Пример: 19.475 (Девятнадцать тонн четыреста семьдесят пять кг)
1.121 (Одна тонна сто двадцать один кг)
2.040 (Две тонны сорок кг)
6.768 (Шесть тонн семьсот шестьдесят восемь кг)

Ответить

Alex_ST

Дата: Суббота, 18.03.2017, 21:46 | Сообщение № 144

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

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

Сообщений: 3221

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

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

2003

Цитата luser11, 18.03.2017 в 08:46, в сообщении № 143 ()

перевести цифры в кинограммы

так Вы не туда попали: цифры (бабло) в КИНОграммы переводят режиссёры.

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

Ответить

luser11

Дата: Воскресенье, 19.03.2017, 13:51 | Сообщение № 145

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

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

Сообщений: 5

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

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

Excel 2013

Сори килограммы

Ответить

luser11

Дата: Понедельник, 20.03.2017, 19:12 | Сообщение № 146

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

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

Сообщений: 5

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

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

Excel 2013

Господа. Неужели никому не под силу это?

Ответить

luser11

Дата: Понедельник, 20.03.2017, 21:16 | Сообщение № 147

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

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

Сообщений: 5

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

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

Excel 2013

Вот сам нашел

Ответить

luser11

Дата: Понедельник, 20.03.2017, 21:17 | Сообщение № 148

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

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

Сообщений: 5

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

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

Excel 2013

123

К сообщению приложен файл: 8329436.xlsm (25.0 Kb)

Ответить

DrMini

Дата: Воскресенье, 07.05.2017, 08:16 | Сообщение № 149

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

Ранг: Старожил

Сообщений: 2125

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

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

Excel LTSC 2024 RUS

Всем доброго времени суток!
В посте 3 описан вариант с UDF от MCH.
Сейчас выводится результат вот в таком виде:

Цитата

Десять рублей 55 копеек

А надо подправить так, что бы добавились скобки:

Цитата

(Десять) рублей 55 коп.

Прилагаю файл.

К сообщению приложен файл: -MCH-.xlsm (21.5 Kb)

Ответить

Pelena

Дата: Воскресенье, 07.05.2017, 08:33 | Сообщение № 150

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

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

Сообщений: 19569

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

Замечаний: ±

Excel 365 & Mac Excel

Если с минимальными исправлениями, добавьте перед [vba]

Код

End Function

[/vba] строчку [vba]

Код

MSumProp = "(" & Replace(MSumProp, " руб", ") руб")

[/vba]

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

Ответить

DrMini

Дата: Воскресенье, 07.05.2017, 08:48 | Сообщение № 151

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

Ранг: Старожил

Сообщений: 2125

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

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

Excel LTSC 2024 RUS

Спасибо. То, что нужно.
Хороших выходных Вам и Вашим близким.

Ответить

drud

Дата: Вторник, 25.07.2017, 14:18 | Сообщение № 152

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

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

Сообщений: 2

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

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

Excel 2003

Добрый день!
Вот уже полгода я вбиваю прописью итоговые результаты статистики, спецификаций. Т.к. объема перелопачиваемых данных много, то данное прописывание занимает много времени. Задался целью найти решение. Попытался сделать у себя то, что вы предлагаете, однако у меня текст выдает без первой цифры и зачем то выдает копейки. Я несколько далек от программирования и знаний не хватает автоматизировать процесс.
Могли бы вы мне помочь привести все в нужную форму? Очень сильно спасете меня от нудятины.

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

Сообщение отредактировал drud - Вторник, 25.07.2017, 14:19

Ответить

_Boroda_

Дата: Вторник, 25.07.2017, 14:42 | Сообщение № 153

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

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

Сообщений: 16956

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

drud, Вы пропустили ссылку на ячейку внутри двух ТЕКСТ(ссылка;...
И имя n0 я переписал с ,00

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

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

Ответить

drud

Дата: Среда, 26.07.2017, 10:28 | Сообщение № 154

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

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

Сообщений: 2

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

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

Excel 2003

Цитата _Boroda_, 25.07.2017 в 14:42, в сообщении № 153 ()

drud, Вы пропустили ссылку на ячейку внутри двух ТЕКСТ(ссылка;...
И имя n0 я переписал с ,00

Спасибо тебе Борода за умную голову! Скажи плиз как можно связаться с тобой? Мне нужно чтобы автоматизировалось все. Когда итоговую сумму в таблице выводишь и чтобы далее автоматом менялись все данные в зеленом участке (цифры и пропись). Готов немного компенсировать материально твою корректировку. Если можно конечно.

Ответить

SNN

Дата: Понедельник, 04.09.2017, 12:09 | Сообщение № 155

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

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

Сообщений: 7

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

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

Excel 2013

Доброго дня!Уважаемые знатоки Excel, с удовольствием воспользовалась найденной здесь формулой для прописи суммы на русском языке, но очень-очень хотелось бы подобную формулу для преобразования суммы на английском языке. Например 587,17 = Five hundred eighty-seven dollars seventeen cents. Заранее спасибо!

Ответить

SLAVICK

Дата: Понедельник, 04.09.2017, 15:53 | Сообщение № 156

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

Ранг: Старожил

Сообщений: 2290

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

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

2019

Цитата SNN, 04.09.2017 в 12:09, в сообщении № 158 ()

587,17 = Five hundred eighty-seven dollars seventeen cents

не поверите, но на сайте поддержки майкрософта есть ЮДФка.

Иногда все проще чем кажется с первого взгляда.

Ответить

SNN

Дата: Понедельник, 04.09.2017, 16:07 | Сообщение № 157

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

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

Сообщений: 7

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

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

Excel 2013

SLAVICK, отчего не поверить? Поверю)). А возможно ли обойтись без модулей и макросов? Просто формулой? Вот для преобразования на русском я здесь скопировала формулу:

Код

=ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(K24;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(K24;n0);2;1)+1;ПСТР(ТЕКСТ(K24;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(K24;n0);1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(K24;n0);3;1)*И(ПСТР(ТЕКСТ(K24;n0);2;1)-1);мил;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(K24;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(K24;n0);5;1)+1;ПСТР(ТЕКСТ(K24;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(K24;n0);4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(K24;n0);6;1)*И(ПСТР(ТЕКСТ(K24;n0);5;1)-1);мил;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(K24;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(K24;n0);8;1)+1;ПСТР(ТЕКСТ(K24;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(K24;n0);7;3);ВПР(ПСТР(ТЕКСТ(K24;n0);9;1)*И(ПСТР(ТЕКСТ(K24;n0);8;1)-1);тыс;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(K24;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(K24;n0);11;1)+1;ПСТР(ТЕКСТ(K24;n0);12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(K24;n0));"";"Ноль ")&"рубл"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(K24;n0);11;2)-11;100);9);10);{0;"ь ":1;"я ":4;"ей "};2)&ЕСЛИ(-ПРАВСИМВ(ТЕКСТ(K24;n0);2);ПОДСТАВИТЬ(ИНДЕКС(n1x;ПСТР(ТЕКСТ(K24;n0);14;1)+1;ПСТР(ТЕКСТ(K24;n0);15;1)+1);"z";" ");"ноль ")&"копе"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(K24;n0);2)-11;100);9);10);{0;"йка":1;"йки":4;"ек"};2)

И стало мне легко и радостно)). Вот бы и с английским текстом так

А то у меня доки на 2 языках..

Сообщение отредактировал SNN - Понедельник, 04.09.2017, 16:51

Ответить

SLAVICK

Дата: Вторник, 05.09.2017, 12:03 | Сообщение № 158

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

Ранг: Старожил

Сообщений: 2290

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

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

2019

Цитата SNN, 04.09.2017 в 16:07, в сообщении № 160 ()

я здесь скопировала формулу:

А ничего что у Вас эта формула сама по себе работать не будет. Нужно копировать еще и имена с документа(правда они копируются автоматически, если копировать из документа)
а так создайте личную книгу макросов - и запихните туда ЮДФку - и будет работать во всех документах у Вас.
переделывать файлы МСН - лениво - тем более, что таких велосипедов есть в интернете, например тут или тут
по второй ссылке - есть и метод с доп.Именами как в Вашем примере.
вот формула - будет работать без доп. имен - в любом документе кроме старых книг (не будет работать в книгах 97-2003 (*.XLS) - там ограничения по длине формул):
[vba]

Код

=СЖПРОБЕЛЫ(ЕСЛИ(A1>=10^14;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^15)/10^14;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"")
&ЕСЛИ(ОСТАТ(A1;10^15)>=10^14;" Hundred";" ")
&" "
&ЕСЛИ(ОСТАТ(A1;10^14)>=2*10^13;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^14)/10^13;1)+1;"";"";"Twenty";"Thirty";"Forty";"Fifty";"Sixty"; "Seventy";"Eighty";"Ninety")
&ЕСЛИ(ОСТАТ(ОСТАТ(A1;10^14);10^13)>=10^12;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ОСТАТ(A1;10^14);10^13)/10^12;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"");ЕСЛИ(ОСТАТ(A1;10^14)>=10^12;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^14)/10^12;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven"; "Eight";"Nine";"Ten";"Eleven";"Twelve";"Thirteen";"Fourteen";"Fifteen";"Sixteen";"Seventeen"; "Eighteen";"Nineteen");""))
&ЕСЛИ(ОСТАТ(A1;10^15)>=10^12;" Trillion";" ")
&" "
&ЕСЛИ(A1>=10^11;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^12)/10^11;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"")
&ЕСЛИ(ОСТАТ(A1;10^12)>=10^11;" Hundred";" ")
&" "
&ЕСЛИ(ОСТАТ(A1;10^11)>=2*10^10;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^11)/10^10;1)+1;"";"";"Twenty";"Thirty";"Forty";"Fifty";"Sixty"; "Seventy";"Eighty";"Ninety")
&ЕСЛИ(ОСТАТ(ОСТАТ(A1;10^11);10^10)>=10^9;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ОСТАТ(A1;10^11);10^10)/10^9;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"");ЕСЛИ(ОСТАТ(A1;10^11)>=10^9;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^11)/10^9;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven"; "Eight";"Nine";"Ten";"Eleven";"Twelve";"Thirteen";"Fourteen";"Fifteen";"Sixteen";"Seventeen"; "Eighteen";"Nineteen");""))
&ЕСЛИ(ОСТАТ(A1;10^12)>=10^9;" Billion";" ")
&" "
&ЕСЛИ(A1>=10^8;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^9)/10^8;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"")
&ЕСЛИ(ОСТАТ(A1;10^9)>=10^8;" Hundred";" ")
&" "
&ЕСЛИ(ОСТАТ(A1;10^8)>=2*10^7;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^8)/10^7;1)+1;"";"";"Twenty";"Thirty";"Forty";"Fifty";"Sixty"; "Seventy";"Eighty";"Ninety")
&ЕСЛИ(ОСТАТ(ОСТАТ(A1;10^8);10^7)>=10^6;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ОСТАТ(A1;10^8);10^7)/10^6;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"");ЕСЛИ(ОСТАТ(A1;10^8)>=10^6;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^8)/10^6;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven"; "Eight";"Nine";"Ten";"Eleven";"Twelve";"Thirteen";"Fourteen";"Fifteen";"Sixteen";"Seventeen"; "Eighteen";"Nineteen");""))
&ЕСЛИ(ОСТАТ(A1;10^9)>=10^6;" Million";" ")
&" "
&ЕСЛИ(A1>=10^5;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^6)/10^5;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"")
&ЕСЛИ(ОСТАТ(A1;10^6)>=10^5;" Hundred";" ")
&" "
&ЕСЛИ(ОСТАТ(A1;10^5)>=20000;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^5)/10^4;1)+1;"";"";"Twenty";"Thirty";"Forty";"Fifty";"Sixty"; "Seventy";"Eighty";"Ninety")
&ЕСЛИ(ОСТАТ(ОСТАТ(A1;10^5);10^4)>=10^3;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ОСТАТ(A1;10^5);10^4)/10^3;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"");ЕСЛИ(ОСТАТ(A1;10^5)>=10^3;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^5)/10^3;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven"; "Eight";"Nine";"Ten";"Eleven";"Twelve";"Thirteen";"Fourteen";"Fifteen";"Sixteen";"Seventeen"; "Eighteen";"Nineteen");""))
&ЕСЛИ(ОСТАТ(A1;10^6)>=10^3;" Thousand";" ")
&ЕСЛИ(A1>=10^2;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^3)/10^2;1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"")
&ЕСЛИ(ОСТАТ(A1;10^3)>=10^2;" Hundred";" ")
&ЕСЛИ(ОСТАТ(A1;10^2)>=20;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^2)/10;1)+1;"";"";"Twenty";"Thirty";"Forty";"Fifty";"Sixty"; "Seventy";"Eighty";"Ninety")
&ЕСЛИ(ОСТАТ(ОСТАТ(A1;10^2);10)>=1;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ОСТАТ(A1;10^2);10);1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"");ЕСЛИ(ОСТАТ(A1;10^2)>=1;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(A1;10^2);1)+1;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven"; "Eight";"Nine";"Ten";"Eleven";"Twelve";"Thirteen";"Fourteen";"Fifteen";"Sixteen";"Seventeen"; "Eighteen";"Nineteen");""))
&ЕСЛИ(ОТБР(A1)=1;" Dollar";"")
&ЕСЛИ(ОТБР(A1)>1;" Dollars";"")
&ЕСЛИ(И(A1>0,99;ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2)>0);" and";"")
&ЕСЛИ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2)>=20;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2)/10;1)+1;"";"";"Twenty";"Thirty";"Forty";"Fifty";"Sixty"; "Seventy";"Eighty";"Ninety")
&ЕСЛИ(ОСТАТ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2);10)>=1;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2);10);1)+1;"";"One";"Two";"Three";"Four";"Five";"Six"; "Seven";"Eight";"Nine");"");ЕСЛИ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2)>=1;" "
&ВЫБОР(ОКРВНИЗ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2);1)+1;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven"; "Eight";"Nine";"Ten";"Eleven";"Twelve";"Thirteen";"Fourteen";"Fifteen";"Sixteen";"Seventeen"; "Eighteen";"Nineteen");""))
&ЕСЛИ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2)=1;" Cent";"")
&ЕСЛИ(ОСТАТ(ПРАВСИМВ((ОКРУГЛ(A1;2))*100;2);10^2)>1;" Cents";""))

[/vba]