Код:
If Server = "Server1" Or Server = "Server2" Or Server = "Server3" Then
MsgBox "Условие выполняется " + Server
Else
MsgBox "Условие не выполняется " + Server
End If
Код:
Si = Array("Server1", "Server2", "Server3", "Server4", "Server5")
N = UBound(Si)
Logica = False
For i = 0 To N
Logica = (Server = Si(i))
If Logica Then Exit For
Next
If Logica Then
MsgBox "Условие выполняется " + Server
Else
MsgBox "Условие не выполняется " + Server
End If
Код:
Si = UCase("'Server1'Server2'Server3'Server4'Server5'")
If InStr(Si, UCase("'" + Server + "'")) <> 0 Then
MsgBox "Условие выполняется " + Server
Else
MsgBox "Условие не выполняется " + Server
End If
