Установка заглавной буквы

[Nezhdanka]

Сразу извеняюсь, возможно такая тема уже поднималась, но я не знаю что конкретно искать. Сам ни бум-бум в этом деле.

Есть файл ***.xlsm. Платёжное поручение. При вводе суммы в числовом виде строка, где необходимо заполнить в буквенном выражении заполняется автоматически. Проблемма в том, что эта строчка заполняется с маленькой буквы, а в банке сидит извеняюсь за выражение "курва", которая требует что б первое слово начиналось с заглавной.
Вот сам файл http://www.rapidshare.ru/1186049
Большая просьба подправить кто может и если это возможно.
И конечно если это реально сделать обычными средствами Excel2007, и если не трудно, распишите сам процес.
Буду очень благодарен.

[motorway]

Не могли бы выложить файл сюда? Этот файлообменник отмечен как опасный сайт

[Nezhdanka]

Вот, пожалуйста.

[motorway]

В ячейке A18 замените формулу на

=ПРОПИСН(ПСТР(SpellHryvnas(N10);1;1))&ПСТР(SpellHryvnas(N10);2;ДЛСТР(SpellHryvnas(N10))-1)

Смысл в том, что находится первая буква, и она делается прописной, а потом объединяется с остальной частью строки

[Nezhdanka]

Спасибо вам огромнейшее. Очень признателен.

[Vdone]

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

В ячейке A18 замените формулу на

=ПРОПИСН(ПСТР(SpellHryvnas(N10);1;1))&ПСТР(SpellHryvnas(N10);2;ДЛСТР(SpellHryvnas(N10))-1)

Смысл в том, что находится первая буква, и она делается прописной, а потом объединяется с остальной частью строки

Подскажите,пожалуйста как сделать так чтоб писалось не полностью слово гривен,а сокращенно грн. Буду очень благодарен

[Hugo121]

Находите в Public Function SpellHryvnas(ByVal Number As Currency) As String

строку
Hryvnas = Array("гривень", "гривня", "гривні")

и меняете её на
Hryvnas = Array("грн", "грн", "грн")