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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[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 (29.5 Kb)
 
Ответить
Сообщение[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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4491
Репутация: 1115 ±
Замечаний: 0% ±

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


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМожно макрофункцией ВЫЧИСЛИТЬ()
Автор - AlexM
Дата добавления - 11.09.2016 в 16:52
sv2014 Дата: Воскресенье, 11.09.2016, 17:12 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 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 (32.0 Kb)


Сообщение отредактировал 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 из 1
  • 1
Поиск:

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