Представить рубли числом, а копейки прописью

@Евгений311313 · Регистрация: 02.05.2020

Author24 — интернет-сервис помощи студентам

Найденное значение представляется в виде текста, рубли – числом, а копейки прописью;
Нужно вывести прописью количество копеек, составив два списка числительных (первый - от 1 до 19 (прописью), второй - десятки от 20 до 90 (тоже прописью).найденное значение представляется в виде текста, рубли – числом, а копейки прописью;
пример в ячейке E6 введено количество рублей(2452), а в ячейки f6 количество копеек(42). В ячейке e7 должен появиться текст 2452 руб. сорок две коп.

@3D Homer · 04.06.2020, 23:01

Если вопрос по Excel, то идите в соответствующий форум.

@VSI · 05.06.2020, 08:55

Евгений311313, загляните в самый низ этой страницы в раздел "Похожие темы". Можете найти для себя много полезной информации...

@Vlad999 · 05.06.2020, 09:28

здесь нужна UDF sumprop

shanemac51 · 05.06.2020, 10:23

Сообщение от Евгений311313

в виде текста, рубли – числом, а копейки прописью;

сколько же надо вариантов суммы прописью

@Punkt5 · 05.06.2020, 11:50

Сообщение от Евгений311313

пример в ячейке E6 введено количество рублей(2452), а в ячейки f6 количество копеек(42). В ячейке e7 должен появиться текст 2452 руб. сорок две коп.

Не знаю, насколько правильно сформулирован вопрос, но вот легкая переделка уже встречавшейся на форуме функции суммы прописью под него:

Visual Basic

Public Function RubDigKopProp$(rub&, kop&)
Dim ed, des, nadc, m$
 
  des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
  nadc = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
  ed = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
  If kop = 0 Then
    m = "ноль "
  ElseIf kop > 99 Then
    m = Cstr(kop) & " - это ПОДСТАВА "
  ElseIf kop \ 10 = 1 Then
    m = nadc(kop - 10)
  Else
    m = des(kop \ 10) & ed(kop Mod 10)
  End If
  RubDigKopProp = Cstr(rub) & " руб." & m & "коп."
End Function

Соответственно по аналогии с примером ТС: в ячейке E7 будет формула

Код

=RubDigKopProp(E6;F6)

Добавлено через 30 минут

Сообщение от shanemac51

сколько же надо вариантов суммы прописью

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

@Евгений311313 0 / 0 / 0 Регистрация: 02.05.2020 Сообщений: 4
		1
	Представить рубли числом, а копейки прописью 04.06.2020, 20:57. Показов 1718. Ответов 5 Метки excel (Все метки) Найденное значение представляется в виде текста, рубли – числом, а копейки прописью; Нужно вывести прописью количество копеек, составив два списка числительных (первый - от 1 до 19 (прописью), второй - десятки от 20 до 90 (тоже прописью).найденное значение представляется в виде текста, рубли – числом, а копейки прописью; пример в ячейке E6 введено количество рублей(2452), а в ячейки f6 количество копеек(42). В ячейке e7 должен появиться текст 2452 руб. сорок две коп. 0

@3D Homer $Эксперт по математике/физике$ 4945 / 3564 / 1149 Регистрация: 01.09.2014 Сообщений: 9,647
	04.06.2020, 23:01	2
	Если вопрос по Excel, то идите в соответствующий форум. 0

@VSI Модератор $Эксперт по математике/физике$ 5237 / 4024 / 1384 Регистрация: 30.07.2012 Сообщений: 12,274
	05.06.2020, 08:55	3
	Евгений311313, загляните в самый низ этой страницы в раздел "Похожие темы". Можете найти для себя много полезной информации... 0

@Vlad999 3892 / 2300 / 773 Регистрация: 02.11.2012 Сообщений: 6,111
	05.06.2020, 09:28	4
	здесь нужна UDF sumprop 0

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	05.06.2020, 10:23	5
	Сообщение от Евгений311313 в виде текста, рубли – числом, а копейки прописью; сколько же надо вариантов суммы прописью 0

	05.06.2020, 11:50

Опции темы