Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как средствами VBA определить, входит ли некое значение в множество других?
 
#1
14.10.2009 17:25:51
В сущности, весь вопрос в названии темы. Имеем диапазон значений myRange (a,s,d,f,g) и какое-то значение (g или e). Нужно средствами  VBA узнать, есть ли это значение в диапазоне. Для g будет "истина"; для е - "ложь".  
На всякий случай файл.
 
 
 
#2
14.10.2009 17:32:39
Например, так:  
 
Sub test()  
   результат = Not [myRange].Find([b1]) Is Nothing
   MsgBox результат  
End Sub  
 
 
PS: Vj;yj записать ещё короче...
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
14.10.2009 17:36:38
Ну или так:  
 
Sub test2()  
   результат = WorksheetFunction.CountIf([myRange], [b2]) > 0
   MsgBox результат  
End Sub  
 
При желании можно придумать ещё десяток способов
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
14.10.2009 17:41:02
Спасибо. А как еще короче? В принципе, я беру проверяемое значение не из ячеек, а получаю в результате расчета в VBA, и потом получить  
 
Sub test()  
результат = результат + Not [myRange].Find(переменная) Is Nothing
End Sub  
 
Так будет работать?
 
 
 
#5
14.10.2009 17:54:34
Отвечаю сам - проверил, работают оба варианта. Но почему-то в первом случае дает "-1"
 
 
 
#6
14.10.2009 18:48:44
True = -1  
False = 0  
 
Если бы Вы сначала написали   DIM результат AS BOOLEAN  
 
то MSGBOX вывел бы TRUE вместо -1  
(или надо установить формат ячеек "логический")  
 
По сути, разницы никакой нет.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх