ну типа того:
- Код: Выделить всё
y="Петя"
jjj=array("Петя","Вася","Дима")
Select Case y
Case jjj()
.....
end select
y="Петя"
jjj=array("Петя","Вася","Дима")
Select Case y
Case jjj()
.....
end select
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
x = IsNumeric(Application.Match("Петя", Array("Петя", "Вася", "Дима"), 0))
Сейчас этот форум просматривают: AhrefsBot и гости: 84