Функция возвращающая массив данных на основе строки

[TimeStopper]

Не знаю как ее описать более подробно...
В общем как при печати указанных листов, есть строка "5-15, 21, 22", надо получить из нее массив данных.
Кто-нибудь же сталкивался с подобным в практике, поделитесь пожалуйста. Самому мозгов не хватает написать такую.

[IgorGO]

Function ArrayOf(ByVal ins As String, Optional outs As String)
  Dim s As String, i As Long
  s = Split(ins, ",")(0)
  For i = Val(Split(s, "-")(0)) To Val(Split(s, "-")(UBound(Split(s, "-")))): outs = outs & "," & i:  Next
  ins = Right(ins, Len(ins) - Len(s) - IIf(InStr(ins, ",") > 0, 1, 0))
  If Trim(ins) <> "" Then ArrayOf = ArrayOf(ins, outs) Else ArrayOf = Split(Right(outs, Len(outs) - 1), ",")
End Function



Function StringOf(ByVal ins As String)
  Dim s As String, i As Long
  s = Split(ins, ",")(0)
  For i = Val(Split(s, "-")(0)) To Val(Split(s, "-")(UBound(Split(s, "-")))): StringOf = StringOf & "," & i:  Next
  ins = Right(ins, Len(ins) - Len(s) - IIf(InStr(ins, ",") > 0, 1, 0))
  If Trim(ins) <> "" Then StringOf = StringOf & StringOf(ins)
End Function

[TimeStopper]

IgorGO, научите ими пользоваться
StringOf вернул мне из строки 95-98,99,100,101 строку ,95,96,97,98,99,100,101
Здорово, а дальше что делать?

[IgorGO]

лента данные, текст по столбцам, разделитель запятая

а ArrayOf - возбращает массив данных, используйте как "массивную" функцию определенную пользователем

[IgorGO]

см.вложение

[TimeStopper]

а...это вы про Эксель, а мне внутри макроса нужен этот массив
Пытаюсь присвоить NomeraIzbr() = ArrayOf(kk) но упираюсь в "Can't Assign to Array".

[IgorGO]

а так:

dim a
  a = arrayof("3-8,10,15,21-30")

[TimeStopper]

а так упираюсь в error 13
но ошибку он уже внутри функции ищет http://clip2net.com/s/3cXhHTF

[IgorGO]

что-то в исходной строке не так. ни каких проверок там нет... файл дайте - посмотрю

[TimeStopper]

смотрите функцию Function SelectLimits_my()