оператор split

[IgorGO]

Вот она победа знаний над невежеством, света над тьмой!

Спасибо!
молодец, не поленился цитат надергать для боевых товарищей.

[Hugo121]

Это как ты меня обозвал?!
Сам такой - код посмотри

[slan]

а вот так?

[Hugo121]

Кстати, s = Replace(s, "-", " to ") у меня тоже в плане было, как и Case 1 To 9.
Но вот с evaluate ничего не получалось...
А так извернуться даже и подумать не мог. Круто
А если так - сгенерить в темп vbs и запустить? Должно быть проще, и не надо разрешать доступ к компонентам

[EducatedFool]

Делал что-то в этом роде:
http://excelvba.ru/code/ArrayOfValues
http://excelvba.ru/code/ExtendArray

[slan]

вот еще вариант:

Function is_in(s$, n&) As Boolean
Dim x, i&, r As Range
Set r = Rows(n)
x = Split(Replace(s, "-", ":"), ",")
While Intersect(r, Rows(x(i))) Is Nothing
    i = i + 1
Wend
is_in = i <= UBound(x)
End Function
Sub t()
    Call is_in("1-9,95,97", 3)
End Sub

[Казанский]

Слэн,
тогда уж так

Function is_in1(s$, n&) As Boolean
is_in1 = Not Intersect(Range("A" & Replace$(Replace$(Replace$(s, " ", ""), ",", ",A"), "-", ":A")), Range("A" & n)) Is Nothing
End Function

Sub t()
    Call is_in1("1- 9, 95,97", 33)
End Sub

[slan]

согласен

[IgorGO]

однако...
slan, я стал на колено

скажите кто-нибудь что это не круто!!! вот это подход!
как нестандартно и как красиво и органично привлечен Excel к решению!

[Казанский]

А с изменением кода - это супер!

Вот кстати похожая тема: http://www.planetaexcel.ru/forum.php?thread_id=19537