Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Компактный поиск значения из множества значений
 
#1
25.09.2021 12:58:52
привет))) подскажите как прописать условие
проверить ячейку A1 содержит ли она любое из значений R1;RW1;RW2;RW1R1;RW2R1 чтобы это было компактно.
помогите, пжлст)
Изменено: vikttur - 27.09.2021 00:52:05
 
 
 
#2
25.09.2021 13:18:36
Доброе время суток.
Это даже я знаю :)
Код
= НЕ(ЕОШИБКА(ГПР(A1; {"R1";"RW1";"RW2";"RW1R1";"RW2R1"};1;ЛОЖЬ)))
 
 
 
#3
25.09.2021 21:00:54
Цитата
inicman1991 написал: с моножеством вариантов VBA
Вариантов VBA - только один :)
 
 
 
#4
25.09.2021 22:18:18
Если  Андрей VG пишет формулы, то медведь наступит на VBA  :D

Код
=INSTR(";R1;RW1;RW2;RW1R1;RW2R1;",";"&[A1]&";")
По вопросам из тем форума, личку не читаю.
 
 
 
#5
26.09.2021 05:16:31
Возможно плохо сформулировал вопрос:
нужно чтобы яч А1 проверилась на факт нахождения одно из значений, это пример в самом макросе будет около десятка вариантов, и не хотелось бы так громоздить кучу OR.
Код
Sub srav()
    If Cells(1, 1) = "R1" Or Cells(1, 1) = "RW1" Or Cells(1, 1) = "RW1R1" Then
        Debug.Print "yes"
        Else: Debug.Print "noy"
    End If
End Sub
Изменено: inicman1991 - 26.09.2021 05:17:10
 
 
 
#6
26.09.2021 08:36:11
inicman1991,  ну и?

Код
if INSTR(";R1;RW1;RW2;RW1R1;RW2R1;",";"&Cells(1, 1)&";") >0 then
        Debug.Print "yes"
Else: Debug.Print "noy"
End If



P.S. "yes"  и "noy" оставлены авторские  :D
Изменено: БМВ - 26.09.2021 08:37:03
По вопросам из тем форума, личку не читаю.
 
 
 
#7
26.09.2021 08:55:26
вариант с функцией

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#8
26.09.2021 09:57:53
БМВ, спасибо)) работает.  
 
 
 
#9
26.09.2021 16:12:20
Цитата
БМВ написал:
медведь наступит на VBA
A1: RW1;RW2    :)


Можно с той же идеей:
Код
If InStr(1, Replace(";R1;RW1;RW2;RW1R1;RW2R1;", ";", Chr(1)), Chr(1) & Cells(1, 1).Value & Chr(1)) > 0 Then
Изменено: sokol92 - 26.09.2021 16:34:06
Владимир
 
 
 
Страницы: 1
Наверх