Макрос для Excel 2007

[Axet]

Помогите пожалуйста.
Проблема такая. Нужен макрос, который конвертил бы цифры в слова рус, анг (100 - сто, one hundred).
Я бейсик учил, но давно. Есть какие нить справочники, учебники?
Ну и мысли как лучше сделать...

[Shadow]

Используй PLEX, он много чего умеет, не только конвертацию чисел в слова. Тебе понравится.
Страница оффсайта

[SETRA]

Есть 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 еще посмотри кое что)

[velociraptor]

вопрос не по теме но все же задам. как сложить все эти цифры и узнать сколько получилось.
0.00000206
0.00000258
0.00000283
0.00000309
0.00000335
0.00000361
0.00000386
0.00000412
0.00000438
0.00000464
0.00000489
0.00000541
0.00000593
0.00000644
0.00000696
0.00000747
0.00000799
0.00000850
0.00000902
0.00000953
0.00001056
0.00001082
0.00001133
0.00001159
0.00001185
0.00001211
0.00001237
0.00001288
0.00001314
0.00001365
0.00001417
0.00001468
0.00001520
0.00001571
0.00001649
0.00001700
0.00001778
0.00001829
0.00001881
0.00001932
0.00001984
0.00002061
0.00002112
0.00002164
0.00002215
0.00002241
0.00002267
0.00002293
0.00002319
0.00002344
0.00002370
0.00002396
0.00002422
0.00002447
0.00002473
0.00002499
0.00002525
0.00002550
[/HIDE]

[Serberg]

velociraptor, в эксель копируется весь столбец и пользуемся функцией Автосумма.

[velociraptor]

Serberg, получилось ноль. есть другие варианты?

[velociraptor]

Проблема решена

[Serberg]

Проблема решена

Каким образом ?

[velociraptor]

Serberg, заменил точки на запятые