|
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]Код 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
|
| |
| Ответить
|
|
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));":";"+"))
К сообщению приложен файл:
0t.xls
(33.0 Kb)
вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
|
| |
| Ответить
|
|
AlexM |
Дата: Вторник, 18.10.2016, 18:01 |
Сообщение № 4 |
|
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4480
Репутация:
1114
±
Замечаний:
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})
Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Вторник, 18.10.2016, 18:04 |
| |
| Ответить
|
|
Russt |
Дата: Среда, 19.10.2016, 21:48 |
Сообщение № 5 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010 | |
Всем большое спасибо! Быстро оперативно!!!
Всем большое спасибо! Быстро оперативно!!!Russt
|
| |
| Ответить
|
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
