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

Вход

Регистрация

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

 

= Мир MS Excel/Вывести в одной ячейке сумму чисел из другой ОДНОЙ ячейки - Мир MS Excel

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

Excel 2003
Добрый день!
Подскажите, пож-ста, есть ли способ решить такую задачу. В одну ячейку вводятся числа. Можно через запятую, можно через плюс, можно через пробел...как скажете. А в другой ячейке нужна формула, которая суммирует эти числа. Или это нереально? Спасибо заранее.
Поисковиком искала ответ, не нашла.
 
Ответить
СообщениеДобрый день!
Подскажите, пож-ста, есть ли способ решить такую задачу. В одну ячейку вводятся числа. Можно через запятую, можно через плюс, можно через пробел...как скажете. А в другой ячейке нужна формула, которая суммирует эти числа. Или это нереально? Спасибо заранее.
Поисковиком искала ответ, не нашла.

Автор - natablonda
Дата добавления - 11.09.2016 в 12:50
Саня Дата: Воскресенье, 11.09.2016, 13:09 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1017
Репутация: 501 ±
Замечаний: 0% ±

XL 2010
[vba]
Код
Function СУММ_РАЗД(sVal As String, _
                   Optional sSep As String = " ") As Double
    Dim vArr, i As Integer, dRet As Double
    vArr = Split(sVal, sSep)
    
    On Error Resume Next
    For i = 0 To UBound(vArr)
        dRet = dRet + CDbl(vArr(i))
    Next i
    
    СУММ_РАЗД = dRet
End Function
[/vba]
К сообщению приложен файл: 6532418.xls(30Kb)
 
Ответить
Сообщение[vba]
Код
Function СУММ_РАЗД(sVal As String, _
                   Optional sSep As String = " ") As Double
    Dim vArr, i As Integer, dRet As Double
    vArr = Split(sVal, sSep)
    
    On Error Resume Next
    For i = 0 To UBound(vArr)
        dRet = dRet + CDbl(vArr(i))
    Next i
    
    СУММ_РАЗД = dRet
End Function
[/vba]

Автор - Саня
Дата добавления - 11.09.2016 в 13:09
natablonda Дата: Воскресенье, 11.09.2016, 15:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Саня, спасибо!
 
Ответить
СообщениеСаня, спасибо!

Автор - natablonda
Дата добавления - 11.09.2016 в 15:11
AlexM Дата: Воскресенье, 11.09.2016, 16:52 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3053
Репутация: 740 ±
Замечаний: 0% ±

Можно макрофункцией ВЫЧИСЛИТЬ()
К сообщению приложен файл: 4308403.xls(14Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМожно макрофункцией ВЫЧИСЛИТЬ()

Автор - AlexM
Дата добавления - 11.09.2016 в 16:52
sv2014 Дата: Воскресенье, 11.09.2016, 17:12 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
natablonda, добрый день,еще вариант функции uuu в C1

[vba]
Код
Function uuu#(t$)
    Dim i%
If InStrRev(t, ",") Then t = Replace(t, ",", ".")
With CreateObject("VBScript.RegExp") : .Pattern = "\d+\.?(?:\d+)?": .Global = True
   For i = 0 To .Execute(t).Count - 1: uuu = uuu + Val(.Execute(t)(i)): Next
End With
End Function
[/vba]
К сообщению приложен файл: 1332032.xls(32Kb)


Сообщение отредактировал sv2014 - Воскресенье, 11.09.2016, 18:58
 
Ответить
Сообщениеnatablonda, добрый день,еще вариант функции uuu в C1

[vba]
Код
Function uuu#(t$)
    Dim i%
If InStrRev(t, ",") Then t = Replace(t, ",", ".")
With CreateObject("VBScript.RegExp") : .Pattern = "\d+\.?(?:\d+)?": .Global = True
   For i = 0 To .Execute(t).Count - 1: uuu = uuu + Val(.Execute(t)(i)): Next
End With
End Function
[/vba]

Автор - sv2014
Дата добавления - 11.09.2016 в 17:12
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывести в одной ячейке сумму чисел из другой ОДНОЙ ячейки (Формулы/Formulas)
Страница 1 из 11
Поиск:

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