как суммировать только числа из ячеек где есть текст?

[oldjoe]

Напр 3 ячейки:
10Вдр15Кор7Ад
1Нос2НосГ
4Бр19Кс4УхС

в четвертой банально нужна сумма цифр из этих трех(или более) ячеек
сумма только цифр

пс.:таких ячеек очень много, просто =сумм не работает никак, разбивать вручную все это по разным ячейкам чтоб эксель игнорировал те которые с текстом -адская маята!

хелп?

[ZORRO2005]

=СУММ((ДЛСТР(диапазон)-ДЛСТР(ПОДСТАВИТЬ(диапазон;{1;2;3;4;5;6;7;8;9};"")))*{1;2;3;4;5;6;7;8;9})

формула массива

[vikttur]

Красиво!

Но что нужно автору?

Сообщение от oldjoe

как суммировать только числа...

Сообщение от oldjoe

...банально нужна сумма цифр...

[ZORRO2005]

Если нужно сумму цифр только из ячеек с текстом, то нужно заменить диапазон на ЕСЛИ(ЕТЕКСТ(диапазон);диапазон)
vikttur, это не для Вас. Вам такие вещи не нужно объяснять.

[IgorGO]

нашлась формула (для суммирования цифр)
традиционно в теме написано:

как суммировать только числа

а в сообщении:

банально нужна сумма цифр из этих ячеек

разберем первое значение 10Вдр15Кор7Ад.
тут содержится три числа: 10, 15 и 7
тут содержится 5 цифр: 1, 0, 1, 5, 7
соответственно:
сумма чисел = 10 + 15 + 7 = 32
сумма цифр = 1+0+1+5+7 = 14
знаете от куда родом фраза "но это две большие разницы"

просто =сумм не работает никак

ошибочка вышла, именно с просто =сумм я и начал:

=СУММ(ЕСЛИ(ЕОШ(ЗНАЧЕН(ПСТР(дт;ТРАНСП(СТРОКА(ДВССЫЛ("1:" & МАКС(ДЛСТР(дт)))));1)));;ЗНАЧЕН(ПСТР(дт;ТРАНСП(СТРОКА(ДВССЫЛ("1:" & МАКС(ДЛСТР(дт)))));1))))

формула считает сумму цифр, находящихся между буквами массива. чтобы чуть сократить формулу массив с данными предварительно назван ДТ. к сожаление в 2003 это все работать отказалось - зашкалило количество вложенных функций.

[doober]

так.как ТК не определился.предлагаю по ячейкам ударить Regex
На выбор,либо цифры.либо числа

Function oNumbers(RNG As Range) As Double
Dim RegEx As Object
Dim ssl As String, S_Summ As Double
For n = 1 To RNG.Columns.Count
For m = 1 To RNG.Rows.Count
ssl = ssl & RNG.Cells(m, n)
Next: Next
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\D"
       ssl = .Replace(ssl, " ")
    End With
Set objRegEx = Nothing
  ssl = RTrim(LTrim(ssl))
      sl = Split(ssl, " ", -1)
     For n = 0 To UBound(sl)
     If sl(n) <> "" Then
     S_Summ = S_Summ + sl(n)
     End If: Next
  oNumbers = S_Summ
End Function
-----------------------------------------
Function Zifra(RNG As Range) As Double
Dim RegEx As Object
Dim ssl As String, S_Summ As Double
For n = 1 To RNG.Columns.Count
For m = 1 To RNG.Rows.Count
ssl = ssl & RNG.Cells(m, n)
Next: Next
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\D"
       ssl = .Replace(ssl, " ")
    End With
Set objRegEx = Nothing
  ssl = RTrim(LTrim(ssl))
     For n = 1 To Len(ssl)
      sl = Mid(ssl, n, 1)
     If sl <> " " Then
     S_Summ = S_Summ + sl
     End If: Next
  Zifra = S_Summ
End Function

[oldjoe]

Сообщение от IgorGO

нашлась формула (для суммирования цифр)
традиционно в теме написано:а в сообщении:
разберем первое значение 10Вдр15Кор7Ад.
тут содержится три числа: 10, 15 и 7
тут содержится 5 цифр: 1, 0, 1, 5, 7
соответственно:
сумма чисел = 10 + 15 + 7 = 32
сумма цифр = 1+0+1+5+7 = 14
знаете от куда родом фраза "но это две большие разницы"

ошибочка вышла, именно с просто =сумм я и начал:

=СУММ(ЕСЛИ(ЕОШ(ЗНАЧЕН(ПСТР(дт;ТРАНСП(СТРОКА(ДВССЫЛ("1:" & МАКС(ДЛСТР(дт)))));1)));;ЗНАЧЕН(ПСТР(дт;ТРАНСП(СТРОКА(ДВССЫЛ("1:" & МАКС(ДЛСТР(дт)))));1))))

формула считает сумму цифр, находящихся между буквами массива. чтобы чуть сократить формулу массив с данными предварительно назван ДТ. к сожаление в 2003 это все работать отказалось - зашкалило количество вложенных функций.

две огромные разницы
прошу прощение за формулировку
нужна сумма чисел конечно, 32 которая

просто после двух-часового поиска по инету в хелпе экселя и тут на форуме, в попытке найти как эксель может и может ли разделять в одной ячейке текст/чифры/числа/значения/проценты итд итп в голове попуталось. хехе

[DV68]

Приложите пример, максимально приближенный к реалиям. Тогда можно и подумать=)

[ZORRO2005]

doober,
спасибо за пользовательские функции.
Как подправить oNumbers(), чтобы правильно считала ячейки где в конце числа?
a12
3b
посчитала 123.

[oldjoe]

Сообщение от DV68

Приложите пример, максимально приближенный к реалиям. Тогда можно и подумать=)

да пример вот сойдет с теми тремя ячейками которые я наверху написал, главно способ какой