Сравнение массива чисел с числом

[cent]

Подскажите, можно ли сравнить все элементы массива с определенным значением посредством одной операции?
Пробую так:

Sub test()
Dim r&(), c&
    c = 5
    r = Array(1, 2, 3, 4, 5)
    If r = c Then MsgBox ("Есть совпадение!")
End Sub

Выдает ошибку "Type mismatch"
Как решить такую задачу не перебирая в сравнении все элементы массива?

[tolikman]

массив надо циклом перебирать

dim i as integer, endI as integer
.....
endI=Ubound(r,1) 'Ubound(r,1) возвращает индекс последнего элемента
for i =LBound(r,1) to endI 'LBound(r,1) возвращает индекс первого элемента
if r(i) = c then msgbox("Есть совпадение")
next i
....

тебе надо сравнивать не массив а его элемент с нужным значением, таким образом когда i будет равен индексу элемента, значение которого такое же как и искомое значение, то ты увидишь сообщение.

[cent]

Спасибо, уважаемый tolikman. Перебирать в цикле я могу, вопрос собственно заключается в

сравнить все элементы массива с определенным значением посредством одной операции
...
не перебирая в сравнении все элементы массива

[viter.alex]

А что, нужно обязательно макросом?

[cent]

А что, нужно обязательно макросом?

Да, это лишь часть кода.
А вопрос возник при оптимизации кода.
Просто массив большой и сравнений много.

[EducatedFool]

Sub ОбнаружениеЭлементаВМассиве()
    a = Array(11, 12, 13, 14, 15) ' массив для поиска
    s = 11 ' элемент, который требуется найти
    
    If "~" & Join(a, "~") & "~" Like "*~" & s & "~*" Then
        MsgBox "Есть такой элемент в массиве", vbInformation, s
    Else
        MsgBox "Такой элемент в массиве не обнаружен", vbInformation, s
    End If
End Sub

[cent]

Спасибо, Игорь.
Вопрос по коду:
в выражении

"~" & Join(a, "~") & "~" Like "*~" & s & "~*"

я так понимаю, что "*" - это маска?

Кстати, как я понял оператор Join работает только с одномерными массивами.


P.S. жаль только, что для оптимизации кода этот вариант мне видимо не подходит
в тестовом поиске в массиве с 50'000 элементов цикл справился с задачей 0,31 сек, а модель

"~" & Join(a, "~") & "~" Like "*~" & s & "~*"

дала результат за 0,36сек

Все равно спасибо.

[EducatedFool]

я так понимаю, что "*" - это маска?

она самая.

в тестовом поиске в массиве с 50'000 элементов цикл справился с задачей 0,31 сек, а модель "~" & Join(a, "~") & "~" Like "*~" & s & "~*"
дала результат за 0,36сек

Так никто ведь не ставил задачу оптимизировать код...
Была задача затолкать поиск элемента в одну строку кода

Я думал, мой код покажет куда более худшее время...

Кстати, если у Вас 64-битная система, можно попробовать объявлять переменные с типом Single вместо Long...

Приведите весь код цикла поиска значения в массиве.
Может, найдём какой-нибудь способ увелечить быстродействие...

[viter.alex]

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

…в тестовом поиске в массиве с 50'000 элементов цикл справился с задачей 0,31 сек, а модель

"~" & Join(a, "~") & "~" Like "*~" & s & "~*"

дала результат за 0,36сек

Все равно спасибо.

Скорее всего потому, что сам поиск в строке тоже происходит через цикл. А строка с 100,000 символов, это уже роман «Война и мир»

[EducatedFool]

Скорее всего потому, что сам поиск в строке тоже происходит через цикл.

А как иначе-то?
По другому никак не обнаружить соответствие строки одному из элементов массива...

Так что неважно, самому организовывать цикл, или использовать функцию (свою или встроенную) - основой поиска всё равно будет цикл по всем элементам массива.

Другое дело, что при наличии встроенной функции можно было бы добиться незначительного уменьшения времени, но... в данном случае Microsoft о нас не позаботился...

как я понял оператор Join работает только с одномерными массивами

А у Вас какая размерность массива?
Сколько всего сравнений происходит?