Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на VBA / 4 сообщений из 4, страница 1 из 1
26.01.2007, 10:12:46
    #34284174
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на VBA
Доброго дня суток!
Пожалуйста, дайте мне ответ на несколько вопросов, касающихся программинга на VBA.
У меня есть большая таблица, нужно проверить столбца на ряд признаков (я думаю, через Evaluate):
1. Столбец с 6-тизначными индексами. Нужно проверить, не начинается ли индекс на "ноль" (ЛОЖЬ), не состоит ли из шести нулей (ЛОЖЬ)
2. Столбцы с текстовыми данными проверить, не содержат ли в себе цифр (ЛОЖЬ)
3. Столбец с числовыми данными проверить, не содержат ли в себе текст (ЛОЖЬ)
Заранее благодарен!
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 10:30:33
    #34284257
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на VBA
Frost_ImpДоброго дня суток!
Пожалуйста, дайте мне ответ на несколько вопросов, касающихся программинга на VBA.
У меня есть большая таблица, нужно проверить столбца на ряд признаков (я думаю, через Evaluate):
1. Столбец с 6-тизначными индексами. Нужно проверить, не начинается ли индекс на "ноль" (ЛОЖЬ), не состоит ли из шести нулей (ЛОЖЬ)
2. Столбцы с текстовыми данными проверить, не содержат ли в себе цифр (ЛОЖЬ)
3. Столбец с числовыми данными проверить, не содержат ли в себе текст (ЛОЖЬ)
Заранее благодарен!
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
1.
Код: plaintext
Range("A1").Value Like "0?????" or Range("A1").Value Like "000000"

2.
Код: plaintext
Function TextHasLetters(SoughtStr As String) As Boolean\nDim i As Long\n    TextHasLetters = False\n    For i =  1  To Len(SoughtStr)\n        If IsNumeric(Mid(SoughtStr, i,  1 )) Then\n            TextHasLetters = True\n            Exit Function\n        End If\n    Next i\nEnd Function

3.
Код: plaintext
IsNumeric(Range("A1").Value)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 11:01:27
    #34284406
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на VBA
А куда выводятся результаты? Вернее, как я их увижу? Мне нужно, чтобы результаты выводились на другом листе значениями в столбец ИСТИНА или ЛОЖЬ
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 11:27:15
    #34284579
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка на VBA
Frost_ImpА куда выводятся результаты? Вернее, как я их увижу? Мне нужно, чтобы результаты выводились на другом листе значениями в столбец ИСТИНА или ЛОЖЬ
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
тогда можно обойтись функциями листа:

1.
Код: plaintext
=OR(LEFT(A1)="0";A1="000000")
2.
Код: plaintext
=ISERR(FIND({"1";"2";"3";"4";"5";"6";"7";"8";"9";"0"};A1))
3.
Код: plaintext
=ISNUMBER(A1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на VBA / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 446ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183567]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 94ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 248ms
total:  446ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]