А как же украинский и турецкий?  
http://www.programmersforum.ru/showthread.php?t=193596  
У Сергея на форуме    
http://www.excelworld.ru/index/chislo_propisju/0-32  
есть вариант на латышском - я одну русскую переделал (она в комплекте кажется тоже есть).

Надо было на Азербайджанском! Спасибо огромное Хюго.по твоим ссылкам нашел турецкий.сейчас переделаю.

сайт не принимает Азербайджанский алфавит.вот и прикрепил ворд

Есть еще вариант прописи на тджикском:  
http://www.excelworld.ru/forum/2-828-2  
но там совершенно другие принципы образования числительных

Ну и зря.  
Расскажу про ChrW() - т.к. в коде (как и на форуме) нельзя прописать эту Вашу s с закорючкой снизу, то в коде её пишем как ChrW(351). Собираем строку из обычных символов и ChrW().  
В итоге из "be" & ChrW(351) получаем на листе при правильном шрифте "bes" ("s" с закорючкой внизу).  
Номера для символов любезно уже вытянул форум :)  
Если брать мой пример на латышском (а лучше оригинал на русском, если получится его открыть - понятнее где что), то там не сложно всё заменить. Не сложно, но работы много, некогда :(

http://www.excelworld.ru/index/chislo_propisju/0-32  
Там в архиве есть оригинальный русский вариант - думаю в том коде несложно заменить написание числительных.  
Если проблема разобраться с частью инсталляции - просто сделайте установку, затем подкорректируйте код в установленном файле (я сделал копии функции с другим названием).  
Но под 2007 у меня дома тот файл вылетает почему то...

Брателла sarik1986, баклань нормалёк, а не фуфил  
242 кило грузить не понтово, паханов чморишь не по детски, да ещё в голимом ворде, а не в козырном gif

Скачал, открыл на 2003 - было предупреждение о макросах 4.0, видать это 2007 не нравится.  
Вот код - т.к. он был в свободном доступе, думаю можем пользоваться.  
Добавил в шапку копирайты из файла.  
Берите, меняйте написание числительных.  
 
 
'Автором функции является Артём Луканин.  
'Со всеми вопросами и предложениями можете обращаться по адресу: ice_lc@mail.ru  
'Также я буду рад Вас видеть у себя на сайте: http://artsoft.agava.ru  
' ------------------------------------------  
' ЧИСЛОПРОПИСЬЮ  
'  
' Дата создания : 22 апреля 99 г.  
' Автор         : Артём Луканин  
' Последнее  
'   обновление  : 20 апреля 2000 г.  
' ------------------------------------------  
'  
Public Function ЧИСЛОПРОПИСЬЮ(Num) As String  
Dim newNum As Integer, i As Integer, j As Integer  
Dim temp As String  
 Num = CDbl(Num)  
 If Num < 0 Then  
   ЧИСЛОПРОПИСЬЮ = "Отрицательное число!!!"  
   Exit Function  
 End If  
 Num = Num * 100  
 Num = Int(CDbl(CStr(Num)))  
 If Num > 99999999999999# Then  
   ЧИСЛОПРОПИСЬЮ = "Слишком большое число!!!"  
   Exit Function  
 End If  
 ЧИСЛОПРОПИСЬЮ = Right(CStr(Num), 2) & " коп."  
 If Len(CStr(Num)) = 1 Then ЧИСЛОПРОПИСЬЮ = "0" & ЧИСЛОПРОПИСЬЮ  
 ЧИСЛОПРОПИСЬЮ = "руб. " & ЧИСЛОПРОПИСЬЮ  
 Num = Int(Num / 100)  
 If Num = 0 Then  
   ЧИСЛОПРОПИСЬЮ = "Ноль " & ЧИСЛОПРОПИСЬЮ  
   Exit Function  
 End If  
 j = 0  
 For i = 1 To Len(CStr(Num))  
   newNum = CDbl(Right$(CStr(Num), 1))  
   Num = Int(Num / 10)  
   If i Mod 3 = 1 Then  
     j = j + 1  
     If CDbl(Right$(CStr(Num), 1)) = 1 Then  
       Select Case newNum  
         Case 1  
           temp = "одиннадцать "  
         Case 2  
           temp = "двенадцать "  
         Case 3  
           temp = "тринадцать "  
         Case 4  
           temp = "четырнадцать "  
         Case 5  
           temp = "пятнадцать "  
         Case 6  
           temp = "шестнадцать "  
         Case 7  
           temp = "семнадцать "  
         Case 8  
           temp = "восемнадцать "  
         Case 9  
           temp = "девятнадцать "  
         Case 0  
           temp = "десять "  
       End Select  
       If j = 2 Then  
         temp = temp & "тысяч "  
       ElseIf j = 3 Then  
         temp = temp & "миллионов "  
       ElseIf j = 4 Then  
         temp = temp & "миллиардов "  
       End If  
       ЧИСЛОПРОПИСЬЮ = temp & ЧИСЛОПРОПИСЬЮ  
       Num = Int(Num / 10)  
       i = i + 1  
     Else  
       Select Case newNum  
         Case 1  
           If j = 1 Then  
             temp = "один "  
           ElseIf j = 2 Then  
             temp = "одна тысяча "  
           ElseIf j = 3 Then  
             temp = "один миллион "  
           ElseIf j = 4 Then  
             temp = "один миллиард "  
           End If  
         Case 2  
           If j = 1 Then  
             temp = "два "  
           ElseIf j = 2 Then  
             temp = "две тысячи "  
           ElseIf j = 3 Then  
             temp = "два миллиона "  
           ElseIf j = 4 Then  
             temp = "два миллиарда "  
           End If  
         Case 3  
           If j = 1 Then  
             temp = "три "  
           ElseIf j = 2 Then  
             temp = "три тысячи "  
           ElseIf j = 3 Then  
             temp = "три миллиона "  
           ElseIf j = 4 Then  
             temp = "три миллиарда "  
           End If  
         Case 4  
           If j = 1 Then  
             temp = "четыре "  
           ElseIf j = 2 Then  
             temp = "четыре тысячи "  
           ElseIf j = 3 Then  
             temp = "четыре миллиона "  
           ElseIf j = 4 Then  
             temp = "четыре миллиарда "  
           End If  
         Case 5  
           temp = "пять "  
         Case 6  
           temp = "шесть "  
         Case 7  
           temp = "семь "  
         Case 8  
           temp = "восемь "  
         Case 9  
           temp = "девять "  
         Case 0  
           temp = ""  
       End Select  
         
       If newNum = 0 Then  
         If CDbl(Right$(CStr(Num), 2)) <> 0 Then  
           Select Case j  
             Case 2  
               temp = temp & "тысяч "  
             Case 3  
               temp = temp & "миллионов "  
             Case 4  
               temp = temp & "миллиардов "  
           End Select  
         End If  
       ElseIf newNum > 4 Then  
         Select Case j  
           Case 2  
             temp = temp & "тысяч "  
           Case 3  
             temp = temp & "миллионов "  
           Case 4  
             temp = temp & "миллиардов "  
         End Select  
       End If  
       ЧИСЛОПРОПИСЬЮ = temp & ЧИСЛОПРОПИСЬЮ  
     End If  
   ElseIf i Mod 3 = 2 Then  
     Select Case newNum  
         Case 2  
           temp = "двадцать "  
         Case 3  
           temp = "тридцать "  
         Case 4  
           temp = "сорок "  
         Case 5  
           temp = "пятьдесят "  
         Case 6  
           temp = "шестьдесят "  
         Case 7  
           temp = "семьдесят "  
         Case 8  
           temp = "восемьдесят "  
         Case 9  
           temp = "девяносто "  
         Case 0  
           temp = ""  
       End Select  
       ЧИСЛОПРОПИСЬЮ = temp & ЧИСЛОПРОПИСЬЮ  
   Else  
     Select Case newNum  
       Case 1  
         temp = "сто "  
       Case 2  
         temp = "двести "  
       Case 3  
         temp = "триста "  
       Case 4  
         temp = "четыреста "  
       Case 5  
         temp = "пятьсот "  
       Case 6  
         temp = "шестьсот "  
       Case 7  
         temp = "семьсот "  
       Case 8  
         temp = "восемьсот "  
       Case 9  
         temp = "девятьсот "  
       Case 0  
         temp = ""  
     End Select  
     ЧИСЛОПРОПИСЬЮ = temp & ЧИСЛОПРОПИСЬЮ  
   End If  
 Next i  
 Mid(ЧИСЛОПРОПИСЬЮ, 1, 1) = UCase(Mid(ЧИСЛОПРОПИСЬЮ, 1, 1))  
End Function

Значит 2007 глючный! :)  
Будете менять - оставляйте пробелы в конце строки, как в оригинале. Чтоб потом не переделывать.  
Т.е. осторожно аккуратно меняете "пять " на  "be" & ChrW(351) & " "

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

мне с кириллицей нужно друг.никак не разбирусь с этим(я даже не понял в какую последнюю строчку писать AzerProp = UCase(Left(m, 1)) & Mid(m, 2) & "manat " & qp & " q" & ChrW(601) & "pik".  
 
понял что где прописьная сумма нужна вставлю =AzerProp(D24).на ячейку с числами. а как сделать чтоб всегда копейки писал даже если 00.кирилиццей?пожалуйста если можешь исправь это для меня и я отстану от тебя))) и еще если я удалю первый лист все удалиться или она не нужна?

0, - сыфыр  
1, - бир  
2, - ики  
3, - цч  
4, - дюрд  
5, - беш  
6, - алты  
7, - йедди  
8, -сяккиз  
9, - доггуз  
10, - он  
20, - ийирми  
30, - отуз  
40, - гырх  
50, - ялли  
60, - алтмыш  
70, - йетмиш  
80, - сяксян  
90, - дохсан  
100,   йцз  
200, - ики йцз  
300, - цч йцз  
400, - дюрд йцз  
500, - беш йцз  
600, - алты йцз  
700, - йедди йцз  
800, - сяккиз йцз    
900, - доггуз йцз  
1000, - мин  
1000000, - бир милйон  
1000000000, - бир милйард  
 
манат  
 
гяпик  
 
теперь сможешь поммочь брат? и еще один вопрос можно будет?знаю тебе надоел)) когда у меня сумма 1000100 - пропись будет один миллион один сто тысяч манат.неправильно как то.должно быть один миллион сто тысяч манат. а если 100 сделать СТО. выходит 100000 = сто тысяч.а на азербайджанском в прописи должно быть одно сто тысяч(  
 
почему я когда включаю макросы при открытии документа вылетает эксел?

бир йцз, бир милйон, бир милйард они как б должны быть только в начале прописи. а дальше если будет 100 в сумме уже будет просто йцз а не йцз.тоесть на русском будет так. 2100 две тысячи одна сто. а должно быть ведь две тысячи сто.тоже самое на азербайджанском. если ко 100 написать "бир йцз" то везде будет бир йцз.а бир йцз должно быть как б только в начале предложения.вот так. 1100 "бир мин йцз". а просто сумма 100 будет "бир йцз".

потестируйте функцию AzerPropCyr из post_322774.xls  
Я ее так и сделал