Бормотухи.НЕТ

Вернуться   Бормотухи.НЕТ > Компьютеры > Программирование
Расширенный поиск

Программирование Все о программировании ....

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2009, 17:57 Вверх   #1
Местный житель
 
Аватар для Axet
Axet вне форума
Доп. информация
По умолчанию Макрос для Excel 2007

Помогите пожалуйста.
Проблема такая. Нужен макрос, который конвертил бы цифры в слова рус, анг (100 - сто, one hundred).
Я бейсик учил, но давно. Есть какие нить справочники, учебники?
Ну и мысли как лучше сделать...
  Ответить с цитированием
Cказали cпасибо:
Старый 24.10.2009, 19:23 Вверх   #2
.:V.I.P.:.
 
Аватар для Shadow
Shadow вне форума
Доп. информация
По умолчанию

Используй PLEX, он много чего умеет, не только конвертацию чисел в слова. Тебе понравится.
Страница оффсайта
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 29.10.2009, 12:41 Вверх   #3
Профессиональный DJ
 
Аватар для SETRA
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 еще посмотри кое что)

Последний раз редактировалось SETRA; 30.10.2009 в 09:54..
  Ответить с цитированием
Старый 26.03.2016, 16:12 Вверх   #4
Новичок
 
Аватар для velociraptor
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]

Последний раз редактировалось velociraptor; 26.03.2016 в 16:30..
  Ответить с цитированием
Старый 26.03.2016, 16:43 Вверх   #5
Коварный тип
 
Аватар для Serberg
Serberg вне форума
Доп. информация
По умолчанию

velociraptor, в эксель копируется весь столбец и пользуемся функцией Автосумма.
  Ответить с цитированием
Старый 26.03.2016, 17:36 Вверх   #6
Новичок
 
Аватар для velociraptor
velociraptor вне форума
Доп. информация
По умолчанию

Serberg, получилось ноль. есть другие варианты?
  Ответить с цитированием
Старый 26.03.2016, 18:55 Вверх   #7
Новичок
 
Аватар для velociraptor
velociraptor вне форума
Доп. информация
По умолчанию

Проблема решена
  Ответить с цитированием
Старый 26.03.2016, 20:30 Вверх   #8
Коварный тип
 
Аватар для Serberg
Serberg вне форума
Доп. информация
По умолчанию

Цитата Сообщение от velociraptor Посмотреть сообщение
Проблема решена
Каким образом ?
  Ответить с цитированием
Старый 26.03.2016, 23:29 Вверх   #9
Новичок
 
Аватар для velociraptor
velociraptor вне форума
Доп. информация
По умолчанию

Serberg, заменил точки на запятые
  Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Word 2007 Hottabych Software (Программное обеспечение) 9 29.04.2009 07:53


Текущее время: 20:32. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc. Перевод: zCarot
 

Время генерации страницы 0.10052 секунды с 14 запросами