If Instr() or Instr().... [COLOR="DarkRed"][и так 10 раз][/COLOR] Then
smth1
Else
smth2
End if
Как попроще написать условие If-Elseif?
Например, есть 20 разных строковых выражений. Для, например, 10 из них должна выполняться одна команда, а для остальных - другая.
Можно ли избежать громоздкой конструкии:
Можно ли избежать громоздкой конструкии:
Код:
Цитата: Dmitry2064
... Можно ли избежать громоздкой конструкии...
Используйте оператор варианта. Например:
Код:
x = InStr(1, "STR", "R", vbTextCompare)
Select Case x
Case 0: MsgBox "0"
Case Else: MsgBox x
End Select
Select Case x
Case 0: MsgBox "0"
Case Else: MsgBox x
End Select
OK, спасибо.