Подсчет данных введенных в одной ячейке.

[Hagen83]

Очень нужна помощь. В приложении пример. В поле "Результат A1" необходимо подсчитать сумму 10 чисел указанных слева от значка "-" в ячейке "Ряд A", в поле "Результат A2" - справа от значка "-". Соответственно для ряда B.

[Dophin]

я бы тому кто это придумал, в голову гвоздь забил (с)

это я про "данные" в одной ячейке.

[EducatedFool]

Надо сделать формулами, или можно макросом?

[Hagen83]

Сообщение от EducatedFool

Надо сделать формулами, или можно макросом?

Как удобнее, не принципиально... А вообще даже не думал, что эту задачу можно выполнить стандартными функциями :-)

[Skif-F]

Примерно так:

Sub Прог()
    Dim s() As String, s2 As Variant
    Dim LeftSum As Double   'Сумма левого столбца
    Dim RightSum As Double  'Сумма правого столбца
    Dim pos As Integer
    
    RightSum = 0    'Начальное значение для суммы правого столбца
    LeftSum = 0     'Начальное значение для суммы левого столбца
    
    s = Split(Range("A2").Value, Chr(10))   'Разбиваем по строкам
    For Each s2 In s
        pos = InStr(1, s3, "-")             'Ищем позицию знака "-"
        LeftSum = LeftSum + Val(Left(s3, pos - 1))
        RightSum = RightSum + Val(Right(s3, Len(s3) - pos))
    Next
    Range("C2").Value = LeftSum
    Range("D2").Value = RightSum
End Sub

до ума, надеюсь, доведёшь

[Dophin]

десять символов.


можно так

[EducatedFool]

Вот вам макрос:

Sub test()
    On Error Resume Next
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        arr = "": arr = Split(cell, vbLf)
        res1 = 0: res2 = 0
        If UBound(arr) > 1 Then
            For Each i In arr
                res1 = res1 + Val(Split(i, "-")(0))
                res2 = res2 + Val(Split(i, "-")(1))
            Next i
            cell(1, 3) = res1: cell(1, 4) = res2
        End If
    Next cell
End Sub

И пример в виде файла: http://excelvba.ru/XL_Files/Sample__...__16-19-02.zip

[Hagen83]

Огромное спасибо. Это то, что нужно.

[The_Prist]

Сообщение от Hagen83

Как удобнее, не принципиально... А вообще даже не думал, что эту задачу можно выполнить стандартными функциями :-)

Странно...А это не Вы здесь аналогичный вопрос задавали?

Там автор очень категорично отзывался об использовании макросов.

[Hagen83]

Сообщение от The_Prist

Странно...А это не Вы здесь аналогичный вопрос задавали?

Там автор очень категорично отзывался об использовании макросов.

Это не я. Я уже писал, что сразу счел, что здесь без макросов не обойтись и удивился, когда меня спросили чем сделать: формулами или макросом)