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

[oldjoe]

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

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

извиняюсь, не подскажите как именно воспользоваться вот предложенным кодом от mr.doober??
я в исходный текст листа вставляю, а на листе то чего делать? как суммировать числа из массива? какую функцию-то юзать? :noob:

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

[ZORRO2005]

oldjoe,
см. вложение

[doober]

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

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

Добавить любой знак между записью ячеек.Об этом случае и не подумал

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

[DV68]

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

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

Ну тогда для того примера формула массива =):

=СУММ(ЕСЛИ(ДЛСТР(МУМНОЖ(ЕСЛИ(ЕОШ(--ПСТР(A2;СТРОКА($1:$13);СТОЛБЕЦ($A$1:$M$1)));0;
--ПСТР(A2;СТРОКА($1:$13);ТРАНСП(СТРОКА($1:$13))));СТРОКА($1:$13)))=2;10;
ЕСЛИ(ЕОШ(-ПСТР(A2;СТРОКА($1:$13);1));0;--ПСТР(A2;СТРОКА($1:$13);1))))

[ZORRO2005]

DV68,
Не сочти за придирку,но если в ячейке есть трёхзначные и более числа?
Думаю универсальную формулу придумать без доп. ячеек нельзя.

[DV68]

Так я ж написал,

для того примера

.
А придумать можно, если сильно постараться.

[oldjoe]

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

oldjoe,
см. вложение

it works!!
юхууу!
гратц

я просто запихивал код в код листа. а так получается что для всех листов это и работает!

[DV68]

Прошу прощения, вчера влез не по теме (был "немного" нетрезв).

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

Пользовательской функцией удобней, только ради интереса сделал одной формулой:

[ZORRO2005]

DV68,
СУПЕР!!!
Моё уважение!

[vikttur]

Да уж, DV, порадовал! Я крутил-вертел - забросил, не получилось.