Страницы: 1
RSS
Как подсчитать сумму двух чисел, записанных через двоеточие
 
Здравствуйте.
Есть строка с такой записью:
3:1 (25:10, 25:22, 22:25, 25:16).
Надо вычислить суммы чисел, записанных через двоеточие и разнести их по разным ячейкам. Т.е. 25:10 сумма 35 - в одну ячейку; 25:22 сумма 47 - в другую ячейку и т.д.
В файлике пример.
Подскажите, плиз, если возможно, конечно. Заранее благодарю.  
 
Если правильно понял.
 
Пар в скобках всегда три?
Числа всегда двузначные?
 
А 3:1 не нужно суммировать?
 
Если правильно понял, это что-то с волейболом. :)
 
Мой вариант.
 
Спасибо большое!!!
Алишер, да, верно!!! ;)
 
Для волейбола такие тоже сгодятся
Для первой суммы:
=ПОДСТАВИТЬ(ПСТР(C3;6;2);":";)+ПСТР(C3;ПОИСК("/";ПОДСТАВИТЬ(C3;":";"/";2))+1;2)
Для второй суммы:
=ПСТР(C3;ПОИСК("/";ПОДСТАВИТЬ(C3;":";"/";3))-2;2)+ПСТР(C3;ПОИСК("/";ПОДСТАВИТЬ(C3;":";"/";3))+1;2)
Для последней суммы:
=ПСТР(C3;ПОИСК("/";ПОДСТАВИТЬ(C3;":";"/";4))-2;2)+ПОДСТАВИТЬ(ПРАВБ(ПОДСТАВИТЬ(C3;")";);2);":";)

Если в скобках больше, чем три записи, для всех средних сумм можно копируемую:
=ПСТР($C3;ПОИСК("/";ПОДСТАВИТЬ($C3;":";"/";СТОЛБЕЦ(C1)))-2;2)+ПСТР($C3;ПОИСК("/";ПОДСТАВИТЬ($C3;":";"/";СТОЛБЕЦ(C1)))+1;2)
 
Спасибо всем огромное! Очень оперативная помощь!!! Все работает!!!!!!!!!!!!!!!!! :D
 
Или так (количество чисел, разделенных двоеточием, неограниченно)
Код
Function Summm(ByVal S As String) As Variant
Dim Arr() As String
Arr() = Split(S, ":")
For Each A In Arr()
    Summm = Summm + CDbl(A)
    On Error Resume Next
Next A
End Function

Страницы: 1
Наверх