|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2011, 05:21 | #1 |
Пользователь
Регистрация: 26.12.2011
Сообщений: 45
|
Библиотека численных значений и цифр
Здравствуйте.
Скажите, пожалуйста, существует ли в VBA что-то вроде библиотеки, которая хранит только цифры/числа ? Необходимо выделить только численные значения, стоящие в строке до первого пробела, а все остальное удалить. Если численных значений до пробела не встречается или встречается вперемешку с буквами в одном слове (первом слове до пробела), то занести пустую строку. Написал процедуру, но проверка на присутствие чисел получилась очень громоздкой....и все бы ничего,но для случая, как в строке eh3 day: count / дней : количество проверка видит наличие цифры 3 и пропускает значение "eh3 " в результат. А в идеале должна была занести пустую строку " ",поскольку здесь присутствуют и буквы. Или лучше просто добавить переменную типа Integer и проверять выходные значения на этот тип данных? Файл с исходными данными и макросом приложил. пробудлирую код Код:
|
28.12.2011, 05:23 | #2 |
Пользователь
Регистрация: 26.12.2011
Сообщений: 45
|
файл с исходником и макросом))
|
28.12.2011, 08:26 | #3 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
попробуйте так:
Код:
|
28.12.2011, 13:37 | #4 |
Пользователь
Регистрация: 26.12.2011
Сообщений: 45
|
........просто невероятно!
вместо моих 15 строк кода,одна из которых протяженностью километр, Ваши только 4! О_о никаких Лефтов, никаких ИнСтр и никаких библиотек...)) добавил проверку, на нулевое значение. если в рез-то ноль,то ячейка обнуляется. Спасибо! С наступающим Вас!! |
10.02.2012, 02:51 | #5 |
Пользователь
Регистрация: 26.12.2011
Сообщений: 45
|
Скажите, пожалуйста, а какая функция считывает все цифры, включая ноль?
Здесь все замечательно и правильно работает, кроме случая, когда строка, содержащая необходимые значения, начинается с нуля (например, "0345 day: count / дней : количество") ,- нолик в результате пропадает (на выходе 0345), а он важен. Последний раз редактировалось Randy.Mandy; 10.02.2012 в 03:59. |
10.02.2012, 11:01 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Сперва задайте столбцу с результатами текстовый формат (иначе нули съест Эксель после помещения результата в ячейку):
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 10.02.2012 в 11:40. |
10.02.2012, 14:21 | #7 |
Пользователь
Регистрация: 26.12.2011
Сообщений: 45
|
Hugo121, спасибо Вам!
Кое-что дописал,- всё получилось, как надо)) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Описание численных типов и математических операций | Chevy | Общие вопросы Delphi | 3 | 30.09.2011 18:36 |
Бейсик. Найти сумму численных значений элементов одномерного массива | Марька | Помощь студентам | 4 | 16.03.2010 23:01 |
Сортировка цифр.значений в таблице | scaramanga | Microsoft Office Excel | 5 | 16.03.2010 13:23 |
программирование численных алгоритмов решения простейших инженерно-экономических задач | Оксана_В | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 09.04.2009 19:10 |
при достижении определённых значений в формуле должна происходить пульсация цифр или ячейки. | vladi | Microsoft Office Excel | 3 | 08.04.2007 23:34 |