Страницы: 1
RSS
Cуммирование цифр или чисел в одной ячейке
 
Добрый день! подскажите как сделать что бы суммировались цифры в одной ячейке? Например в ячейке А:1 стоит комбинация 1 2 3  а в ячейке В:1  должно получиться 6
 
swetlana, файл-пример приложите и покажите что есть и сто должно получиться. https://excel2.ru/articles/slozhenie-cifr-chisla-v-ms-excel
Изменено: Mershik - 05.04.2020 14:09:59
Не бойтесь совершенства. Вам его не достичь.
 
пример
 
Код
=СУММ(ЕСЛИОШИБКА(--ПСТР(ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";99));1+99*(СТРОКА($A$1:$A$7)-1);99);0))
или макрофункцией
Код
=ВЫЧИСЛИТЬ(ПОДСТАВИТЬ(Лист1!A2;" ";"+"))
Изменено: buchlotnik - 05.04.2020 14:16:30
Соблюдение правил форума не освобождает от модераторского произвола
 
СПАСИБО!
 
В точности, как автор просит - суммируем ЦИФРЫ:
=СУММ((ДЛСТР(A2)-ДЛСТР(ПОДСТАВИТЬ(A2;{1;2;3;4;5;6;7;8;9};)))*{1;2;3;4;5;6;7;8;9})
swetlana, Вы понимаете, чем отличаются цифры от чисел?
 
имею представление)
 
ВСЕМ СПАСИБО ЗА ПОМОЩЬ!
 
Суммируем числа:
=СУММ(--ПСТР(ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";99));{0;1;2;3}*99+1;99))
 
vikttur, а цифры вааще складывтать незя! Точнее если складывать то конечно получаются числа, но не сумма :-)
По вопросам из тем форума, личку не читаю.
 
Это уже третий вариант решения - то же, что и в ячейке, но без пробелов  :)
 
Цитата
buchlotnik написал:
макрофункцией
Хиленькая макрофункция какая-то.
Так лучше будет:
Код
Function SumDigits(x As Variant) As Long
    Dim n As Long, Symbol As String
    For n = 1 To Len(CStr(x))
        Symbol = Mid(x, n, 1)
        If Symbol Like "#" Then SumDigits = SumDigits + CLng(Symbol)
    Next n
End Function
 
Evgenyy, макрофункция и UDF - это разные понятия.
И не стоить обращаться к функции в цикле. Функция должна получать значение после получения результата (или при получении)
 
Цитата
Evgenyy написал:
Хиленькая макрофункция
предложите лучше
Цитата
Evgenyy написал:
Так лучше будет
во-первых, это UDF, во вторых - не решает поставленную задачу (см. #3)
Соблюдение правил форума не освобождает от модераторского произвола
 
Цитата
vikttur написал: макрофункция и UDF - это разные понятия
И понятия разные и функционал. Что Вы будете делать макрофункцией с неразрывными пробелами (или ещё какими-либо символами) между цифрами?

Цитата
buchlotnik написал: не решает поставленную задачу
Почему же не решает. Тема обозначена как "Суммирование цифр в одной ячейке", а не чисел. Модераторы пусть меняют название темы.
Если ТС не различает понятия цифр и чисел - это его проблема.
Изменено: Evgenyy - 05.04.2020 18:05:44
 
Цитата
Evgenyy написал:
с неразрывными пробелами (или ещё какими-либо символами)
ещё раз для особо одарённых - см. #3
Соблюдение правил форума не освобождает от модераторского произвола
 
Код
=СУММПРОИЗВ(--ЛЕВБ(ПРАВБ(A2;3*СТРОКА($1:$4));3))
Алексей М.
 
Цитата
Evgenyy написал: Что Вы будете делать макрофункцией с неразрывными пробелами (или ещё какими-либо символами) между цифрами?
Chr()
Страницы: 1
Наверх