Сумма по отдельности написанных через дробь чисел.
mikolafnv
Дата: Пятница, 15.01.2016, 11:09 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Уважаемые ГУРУ EXCEL!!! Интересует формула подсчета суммы чисел написанных через дробь, помогите если не затруднит. Спасибо!!!
Уважаемые ГУРУ EXCEL!!! Интересует формула подсчета суммы чисел написанных через дробь, помогите если не затруднит. Спасибо!!! mikolafnv
Ответить
Сообщение Уважаемые ГУРУ EXCEL!!! Интересует формула подсчета суммы чисел написанных через дробь, помогите если не затруднит. Спасибо!!! Автор - mikolafnv Дата добавления - 15.01.2016 в 11:09
_Boroda_
Дата: Пятница, 15.01.2016, 11:19 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация:
6505
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Так нужно?Код
=СУММПРОИЗВ(--ЛЕВБ(0&A3:E3;ПОИСК("/";A3:E3)))&"/"&СУММПРОИЗВ(--ПСТР(A3:E3&0;ПОИСК("/";A3:E3)+1;9))/10
или формула массива (вводится одновременным нажатием Контрл Шифт Ентер)Код
=СУММ(--ЛЕВБ(0&A3:E3;ПОИСК("/";A3:E3)))&"/"&СУММ(--ПСТР(A3:E3&0;ПОИСК("/";A3:E3)+1;9))/10
Так нужно?Код
=СУММПРОИЗВ(--ЛЕВБ(0&A3:E3;ПОИСК("/";A3:E3)))&"/"&СУММПРОИЗВ(--ПСТР(A3:E3&0;ПОИСК("/";A3:E3)+1;9))/10
или формула массива (вводится одновременным нажатием Контрл Шифт Ентер)Код
=СУММ(--ЛЕВБ(0&A3:E3;ПОИСК("/";A3:E3)))&"/"&СУММ(--ПСТР(A3:E3&0;ПОИСК("/";A3:E3)+1;9))/10
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Так нужно?Код
=СУММПРОИЗВ(--ЛЕВБ(0&A3:E3;ПОИСК("/";A3:E3)))&"/"&СУММПРОИЗВ(--ПСТР(A3:E3&0;ПОИСК("/";A3:E3)+1;9))/10
или формула массива (вводится одновременным нажатием Контрл Шифт Ентер)Код
=СУММ(--ЛЕВБ(0&A3:E3;ПОИСК("/";A3:E3)))&"/"&СУММ(--ПСТР(A3:E3&0;ПОИСК("/";A3:E3)+1;9))/10
Автор - _Boroda_ Дата добавления - 15.01.2016 в 11:19
pabchek
Дата: Пятница, 15.01.2016, 11:19 |
Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация:
218
±
Замечаний:
0% ±
Excel 2007
У меня вот так получилось. Формула массива (кнтрл+шифт+ентер одновременно)Код
=СУММ(ЕСЛИОШИБКА(--ПСТР(A3:E3;1;ПОИСК("/";A3:E3)-1);0))&"/"&СУММ(ЕСЛИОШИБКА(--ПСТР(A3:E3;ПОИСК("/";A3:E3)+1;9);0))
У меня вот так получилось. Формула массива (кнтрл+шифт+ентер одновременно)Код
=СУММ(ЕСЛИОШИБКА(--ПСТР(A3:E3;1;ПОИСК("/";A3:E3)-1);0))&"/"&СУММ(ЕСЛИОШИБКА(--ПСТР(A3:E3;ПОИСК("/";A3:E3)+1;9);0))
pabchek
"Учиться, учиться и еще раз учиться!" WM: R399923528092
Ответить
Сообщение У меня вот так получилось. Формула массива (кнтрл+шифт+ентер одновременно)Код
=СУММ(ЕСЛИОШИБКА(--ПСТР(A3:E3;1;ПОИСК("/";A3:E3)-1);0))&"/"&СУММ(ЕСЛИОШИБКА(--ПСТР(A3:E3;ПОИСК("/";A3:E3)+1;9);0))
Автор - pabchek Дата добавления - 15.01.2016 в 11:19
Nic70y
Дата: Пятница, 15.01.2016, 11:30 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9006
Репутация:
2369
±
Замечаний:
0% ±
Excel 2010
для разнообразияКод
=СУММПРОИЗВ(ЦЕЛОЕ(ПОДСТАВИТЬ(A3:E3;"/";",")))&"/"&СУММПРОИЗВ(--ПРАВБ(ПОДСТАВИТЬ(A3:E3;"/";"000000000000000");15))
для разнообразияКод
=СУММПРОИЗВ(ЦЕЛОЕ(ПОДСТАВИТЬ(A3:E3;"/";",")))&"/"&СУММПРОИЗВ(--ПРАВБ(ПОДСТАВИТЬ(A3:E3;"/";"000000000000000");15))
Nic70y
ЮMoney 41001841029809
Ответить
Сообщение для разнообразияКод
=СУММПРОИЗВ(ЦЕЛОЕ(ПОДСТАВИТЬ(A3:E3;"/";",")))&"/"&СУММПРОИЗВ(--ПРАВБ(ПОДСТАВИТЬ(A3:E3;"/";"000000000000000");15))
Автор - Nic70y Дата добавления - 15.01.2016 в 11:30
mikolafnv
Дата: Пятница, 15.01.2016, 11:47 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Можно еще по такому примеру, требования те же самые. Спасибо!
Можно еще по такому примеру, требования те же самые. Спасибо! mikolafnv
Сообщение отредактировал mikolafnv - Пятница, 15.01.2016, 12:16
Ответить
Сообщение Можно еще по такому примеру, требования те же самые. Спасибо! Автор - mikolafnv Дата добавления - 15.01.2016 в 11:47
sv2014
Дата: Пятница, 15.01.2016, 15:06 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
mikolafnv , добрый день вариант формулами aaa1 aaa2 vvv,в ячейках красного цвета. [vba]Код
Function vvv(r1 As Range, r2 As Range) Dim x1, x2, y1, y2 x1 = Val(Split(r1, "/")(0)) y1 = Val(Split(r1, "/")(1)) x2 = Val(Split(r2, "/")(0)) y2 = Val(Split(r2, "/")(1)) vvv = x1 + x2 & "/" & y1 + y2 End Function
[/vba] [vba]Код
Function aaa1$(rng As Range) Dim x, y, r As Range For Each r In rng If r.Offset(-1, 0).Value = "Д" Then x = x + Val(Split(r, "/")(0)) y = y + Val(Split(r, "/")(1)) End If Next aaa1 = x & "/" & y End Function
[/vba] [vba]Код
Function aaa2$(rng As Range) Dim x, y, r As Range For Each r In rng If r.Offset(-1, 0).Value = "Н" Then x = x + Val(Split(r, "/")(0)) y = y + Val(Split(r, "/")(1)) End If Next aaa2 = x & "/" & y End Function
[/vba]
mikolafnv , добрый день вариант формулами aaa1 aaa2 vvv,в ячейках красного цвета. [vba]Код
Function vvv(r1 As Range, r2 As Range) Dim x1, x2, y1, y2 x1 = Val(Split(r1, "/")(0)) y1 = Val(Split(r1, "/")(1)) x2 = Val(Split(r2, "/")(0)) y2 = Val(Split(r2, "/")(1)) vvv = x1 + x2 & "/" & y1 + y2 End Function
[/vba] [vba]Код
Function aaa1$(rng As Range) Dim x, y, r As Range For Each r In rng If r.Offset(-1, 0).Value = "Д" Then x = x + Val(Split(r, "/")(0)) y = y + Val(Split(r, "/")(1)) End If Next aaa1 = x & "/" & y End Function
[/vba] [vba]Код
Function aaa2$(rng As Range) Dim x, y, r As Range For Each r In rng If r.Offset(-1, 0).Value = "Н" Then x = x + Val(Split(r, "/")(0)) y = y + Val(Split(r, "/")(1)) End If Next aaa2 = x & "/" & y End Function
[/vba]sv2014
Сообщение отредактировал sv2014 - Пятница, 15.01.2016, 15:23
Ответить
Сообщение mikolafnv , добрый день вариант формулами aaa1 aaa2 vvv,в ячейках красного цвета. [vba]Код
Function vvv(r1 As Range, r2 As Range) Dim x1, x2, y1, y2 x1 = Val(Split(r1, "/")(0)) y1 = Val(Split(r1, "/")(1)) x2 = Val(Split(r2, "/")(0)) y2 = Val(Split(r2, "/")(1)) vvv = x1 + x2 & "/" & y1 + y2 End Function
[/vba] [vba]Код
Function aaa1$(rng As Range) Dim x, y, r As Range For Each r In rng If r.Offset(-1, 0).Value = "Д" Then x = x + Val(Split(r, "/")(0)) y = y + Val(Split(r, "/")(1)) End If Next aaa1 = x & "/" & y End Function
[/vba] [vba]Код
Function aaa2$(rng As Range) Dim x, y, r As Range For Each r In rng If r.Offset(-1, 0).Value = "Н" Then x = x + Val(Split(r, "/")(0)) y = y + Val(Split(r, "/")(1)) End If Next aaa2 = x & "/" & y End Function
[/vba]Автор - sv2014 Дата добавления - 15.01.2016 в 15:06
_Boroda_
Дата: Пятница, 15.01.2016, 16:09 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация:
6505
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Формулами
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Формулами Автор - _Boroda_ Дата добавления - 15.01.2016 в 16:09
gge29
Дата: Пятница, 19.01.2018, 22:49 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 302
Репутация:
3
±
Замечаний:
0% ±
Всем доброго вечера!!!Помогите пожалуйста разобраться с формулой,в файле всё описал
Всем доброго вечера!!!Помогите пожалуйста разобраться с формулой,в файле всё описал gge29
Ответить
Сообщение Всем доброго вечера!!!Помогите пожалуйста разобраться с формулой,в файле всё описал Автор - gge29 Дата добавления - 19.01.2018 в 22:49
Che79
Дата: Пятница, 19.01.2018, 23:35 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация:
306
±
Замечаний:
0% ±
2013 Win, 365 Mac
gge29 , Правила форума в т.ч. гласят Цитата
на форуме запрещено п. 5q - задавать новые вопросы в уже созданных чужих или своих темах
Создайте новую тему со своим вопросом. А если хорошо присмотреться, то ответ на вопрос можно найти в Вашем же файле - примере
gge29 , Правила форума в т.ч. гласят Цитата
на форуме запрещено п. 5q - задавать новые вопросы в уже созданных чужих или своих темах
Создайте новую тему со своим вопросом. А если хорошо присмотреться, то ответ на вопрос можно найти в Вашем же файле - примереChe79
Делай нормально и будет нормально!
Ответить
Сообщение gge29 , Правила форума в т.ч. гласят Цитата
на форуме запрещено п. 5q - задавать новые вопросы в уже созданных чужих или своих темах
Создайте новую тему со своим вопросом. А если хорошо присмотреться, то ответ на вопрос можно найти в Вашем же файле - примереАвтор - Che79 Дата добавления - 19.01.2018 в 23:35
muratzh81
Дата: Четверг, 20.10.2022, 14:47 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
60% ±
2108 сборка 14332.20303
Добрый день ! Подскажите пожалуйста как посчитать сумму до дробей и после дробей в общую с учетом пустых ячеек
Добрый день ! Подскажите пожалуйста как посчитать сумму до дробей и после дробей в общую с учетом пустых ячеек muratzh81
Сообщение отредактировал muratzh81 - Четверг, 20.10.2022, 17:19
Ответить
Сообщение Добрый день ! Подскажите пожалуйста как посчитать сумму до дробей и после дробей в общую с учетом пустых ячеек Автор - muratzh81 Дата добавления - 20.10.2022 в 14:47
msi2102
Дата: Четверг, 20.10.2022, 15:25 |
Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
Сообщение отредактировал Serge_007 - Четверг, 20.10.2022, 16:54
Ответить
muratzh81
Дата: Четверг, 20.10.2022, 15:28 |
Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
60% ±
2108 сборка 14332.20303
msi2102, Спасибо большое!!!
Ответить
Сообщение msi2102, Спасибо большое!!! Автор - muratzh81 Дата добавления - 20.10.2022 в 15:28
muratzh81
Дата: Пятница, 21.10.2022, 12:53 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
60% ±
2108 сборка 14332.20303
Подскажите пожалуйста, ваша формула работает на моем компьютере, но стоит мне перенести файл на другой компьютер, формула перестает считать.[Оставьте еще 9997 сообщение(й), чтобы увидеть скрытый текст] К сообщению приложен файл: 4975355.xlsx(10.1 Kb)
Подскажите пожалуйста, ваша формула работает на моем компьютере, но стоит мне перенести файл на другой компьютер, формула перестает считать.[Оставьте еще 9997 сообщение(й), чтобы увидеть скрытый текст] К сообщению приложен файл: 4975355.xlsx(10.1 Kb)
muratzh81
Ответить
Сообщение Подскажите пожалуйста, ваша формула работает на моем компьютере, но стоит мне перенести файл на другой компьютер, формула перестает считать.[Оставьте еще 9997 сообщение(й), чтобы увидеть скрытый текст] К сообщению приложен файл: 4975355.xlsx(10.1 Kb)
Автор - muratzh81 Дата добавления - 21.10.2022 в 12:53
Serge_007
Дата: Пятница, 21.10.2022, 13:11 |
Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Дело не в компьютере,а в версии Excel Функция ФИЛЬТР.XML() недоступна в Web-Excel и Excel для Mac. Функция работает в следующих релизах: Excel для Microsoft 365, Excel 2021, Excel 2019, Excel 2016 и Excel 2013
Дело не в компьютере,а в версии Excel Функция ФИЛЬТР.XML() недоступна в Web-Excel и Excel для Mac. Функция работает в следующих релизах: Excel для Microsoft 365, Excel 2021, Excel 2019, Excel 2016 и Excel 2013 Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Дело не в компьютере,а в версии Excel Функция ФИЛЬТР.XML() недоступна в Web-Excel и Excel для Mac. Функция работает в следующих релизах: Excel для Microsoft 365, Excel 2021, Excel 2019, Excel 2016 и Excel 2013 Автор - Serge_007 Дата добавления - 21.10.2022 в 13:11