Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сумма не целых чисел из одной ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сумма не целых чисел из одной ячейки (Формулы/Formulas)
Сумма не целых чисел из одной ячейки
Nerovinger Дата: Четверг, 05.03.2020, 11:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте. Перелопатил форум и не только этот,но так и не нашел для себя ответ. В Exel не силен,простейшие действия могу сделать,но вот встала задача сумировать числа вида 4,45; 5,1; 3,2; 6,9; 3,3; 7,2; и так дальше из одной ячейки . и вторая задача из этой же ячейки сумировать числа меньше 5 ( тоесть 4,45 + 3,2 + 3,3 и так дальше).

Прикрепил пример. Там все числа красные как-то надо сумировать отдельно .

Вручную считать отнимает прилично времени если приходиться обрабатывать кучу инфы.
К сообщению приложен файл: 7722775.xlsx(10.2 Kb)
 
Ответить
СообщениеЗдравствуйте. Перелопатил форум и не только этот,но так и не нашел для себя ответ. В Exel не силен,простейшие действия могу сделать,но вот встала задача сумировать числа вида 4,45; 5,1; 3,2; 6,9; 3,3; 7,2; и так дальше из одной ячейки . и вторая задача из этой же ячейки сумировать числа меньше 5 ( тоесть 4,45 + 3,2 + 3,3 и так дальше).

Прикрепил пример. Там все числа красные как-то надо сумировать отдельно .

Вручную считать отнимает прилично времени если приходиться обрабатывать кучу инфы.

Автор - Nerovinger
Дата добавления - 05.03.2020 в 11:05
dude Дата: Четверг, 05.03.2020, 13:11 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 193
Репутация: 28 ±
Замечаний: 0% ±

2016
вкладка данные, текст по столбцам разделитель "; "
 
Ответить
Сообщениевкладка данные, текст по столбцам разделитель "; "

Автор - dude
Дата добавления - 05.03.2020 в 13:11
AlexM Дата: Четверг, 05.03.2020, 14:27 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4039
Репутация: 1008 ±
Замечаний: 0% ±

Excel 2003
Код
=СУММПРОИЗВ(--ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ("0;"&D3;"(!)";";0");";";ПОВТОР(" ";99));99*СТРОКА($1:$99));99))

Код
=СУММПРОИЗВ(--ТЕКСТ(ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ("0;"&D3;"(!)";";0");";";ПОВТОР(" ";99));99*СТРОКА($1:$99));99);"[<5];0,000;\0;\0"))
К сообщению приложен файл: 7722775_01.xlsx(9.9 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.


Сообщение отредактировал AlexM - Четверг, 05.03.2020, 14:29
 
Ответить
Сообщение
Код
=СУММПРОИЗВ(--ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ("0;"&D3;"(!)";";0");";";ПОВТОР(" ";99));99*СТРОКА($1:$99));99))

Код
=СУММПРОИЗВ(--ТЕКСТ(ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ("0;"&D3;"(!)";";0");";";ПОВТОР(" ";99));99*СТРОКА($1:$99));99);"[<5];0,000;\0;\0"))

Автор - AlexM
Дата добавления - 05.03.2020 в 14:27
Nic70y Дата: Четверг, 05.03.2020, 14:40 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 6087
Репутация: 1338 ±
Замечаний: 0% ±

ru13;10;03
как-то так, наскоряк
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    c = Cells(Rows.Count, "d").End(xlUp).Row
    For Each d In Range("d3:d" & c)
        f = d.Address
        'все
        h = Replace(Replace(Replace(d, "(!)", ""), ",", "."), ";", "+")
        j = Evaluate(h)
        d.Offset(0, 1) = j
        'красные
        e = Len(d)
        x = ""
        For i = 1 To e
            u = Range(f).Characters(Start:=i, Length:=1).Font.ColorIndex
            v = Mid(d, i, 1)
            If u = 3 Or v = ";" Then
                If v = ";" Then v = "+"
                x = x & v
            End If
        Next i
        a = Replace(Replace(x, "(!)", ""), ",", ".")
        b = Evaluate(a)
        g = Application.IsNumber(b)
        If g Then d.Offset(0, 2) = b
        '<5
        k = d & ";"
        l = Len(k)
        m = Replace(k, ";", "")
        n = Len(m)
        o = l - n
        r = ""
        For p = 1 To o
            q = InStr(k, ";")
            s = Replace(Mid(k, 1, q - 1), "(!)", "")
            If s >= 5 Then s = ""
            r = r & "+" & s
            k = Mid(k, q + 1, l)
        Next p
        aa = Replace(r, ",", ".")
        ab = Evaluate(aa)
        ac = Application.IsNumber(ab)
        If ac Then d.Offset(0, 3) = ab
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
исправил надо было не >, а >=
К сообщению приложен файл: 18-1-.xlsm(20.6 Kb)


Яндекс Деньги 41001841029809

Сообщение отредактировал Nic70y - Четверг, 05.03.2020, 15:01
 
Ответить
Сообщениекак-то так, наскоряк
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    c = Cells(Rows.Count, "d").End(xlUp).Row
    For Each d In Range("d3:d" & c)
        f = d.Address
        'все
        h = Replace(Replace(Replace(d, "(!)", ""), ",", "."), ";", "+")
        j = Evaluate(h)
        d.Offset(0, 1) = j
        'красные
        e = Len(d)
        x = ""
        For i = 1 To e
            u = Range(f).Characters(Start:=i, Length:=1).Font.ColorIndex
            v = Mid(d, i, 1)
            If u = 3 Or v = ";" Then
                If v = ";" Then v = "+"
                x = x & v
            End If
        Next i
        a = Replace(Replace(x, "(!)", ""), ",", ".")
        b = Evaluate(a)
        g = Application.IsNumber(b)
        If g Then d.Offset(0, 2) = b
        '<5
        k = d & ";"
        l = Len(k)
        m = Replace(k, ";", "")
        n = Len(m)
        o = l - n
        r = ""
        For p = 1 To o
            q = InStr(k, ";")
            s = Replace(Mid(k, 1, q - 1), "(!)", "")
            If s >= 5 Then s = ""
            r = r & "+" & s
            k = Mid(k, q + 1, l)
        Next p
        aa = Replace(r, ",", ".")
        ab = Evaluate(aa)
        ac = Application.IsNumber(ab)
        If ac Then d.Offset(0, 3) = ab
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
исправил надо было не >, а >=

Автор - Nic70y
Дата добавления - 05.03.2020 в 14:40
Nerovinger Дата: Четверг, 05.03.2020, 20:58 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо гениям этого форума. AlexM и Nic70y от души спасибо.
 
Ответить
СообщениеСпасибо гениям этого форума. AlexM и Nic70y от души спасибо.

Автор - Nerovinger
Дата добавления - 05.03.2020 в 20:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сумма не целых чисел из одной ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!