Есть DLL называется DC Num2Text здесь
DC Num2Text 1.01 download page - Soft-Go.Com
качаешь устанавливаешь, затем в макросе используешь функцию TranslateNumber
Синтаксис:
Public Function
TranslateNumber(ByVal
str_Number As String, ByVal
Lang As Language_ID) As String
где
str_Number - числовая строка (выражение типа "12345678.90")
Lang - Индекс языка перевода (1- арабский, 2 - англицкий, 3- французский, 4-немецкий)
Этот параметр можно определить также путем обращения на уровне компонента
к индексу указанного языка DynamicComponents.Num2Text.Language_ID.English (пример ниже)
Такой вариант вернет целое число - индекс выбранного языка. Подходит для более сложных
программных конструкций.
Пример объявления и использования функции:
dim oTextNum As New DynamicComponents.Num2Text()
dim strNum as string
oTextNum.SetCurrency("Dollar", "Cent", "Dollars", "Cents") // устанавливаешь обозначения валюты (ед. и мн. число)
......
strNum = oTextNum.TranslateNumber("1977.66", DynamicComponents.Num2Text.Language_ID.English) // Перевод на английский язык
......
end
Вот и все. Далее значение strNum присваиваешь любой ячейке) Применяется как для макросов так и для написания финансовых программ. Синтаксис и премер подходит для любых версий VB, VBA и VB.NET.
есть альтернатива, но стоит 200 руб. здесь
Число или сумма прописью - Профессиональные приемы работы в Microsoft Excel еще посмотри кое что)