Равенство переменной с одним из элементов массива

[Calvin]

Здраствуйте, какой подошел бы оператор сравнения некой переменной с одним из элементов массива (не перебирая его)
ну типа того:

Код: Выделить всё

y="Петя"
jjj=array("Петя","Вася","Дима")
Select Case y
Case jjj()
.....
end select


[Template]

Ежели индекс элемента заранее известен :

Код: Выделить всё

y = "Петя"
jjj = Array("Петя", "Вася", "Дима")

If y = jjj(0) Then MsgBox "Да"

А ежели необходимо проверить наличие этого самого Пети, да ещё и без перебора :

Код: Выделить всё

y = "Петя"
jjj = Array("Петя", "Вася", "Дима")

If CBool(InStr(Join(jjj, vbCrLf), y + vbCrLf)) Then 'InStr(1, Join(jjj, vbCrLf), y + vbCrLf, 1) 'IgnoreCase
   MsgBox "Yes"
Else
   MsgBox "No"
End If

[KL]

Если в Excel, то еще вот так:

Код: Выделить всё

x = IsNumeric(Application.Match("Петя", Array("Петя", "Вася", "Дима"), 0))

[Template]

Ну, ежели в Excel, то можно и так

L = Not IsError(Application.VLookup("Петя", Array("Петя", "Вася", "Дима"), 1, False)) 'false=0