Developing.ru

Код: Выделить всё

Sub RRR()
    Dim Str As String, Arr() As String, n As Long, _
    nn As Long, sStr As String, i As Long
    On Error GoTo lbl
    Str = InputBox("Введите страницы печати: ")
    Arr = Split(Str, "-")
    n = Val(Arr(0))
    nn = Val(Arr(1))
    sStr = n
        For i = n + 1 To nn
            sStr = sStr & "," & i
        Next i
    MsgBox sStr
    Exit Sub
lbl:
    MsgBox "Ошибка данных!"
End Sub

Код: Выделить всё

Sub SSS()
    Dim Arr() As String, sStr As String, _
    i As Long, Str As String
    On Error GoTo lbl
    sStr = InputBox("Введите страницы печати: ")
    Arr = Split(sStr, ",")
    For i = 0 To UBound(Arr)
        If InStr(1, Arr(i), "-", vbBinaryCompare) > 0 Then
            If Len(Str) > 0 Then
                Str = Str & "," & RRR(Replace(Arr(i), " ", ""))
            Else
                Str = RRR(Replace(Arr(i), " ", ""))
            End If
        Else
            If Len(Str) > 0 Then
                Str = Str & "," & Replace(Val(Arr(i)), " ", "")
            Else
                Str = Replace(Val(Arr(i)), " ", "")
            End If
        End If
    Next i
    'Макрос печати
    MsgBox Str
    Exit Sub
lbl:
    MsgBox "Ошибка данных!"
End Sub

Function RRR(Str As String)
    Dim Arr() As String, n As Long, _
    nn As Long, sStr As String, i As Long
    On Error GoTo lbl
    Arr = Split(Str, "-")
    n = Val(Arr(0))
    nn = Val(Arr(1))
    sStr = n
        For i = n + 1 To nn
            sStr = sStr & "," & i
        Next i
    RRR = sStr
    Exit Function
lbl:
    MsgBox "Ошибка данных!"
End Function