powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на VBA
4 сообщений из 4, страница 1 из 1
Проверка на VBA
    #34284174
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доброго дня суток!
Пожалуйста, дайте мне ответ на несколько вопросов, касающихся программинга на VBA.
У меня есть большая таблица, нужно проверить столбца на ряд признаков (я думаю, через Evaluate):
1. Столбец с 6-тизначными индексами. Нужно проверить, не начинается ли индекс на "ноль" (ЛОЖЬ), не состоит ли из шести нулей (ЛОЖЬ)
2. Столбцы с текстовыми данными проверить, не содержат ли в себе цифр (ЛОЖЬ)
3. Столбец с числовыми данными проверить, не содержат ли в себе текст (ЛОЖЬ)
Заранее благодарен!
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
Проверка на VBA
    #34284257
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Проверка на VBA
    #34284406
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А куда выводятся результаты? Вернее, как я их увижу? Мне нужно, чтобы результаты выводились на другом листе значениями в столбец ИСТИНА или ЛОЖЬ
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
Проверка на VBA
    #34284579
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка на VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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