Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » Суммы и числа прописью (Excel)
Суммы и числа прописью
MCH Дата: Вторник, 16.02.2016, 05:16 | Сообщение № 121
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

как можно самому менять чтобы копейки тоже были прописными?

Посмотрите, так надо?
[vba]
Код
Function TurkmenProp2$(c#)
'Автор Михаил Ч. (MCH)
Dim st$, tg$, ed, des, razr, i&, m$
If c > 999999999999# Or c < 0 Then Exit Function

ed = Array("", "bir ", "iki ", ChrW(252) & ChrW(231) & " ", "d" & ChrW(246) & "rt ", "b" & ChrW(228) & ChrW(351) & " ", "alty" & " ", ChrW(253) & "edi ", "sekiz ", "dokuz ")
des = Array("", "on ", ChrW(253) & "igrimi ", "otuz ", "kyrk ", "elli ", "altmy" & ChrW(351) & " ", ChrW(253) & "etmi" & ChrW(351) & " ", "segsen ", "togsan ")
razr = Array("milliard ", "million ", "m" & ChrW(252) & ChrW(328) & " ", "")

st = Left(Format(c, "000000000000.00"), 12)
tg = Right(Format(c, " 0.00"), 2)

If CDbl(st) = 0 Then m = "nol "
For i = 1 To Len(st) Step 3
    If Mid(st, i, 3) <> "000" Then
        m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & ChrW(253) & ChrW(252) & "z ")
        m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3)
    End If
Next i
TurkmenProp2 = UCase(Left(m, 1)) & Mid(m, 2) & "manat " & IIf(CDbl(tg) = 0, "nol ", des(CInt(Mid(tg, 1, 1))) & ed(CInt(Mid(tg, 2, 1)))) & "te" & ChrW(328) & ChrW(328) & "e"
End Function
[/vba]
К сообщению приложен файл: 7336524.xls (99.5 Kb)
 
Ответить
Сообщение
как можно самому менять чтобы копейки тоже были прописными?

Посмотрите, так надо?
[vba]
Код
Function TurkmenProp2$(c#)
'Автор Михаил Ч. (MCH)
Dim st$, tg$, ed, des, razr, i&, m$
If c > 999999999999# Or c < 0 Then Exit Function

ed = Array("", "bir ", "iki ", ChrW(252) & ChrW(231) & " ", "d" & ChrW(246) & "rt ", "b" & ChrW(228) & ChrW(351) & " ", "alty" & " ", ChrW(253) & "edi ", "sekiz ", "dokuz ")
des = Array("", "on ", ChrW(253) & "igrimi ", "otuz ", "kyrk ", "elli ", "altmy" & ChrW(351) & " ", ChrW(253) & "etmi" & ChrW(351) & " ", "segsen ", "togsan ")
razr = Array("milliard ", "million ", "m" & ChrW(252) & ChrW(328) & " ", "")

st = Left(Format(c, "000000000000.00"), 12)
tg = Right(Format(c, " 0.00"), 2)

If CDbl(st) = 0 Then m = "nol "
For i = 1 To Len(st) Step 3
    If Mid(st, i, 3) <> "000" Then
        m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & ChrW(253) & ChrW(252) & "z ")
        m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3)
    End If
Next i
TurkmenProp2 = UCase(Left(m, 1)) & Mid(m, 2) & "manat " & IIf(CDbl(tg) = 0, "nol ", des(CInt(Mid(tg, 1, 1))) & ed(CInt(Mid(tg, 2, 1)))) & "te" & ChrW(328) & ChrW(328) & "e"
End Function
[/vba]

Автор - MCH
Дата добавления - 16.02.2016 в 05:16
Alex_ST Дата: Вторник, 16.02.2016, 10:54 | Сообщение № 122
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3206
Репутация: 609 ±
Замечаний: 0% ±

2003
[offtop]Ну, Миша, ты и гигант! Прямо полиглот какой-то! [/offtop] hands



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщение[offtop]Ну, Миша, ты и гигант! Прямо полиглот какой-то! [/offtop] hands

Автор - Alex_ST
Дата добавления - 16.02.2016 в 10:54
begimot Дата: Четверг, 25.02.2016, 17:01 | Сообщение № 123
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А возможно как то доработать формулку без копеек, а копейки писала цифрами в другой ячейки. и чтоб считала только до 1миллиона руб.лишнее не к чему.
Буду очень признателен .
К сообщению приложен файл: 0289767.xls (61.5 Kb) · 0185159.jpg (40.6 Kb)


— Дуся! Вы меня озлобляете. Я человек, измученный нарзаном.
 
Ответить
СообщениеА возможно как то доработать формулку без копеек, а копейки писала цифрами в другой ячейки. и чтоб считала только до 1миллиона руб.лишнее не к чему.
Буду очень признателен .

Автор - begimot
Дата добавления - 25.02.2016 в 17:01
begimot Дата: Четверг, 25.02.2016, 17:53 | Сообщение № 124
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
вроде разобрался сам по предыдущему топику.


— Дуся! Вы меня озлобляете. Я человек, измученный нарзаном.
 
Ответить
Сообщениевроде разобрался сам по предыдущему топику.

Автор - begimot
Дата добавления - 25.02.2016 в 17:53
NOVI4EK Дата: Четверг, 25.02.2016, 23:19 | Сообщение № 125
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем здравствуйте!

Пытался сам разобраться, но ничего не вышло...
Нужно чтобы сумма в счете отображалась прописью.

Может кто-нибудь помочь?
Файл прикрепил
К сообщению приложен файл: __01__.xlsx (18.1 Kb)
 
Ответить
СообщениеВсем здравствуйте!

Пытался сам разобраться, но ничего не вышло...
Нужно чтобы сумма в счете отображалась прописью.

Может кто-нибудь помочь?
Файл прикрепил

Автор - NOVI4EK
Дата добавления - 25.02.2016 в 23:19
Hugo Дата: Пятница, 26.02.2016, 01:15 | Сообщение № 126
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3253
Репутация: 707 ±
Замечаний: 0% ±

2019
NOVI4EK, для начала выберите из всего многообразия предложенных решений нужное - я например без понятия в каком виде Вам нужна эта пропись, и даже в каой ячейке и на каком языке (скорее на русском, но кто знает...)
Ну и далее нужно решить - макросы разрешены или нет, кто будет этот документ распечатывать - т.к. если это Вы, то код можно и в надстройку кинуть, а если кто-то другой - то ему уже xlsx не дашь, ему нужно макрос внедрять, ну или делать на именах и стандартно, что в целом сложнее.
А вообще этот вопрос нужно задавать не здесь, не в готовых решениях. Я бы тему подчистил, а Вы продублируйте вопрос в отдельной теме в другой ветке - по ситуации в VBA или в Excel. Если ещё интересно.


excel@nxt.ru
webmoney: E265281470651 Z422237915069


Сообщение отредактировал Hugo - Пятница, 26.02.2016, 01:17
 
Ответить
СообщениеNOVI4EK, для начала выберите из всего многообразия предложенных решений нужное - я например без понятия в каком виде Вам нужна эта пропись, и даже в каой ячейке и на каком языке (скорее на русском, но кто знает...)
Ну и далее нужно решить - макросы разрешены или нет, кто будет этот документ распечатывать - т.к. если это Вы, то код можно и в надстройку кинуть, а если кто-то другой - то ему уже xlsx не дашь, ему нужно макрос внедрять, ну или делать на именах и стандартно, что в целом сложнее.
А вообще этот вопрос нужно задавать не здесь, не в готовых решениях. Я бы тему подчистил, а Вы продублируйте вопрос в отдельной теме в другой ветке - по ситуации в VBA или в Excel. Если ещё интересно.

Автор - Hugo
Дата добавления - 26.02.2016 в 01:15
NOVI4EK Дата: Пятница, 26.02.2016, 01:31 | Сообщение № 127
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Hugo, Спасибо за развернутый комментарий. Задам этот вопрос в положенном месте.
 
Ответить
СообщениеHugo, Спасибо за развернутый комментарий. Задам этот вопрос в положенном месте.

Автор - NOVI4EK
Дата добавления - 26.02.2016 в 01:31
Sure Дата: Вторник, 08.03.2016, 01:15 | Сообщение № 128
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac
Здравствуйте!

Восхищён способностями корифеев Excelя! Попытался на основе выложенных файлов скорректировать формулу под свои нужды. Не вышло :(((

Был бы очень благодарен, если бы кто-нибудь смог помочь.

Нужна формула для отображения числа прописью на английском языке, все буквы прописные (заглавные), знаки после запятой - цифрами в виде, к примеру, 55/100 без слова CENTS (если после запятой нули, то в прописном варианте их опускаем). В конце - обозначение валюты EUR.

Заранее спасибо!

P.S. Всех прекрасных дам поздравляю с 8-м Марта!!!
 
Ответить
СообщениеЗдравствуйте!

Восхищён способностями корифеев Excelя! Попытался на основе выложенных файлов скорректировать формулу под свои нужды. Не вышло :(((

Был бы очень благодарен, если бы кто-нибудь смог помочь.

Нужна формула для отображения числа прописью на английском языке, все буквы прописные (заглавные), знаки после запятой - цифрами в виде, к примеру, 55/100 без слова CENTS (если после запятой нули, то в прописном варианте их опускаем). В конце - обозначение валюты EUR.

Заранее спасибо!

P.S. Всех прекрасных дам поздравляю с 8-м Марта!!!

Автор - Sure
Дата добавления - 08.03.2016 в 01:15
Мурад Дата: Среда, 13.04.2016, 10:30 | Сообщение № 129
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
Очень полезные формулы! Спасибо огромное! Я пролистал все страницы, но видимо плохо... Подскажите, тут уже обсуждалась возможность прописи суммы в математическом формате?
100 = сто
100,23 = сто целых двадцать три сотых
100,1 = сто целых одна десятая
 
Ответить
СообщениеОчень полезные формулы! Спасибо огромное! Я пролистал все страницы, но видимо плохо... Подскажите, тут уже обсуждалась возможность прописи суммы в математическом формате?
100 = сто
100,23 = сто целых двадцать три сотых
100,1 = сто целых одна десятая

Автор - Мурад
Дата добавления - 13.04.2016 в 10:30
Pelena Дата: Среда, 13.04.2016, 10:32 | Сообщение № 130
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Мурад, второй пост темы посмотрите


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМурад, второй пост темы посмотрите

Автор - Pelena
Дата добавления - 13.04.2016 в 10:32
SLAVICK Дата: Среда, 13.04.2016, 10:33 | Сообщение № 131
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Я пролистал все страницы, но видимо плохо..

Как же Вы их листали?
См. 2-й пост от МСН.


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Я пролистал все страницы, но видимо плохо..

Как же Вы их листали?
См. 2-й пост от МСН.

Автор - SLAVICK
Дата добавления - 13.04.2016 в 10:33
Мурад Дата: Среда, 13.04.2016, 10:49 | Сообщение № 132
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
Pelena, SLAVICK, увидел, спасибо!
 
Ответить
СообщениеPelena, SLAVICK, увидел, спасибо!

Автор - Мурад
Дата добавления - 13.04.2016 в 10:49
jakky Дата: Суббота, 07.05.2016, 19:02 | Сообщение № 133
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Респект Автору!
 
Ответить
СообщениеРеспект Автору!

Автор - jakky
Дата добавления - 07.05.2016 в 19:02
Yulia_2013 Дата: Суббота, 14.05.2016, 21:52 | Сообщение № 134
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Подскажите, пожалуйста, как сделать написание прописью дат из интервала: 01.01.2001 - 01.01.2011
[moder]Читаем Правила форума, создаём свою тему, прикладываем файл с примером[/moder]


Сообщение отредактировал Pelena - Суббота, 14.05.2016, 22:16
 
Ответить
СообщениеЗдравствуйте!
Подскажите, пожалуйста, как сделать написание прописью дат из интервала: 01.01.2001 - 01.01.2011
[moder]Читаем Правила форума, создаём свою тему, прикладываем файл с примером[/moder]

Автор - Yulia_2013
Дата добавления - 14.05.2016 в 21:52
Recidivist Дата: Четверг, 07.07.2016, 11:12 | Сообщение № 135
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!
Сделайте, пожалуйста, что бы писало "белорусских рублей"
К сообщению приложен файл: 0990483.xls (61.5 Kb)
 
Ответить
СообщениеЗдравствуйте!
Сделайте, пожалуйста, что бы писало "белорусских рублей"

Автор - Recidivist
Дата добавления - 07.07.2016 в 11:12
китин Дата: Четверг, 07.07.2016, 11:44 | Сообщение № 136
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну навскидку вот так . в первом приближении. получается "белорусских рубль" .но "белорусских рублей"
К сообщению приложен файл: 8624786.xls (62.0 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену навскидку вот так . в первом приближении. получается "белорусских рубль" .но "белорусских рублей"

Автор - китин
Дата добавления - 07.07.2016 в 11:44
toha1903 Дата: Четверг, 15.09.2016, 08:36 | Сообщение № 137
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
MCH, MCH, Здравствуйте, помогите пожалуйста сделать чтоб 00 дирам тоже выходило, сейчас например число 3,0 выходит Се сомони, а надо Се сомони 0 дирам. Заранее благодарен
 
Ответить
СообщениеMCH, MCH, Здравствуйте, помогите пожалуйста сделать чтоб 00 дирам тоже выходило, сейчас например число 3,0 выходит Се сомони, а надо Се сомони 0 дирам. Заранее благодарен

Автор - toha1903
Дата добавления - 15.09.2016 в 08:36
zub777 Дата: Понедельник, 17.10.2016, 16:31 | Сообщение № 138
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, MCH! Прошу помощи. Скачал вашу формулу sum_spell34kop.xls (Спасибо большое), можно её доработать, чтобы в итоги получалось так, (например) из суммы
1355172,37 (Один миллион триста пятьдесят пять тысяч сто семьдесят два) рубля 37 (Тридцать семь) копеек
Чтобы присутствовали скобки, копейки прописывались цифрами и прописью в скобках как в примере.
Очень прошу помочь!
Заранее большое спасибо!
P.S. Ниже прикреплен файл с вашей формулой (sum_spell34kop.xls) только под другим названием
К сообщению приложен файл: 9150863.xls (65.5 Kb)


Сообщение отредактировал zub777 - Понедельник, 17.10.2016, 16:34
 
Ответить
СообщениеДобрый день, MCH! Прошу помощи. Скачал вашу формулу sum_spell34kop.xls (Спасибо большое), можно её доработать, чтобы в итоги получалось так, (например) из суммы
1355172,37 (Один миллион триста пятьдесят пять тысяч сто семьдесят два) рубля 37 (Тридцать семь) копеек
Чтобы присутствовали скобки, копейки прописывались цифрами и прописью в скобках как в примере.
Очень прошу помочь!
Заранее большое спасибо!
P.S. Ниже прикреплен файл с вашей формулой (sum_spell34kop.xls) только под другим названием

Автор - zub777
Дата добавления - 17.10.2016 в 16:31
MCH Дата: Вторник, 18.10.2016, 08:18 | Сообщение № 139
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

zub777, так нужно? (см. вложение)
К сообщению приложен файл: SumRubKop.xlsx (15.9 Kb)
 
Ответить
Сообщениеzub777, так нужно? (см. вложение)

Автор - MCH
Дата добавления - 18.10.2016 в 08:18
zub777 Дата: Вторник, 18.10.2016, 09:39 | Сообщение № 140
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, MCH? Большое Спасибо! Работаю в сфере здравоохранения в гос. закупках, данный формат был утвержден для написания Цены в контракте.
Большое Спасибо!!!!!!
 
Ответить
СообщениеДобрый день, MCH? Большое Спасибо! Работаю в сфере здравоохранения в гос. закупках, данный формат был утвержден для написания Цены в контракте.
Большое Спасибо!!!!!!

Автор - zub777
Дата добавления - 18.10.2016 в 09:39
Мир MS Excel » Вопросы и решения » Готовые решения » Суммы и числа прописью (Excel)
Поиск:

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