Excel Цифры в буквы

Olaf, спасибо огромное за функцию СуммаПропись!!! Лет восемь мучилась вручную прописывать в документах ))))

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

Код:

---

...Число_в_текст = Replace(txt, Left(txt, 1), UCase(Left(txt, 1)), , 1)
End Function

---

Но функция остается недоработанной. Например, показывает: Два белорусских рублей

Спасибо за надстройку

Цитата:

---

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

Дилетанту проблематично. Саму ф-ю вы не доведете на вашем уровне.

1. Найти функцию в инете.
2. В электронной таблице открыть редактор макросов Alt-F11
3. В левом окошке объектов правая кнопка мыши: Insert/Module, Ок.
4. Кликаем 2 раза на появившемся Module1.
5. Справа в окне редактирования макроса вставляем ф-ю из инета, у которой параметр - число, а тип возвращаемого значения String или Variant.
6. Все сохраняем.
7. Возвращаемся собс-но в Эксель. Теперь в списке функций появился раздел "Определенные пользователем". Употребляйте как обычную ф-ю.

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

---

Спасибо большое!!! Супер, у меня получилось все с первого раза! Объяснили отлично!

Цитата:

---

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

Дилетанту проблематично. Саму ф-ю вы не доведете на вашем уровне.

1. Найти функцию в инете.
2. В электронной таблице открыть редактор макросов Alt-F11
3. В левом окошке объектов правая кнопка мыши: Insert/Module, Ок.
4. Кликаем 2 раза на появившемся Module1.
5. Справа в окне редактирования макроса вставляем ф-ю из инета, у которой параметр - число, а тип возвращаемого значения String или Variant.
6. Все сохраняем.
7. Возвращаемся собс-но в Эксель. Теперь в списке функций появился раздел "Определенные пользователем". Употребляйте как обычную ф-ю.

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

---

сСПАСИБО