Вчера пол дня потратил на поиск нормальной функции/макроса, которая бы выводила прописью указанную сумму в рублях, долларах США, евро и японских йенах.

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

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

СуммаПрописью(Сумма, ЦелыйПредмет1, ЦелыйПредмет2, ЦелыйПредмет5, Род, ДробПредмет1, ДробПредмет2, ДробПредмет5)

1 параметр функции: Сумма (т.е. Какое-либо число) или ячейка
2 параметр функции: ЦелыйПредмет1 - строка. Название целой части предмета когда он 1
3 параметр функции: ЦелыйПредмет2 - строка. Название целой части предмета когда его больше 1 и меньше 5
4 параметр функции: ЦелыйПредмет5 - строка. Название целой части предмета когда его больше 5 или равен 0
5 параметр функции: Род - род предмета (1 - мужской, 2 - женский, 3 - средний)
6 параметр функции: ДробПредмет1 - строка. Название дробной части предмета когда он 1
7 параметр функции: ДробПредмет2 - строка. Название дробной части предмета когда его больше 1 и меньше 5
8 параметр функции: ДробПредмет5 - строка. Название дробной части предмета когда его больше 5 или равен 0
Возвращает строку: Сумма прописью в ЦелыхПредметах и ДробныхПредметах данного числа
Например: Вызов '=СуммаПрописью(123,22;"доллар";"доллара";"долларов";1;"цент";"цента";"центов")'
будет возвращать: 'Сто двадцать три доллара 22 цента'

В общем по-большому счету пишу для себя, чтобы было всегда под рукой, т.к. периодически появляется потребность и приходится искать заново.

Инструкция в архиве