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

[Severny]

Разрешите продолжить тему, задав немного аналогичный вопрос.
В примере заключается суть вопроса.
Один счет-один магазин-одна сумма на оплату, которая может платиться несколько раз (опл.1, опл.2, опл.3, как правило не больше 3-х раз) Чем больше счетов (следовательно сумм, магазины=const) тем больше вправо растет таблица так как одна оплата совершается только в одну определенную дату.
По этому появилась идея записывать дату оплаты прямо в ячейку (формат записи выделен красным) с суммой дабы избежать диагонального роста таблицы, но как заставить Excel суммировать только деньги игнорируя дату в скобках?
Примечание не подходит так как таблица печатается для отчета и даты должны быть читаемые.
Если у кого есть идеи реализовать суммирование другим способом, с радостью выслушаю.

[Saintus]

хотел бы уточнить если кто знает может сможет помочь чтобы не только целые числа складывал но и дробные и ячеек с текстом..

[Alex252]

Добрый день, я меня небольшая проблема, с работой в excel
На форуме почитал что подобные темы были но разобраться сам не смог,
Смысл проблемы такой, суммировать все цифры любого числа в ячейке excel,
=сумм не работает. нужна формула или код vba. Пример: 123456,25250041=35

[Hugo121]

Получилось 40...

Function sumdigits(S As String) As Long
    Dim i As Integer
    For i = 1 To Len(S)
        If InStr(1, "123456789", Mid(S, i, 1)) Then sumdigits = sumdigits + --Mid(S, i, 1)
    Next
End Function

[ganzstarr]

уважаемые форумчане, а реально чтобы эта сумма чисел из ячеек где есть текст работала на android? пытался разными программами открыть, скорее всего недостаточно фунцкий знают эти мобильные офисы. про макросы вапще молчу! но ведь нам надо решение проблемы

[MCH]

Не знаю, как на счет андроида, но на OpenOffice работает:

=СУММПРОИЗВ((ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;{1;2;3;4;5;6;7;8;9};"")))*{1;2;3;4;5;6;7;8;9})

=SUMPRODUCT((LEN(A1)-LEN(SUBSTITUTE(A1;{1;2;3;4;5;6;7;8;9};"")))*{1;2;3;4;5;6;7;8;9})

[Юль]

Добрый день, помогите пожалуйста чайнику

[Юль]

Дано шт
1п5л =6
4 л 7 п =11
2п5 лев =7
2л 8 ПР =10
3пр3л =6
нужна сумма 40

числа могут быть 2 значными, например 23п 5л = 28

[Alex-76]

Добрый день.
Очень нужна помощь ибо не силён в этом никак.
Нужно сосчитать сумму чисел в ячейках строки, если в некоторых ячейках перед или после цифр стоят разные буквы. пример -
ф2 12мт v1 Fgh10 1 должно получится 26

[Oldy7]

Функция с примером ее применения:

Sub asd()
Dim txt$, aa#
txt = "a098dfger4563fgh23"
aa = NumExSum(txt)
End Sub
'---------------------
Function NumExSum(txt$) As Double
Dim a&, b&, nn$, ll&, c&, sum#
c = 0: nn = "#": ll = Len(txt): a = 1
If ll = 0 Then NumExSum = 0: Exit Function
Do
  Do Until Mid$(txt, a, 1) Like "#"
    a = a + 1
    If a > ll Then Exit Do
  Loop
  If a > ll Then Exit Do
  c = c + 1: nn = "##": b = 2
  Do While Mid$(txt, a, b) Like nn
    nn = nn & "#": b = b + 1
  Loop
  sum = sum + CDbl(Mid$(txt, a, b - 1)): a = a + b - 1
Loop While a < ll
If c > 0 Then NumExSum = sum Else NumExSum = 0
End Function