Сравнение переменной со списком значений

@kwadrad · Регистрация: 10.11.2015

Студворк — интернет-сервис помощи студентам

Подскажите кто знает, есть ли в VBA оператор сравнения со списком допустимых значений, по аналогии с SQL:

переменная in ("значение1","значение2","значение3") ,

т.е. если переменная совпадает с одним из значений в списке, то выражение = "Истина"

@Michael99 · 03.10.2016, 15:34

select case штудируйте

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim a
    a = TextBox1.Text
    Select Case a
        Case Is < 100
            Label1.Caption = "Введенное значение меньше числа 100"
        Case 101 To 150
            Label1.Caption = "Введенное значение больше числа 100 и меньше 151"
        Case 151 To 200
            Label1.Caption = "Введенное значение больше 151 и меньше 201"
        Case Else
            Label1.Caption = "Другое значение, оператор Select Case VBA"
    End Select
End Sub

@Hugo121 · 03.10.2016, 15:42

Или можно использовать словарь, если под виндой работаете.

@kwadrad · 03.10.2016, 15:43 **[ТС]**

Понятно, что можно создать функцию

интересовало, есть ли уже готовая встроенная

@Michael99 · 03.10.2016, 15:46

Сообщение от kwadrad

интересовало, есть ли уже готовая встроенная

опишите задачу общими словами

@Hugo121 · 03.10.2016, 16:01

Сообщение от kwadrad

есть ли уже готовая встроенная

Visual Basic
1
if словарь.exists(переменная) then

только сперва нужно наполнить словарь.

Добавлено через 2 минуты
Ну или банально

Visual Basic
1
 if instr("|значение1|значение2|значение3|", "|" & переменная & "|") then

если значения позволяют.

@kwadrad · 03.10.2016, 16:08 **[ТС]**

Например, проверить условие:

если сеть = АТБ, Варус, Билла то
набор операторов

у меня много таких потребностей, писать под каждую словарь?))

@Hugo121 · 03.10.2016, 16:13

Зачем под каждую? Можно один словарь на все потребности.

@kwadrad · 03.10.2016, 16:16 **[ТС]**

Зачем под каждую? Можно один словарь на все потребности.

Просветите, пожалуйста

@KoGG · 03.10.2016, 16:17

Visual Basic
1
 if instr("|значение1|значение2|значение3|", переменная) then

"|" & & "|" лишнее

@Hugo121 · 03.10.2016, 16:36

Сообщение от KoGG

"|" & & "|" лишнее

Это на случай если переменная="ение". Ну про возможность так делать я сказал, может там в переменной может попасться "|"

А просветить словарь на пальцах затруднительно... Коротко - если ключ нашли в словаре, то из словаря можно извлечь прикреплённое к ключу что-то, на основе чего можно сделать ветвление.

@kwadrad · 03.10.2016, 16:46 **[ТС]**

Code
1
2
1
 if instr("АТБ"|"Варус"|"Сильпо", Сеть) >0 then

как-то так?
попробую

@Hugo121 · 03.10.2016, 16:48

Не, не так, следите за кавычками!
А вообще по приведённым словам конечно | не нужно, накладок нет.

@pashulka · 03.10.2016, 16:50

kwadrad, Если работаете в Excel, то можно и так :

Visual Basic
1
2
iArr = Array("значение1", "значение2", "значение3")
MsgBox IsNumeric(Application.Match("Значение2", iArr, 0))

@Hugo121 · 03.10.2016, 16:56

Как-то тестировали - перебор массива быстрее чем Application.Match()

Но код длиннее...

@pashulka · 03.10.2016, 17:10

Если тестировали те же самые люди, что утверждали, что Like самый большой тормоз, то всё возможно. Кроме того, сомневаюсь, что в тестировании учитывалось, что поискпоз не различает регистр, а главное, допускает использование символов подстановки ? и *

@Hugo121 · 03.10.2016, 17:13

А не, там тестировался ИНДЕХ()...

@kwadrad · 03.10.2016, 17:15 **[ТС]**

Всем спасибо.

@Hugo121 · 03.10.2016, 17:17

Если уж использовать функции приложения, то вместо словаря можно использовать ВПР(), а список брать с листа, ну или тоже явно прописать в коде.

@KoGG · 03.10.2016, 17:37

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Время_работы()
    Dim i&, iArr$(30000), tStart, tEnd
    For i = 1 To 30000
        iArr(i) = "Значение" & i
    Next
    tStart = Timer
    Debug.Print IsNumeric(Application.Match("Значение30000", iArr, 0)),
    tEnd = Timer
    Debug.Print tEnd - tStart & " сек."
    Debug.Print
    tStart = Timer
    For i = 1 To 30000
        If iArr(i) = "Значение30000" Then Debug.Print "ОК " & i
    Next
    tEnd = Timer
    Debug.Print tEnd - tStart & " сек."
End Sub

Хотел протестировать на 100000, но Application.Match вызывает ошибку на больших числах.

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@kwadrad 0 / 0 / 0 Регистрация: 10.11.2015 Сообщений: 24

	Сравнение переменной со списком значений 03.10.2016, 15:19. Показов 11826. Ответов 27 Метки нет (Все метки) Подскажите кто знает, есть ли в VBA оператор сравнения со списком допустимых значений, по аналогии с SQL: переменная in ("значение1","значение2","значение3") , т.е. если переменная совпадает с одним из значений в списке, то выражение = "Истина" 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	03.10.2016, 15:42
	Или можно использовать словарь, если под виндой работаете. 0

@kwadrad 0 / 0 / 0 Регистрация: 10.11.2015 Сообщений: 24
	03.10.2016, 15:43 [ТС]
	Понятно, что можно создать функцию интересовало, есть ли уже готовая встроенная 0

@kwadrad 0 / 0 / 0 Регистрация: 10.11.2015 Сообщений: 24
	03.10.2016, 16:08 [ТС]
	Например, проверить условие: если сеть = АТБ, Варус, Билла то набор операторов у меня много таких потребностей, писать под каждую словарь?)) 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	03.10.2016, 16:13
	Зачем под каждую? Можно один словарь на все потребности. 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	03.10.2016, 16:48
	Не, не так, следите за кавычками! А вообще по приведённым словам конечно \| не нужно, накладок нет. 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	03.10.2016, 16:56
	Как-то тестировали - перебор массива быстрее чем Application.Match() Но код длиннее... 0

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	03.10.2016, 17:10
	Если тестировали те же самые люди, что утверждали, что Like самый большой тормоз, то всё возможно. Кроме того, сомневаюсь, что в тестировании учитывалось, что поискпоз не различает регистр, а главное, допускает использование символов подстановки ? и * 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	03.10.2016, 17:13
	А не, там тестировался ИНДЕХ()... 0

@kwadrad 0 / 0 / 0 Регистрация: 10.11.2015 Сообщений: 24
	03.10.2016, 17:15 [ТС]
	Всем спасибо. 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	03.10.2016, 17:17
	Если уж использовать функции приложения, то вместо словаря можно использовать ВПР(), а список брать с листа, ну или тоже явно прописать в коде. 0