Russt |
Дата: Вторник, 18.10.2016, 15:05 |
Сообщение № 1 |
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010 | |
72:51 (15:9, 10:18, 9:9, 22:11, 16:4) Сумма 123 Желаемый Итог 103 46:66 (16:18, 17:21, 4:13, 9:14) Сумма 112 Желаемый Итог 112
Если в скобках 5 пар чисел, то нужно из Суммы вычесть сумму пятой пары чисел
Если в скобках 4 пары чисел, то Сумма остается неизменной
72:51 (15:9, 10:18, 9:9, 22:11, 16:4) Сумма 123 Желаемый Итог 103 46:66 (16:18, 17:21, 4:13, 9:14) Сумма 112 Желаемый Итог 112
Если в скобках 5 пар чисел, то нужно из Суммы вычесть сумму пятой пары чисел
Если в скобках 4 пары чисел, то Сумма остается неизменнойRusst
|
|
| Ответить
|
Karataev |
Дата: Вторник, 18.10.2016, 15:32 |
Сообщение № 2 |
|
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel | |
Функция, определенная пользователем: [vba]Код Function Вычислить_сумму(ByVal var) Dim i As Long, lngLast As Long var = Split(var, "(")(1) var = Left(var, Len(var) - 1) var = Replace(var, ":", ", ") var = Split(var, ", ") lngLast = IIf(UBound(var) < 8, UBound(var), 7) For i = 0 To lngLast Вычислить_сумму = Вычислить_сумму + CDbl(var(i)) Next
End Function [/vba]
Функция, определенная пользователем: [vba]Код Function Вычислить_сумму(ByVal var) Dim i As Long, lngLast As Long var = Split(var, "(")(1) var = Left(var, Len(var) - 1) var = Replace(var, ":", ", ") var = Split(var, ", ") lngLast = IIf(UBound(var) < 8, UBound(var), 7) For i = 0 To lngLast Вычислить_сумму = Вычислить_сумму + CDbl(var(i)) Next
End Function [/vba]Karataev
|
|
| Ответить
|
Udik |
Дата: Вторник, 18.10.2016, 16:52 |
Сообщение № 3 |
|
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64 | |
Вариант с макрофункцией ВЫЧИСЛИТЬ
Код =ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(B3;" ";ПОВТОР(" ";10);5))=ДЛСТР(B3);C3;C3-eval)
для макрофункции
Код =ВЫЧИСЛИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(Лист1!C3;" ";ПОВТОР(" ";10);5);")";" ");10));":";"+"))
Вариант с макрофункцией ВЫЧИСЛИТЬ
Код =ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(B3;" ";ПОВТОР(" ";10);5))=ДЛСТР(B3);C3;C3-eval)
для макрофункции
Код =ВЫЧИСЛИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(Лист1!C3;" ";ПОВТОР(" ";10);5);")";" ");10));":";"+"))
Udik
К сообщению приложен файл:
0t.xls
(33.0 Kb)
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
|
|
| Ответить
|
AlexM |
Дата: Вторник, 18.10.2016, 18:01 |
Сообщение № 4 |
|
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4491
Репутация:
1115
±
Замечаний:
0% ±
Excel 2003 | |
Код =СУММ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B3;")";":0:0");",";":");"(";":");":";ПОВТОР(" ";19));{0:1:11:12}*19+1;19)*{1:1:-1:-1}) илиКод =СУММ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B3;")";":0:0");",";":");"(";":");":";ПОВТОР(" ";19));{0;11:1;12}*19+1;19)*{1;-1})
Код =СУММ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B3;")";":0:0");",";":");"(";":");":";ПОВТОР(" ";19));{0:1:11:12}*19+1;19)*{1:1:-1:-1}) илиКод =СУММ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B3;")";":0:0");",";":");"(";":");":";ПОВТОР(" ";19));{0;11:1;12}*19+1;19)*{1;-1}) AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Вторник, 18.10.2016, 18:04 |
|
| Ответить
|
Russt |
Дата: Среда, 19.10.2016, 21:48 |
Сообщение № 5 |
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010 | |
Всем большое спасибо! Быстро оперативно!!!
Всем большое спасибо! Быстро оперативно!!!Russt
|
|
| Ответить
|