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

[IgorGO]

DV68, очень достойно!!!
с есть смысл обьявить как =строка(двссыл("1:" & макс(длстр(данные))))
данные - понятно, ссылка на массив данных.
Я парюсь весь массив сосчитать. не выходит не фига, но мысль не оставляет.
высмотрел в формуле два замечальных приема, пригодятся...
еще раз, DV68, мое почтение! молодец!

[R Dmitry]

Function Сумматекст(Диапазон As Range, Условие As Boolean) As Double
arr = Диапазон.Value
Dim str$, a$, b As Double, c As Double, i&, j&, x&
For x = 1 To Диапазон.Columns.Count
For i = 1 To UBound(arr)
str = arr(i, x)
    For j = 1 To Len(str)
     If Условие = False Then
            If IsNumeric(Mid(str, j, 1)) Then
                a = Mid(str, j, 1)
                c = c & a
                Else
                b = b + c: c = 0
            End If
     Else
        If IsNumeric(Mid(str, j, 1)) Then b = b + Mid(str, j, 1)
    End If
    Next j
b = b + c
c = 0
Next i
Next x
Сумматекст = b
End Function

В условии если 0 то 20+20 если 1 то 2+0+2+0
до кучи

[vikttur]

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

с есть смысл обьявить как =строка(двссыл("1:" & макс(длстр(данные))))

Так летучая же, зараза
Думаю, именно поэтому автор использовал ИНДЕКС.

[ZORRO2005]

Чтобы переделать формулу DV68 под диапазон схитрил с именами.

[IgorGO]

Виктор, это =строка(двссыл("1:" & макс(длстр(данные)))) не летает, тут констатнта. Дело не в индексе, просто у DV68 с = {1:2:3:4...256}, а в предлагаемом варианте с={1:2:3:4...до максимальной длины строки}, а не до 256. данные все обрабатываются, и пошагово можно хоть что-то высмотреть и, наконец, (несущественный аргумент) меньше вычислений.

[vikttur]

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

это =строка(двссыл("1:" & макс(длстр(данные)))) не летает, тут констатнта.

Не согласен. Мало того, что ДВССЫЛ летуча, она еще и "недоделана", имеет много ограничений.

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

просто у DV68 с = {1:2:3:4...256}, а в предлагаемом варианте с={1:2:3:4...до максимальной длины строки}, а не до 256.

Не согласен.
ИНДЕКС($A$1:$A$255;ДЛСТР(A2)) тоже выдает число ДЛСТР, а
$A$1:ИНДЕКС(...) диапазон с 1 до ДЛСТР.

[IgorGO]

а вот теперь я не согласен.
куда улетит =строка(двссыл("1:1"))?
куда ее не пиши, куда не копируй везде результат будет 1.
соответственно строка(двссыл("1:" & макс(длстр(данные)))) это всегда и везде будет множество от {1:2:3 ... до "максимальной длины строки в данных"}.

я писал об имени "с". можешь соглашаться, можешь нет - открой файл сумма_цифр и посмотри что возвращает "с".
ИНДЕКС($A$1:$A$255;ДЛСТР(A2)) перестанет летать и вернет тоже о чем я говорю, если так написать ИНДЕКС($A$1:$A$255;ДЛСТР($A$2)). вот на это я обратил внимание только сейчас.
вот так:
=строка(двссыл("1:" & длстр($A$2)))
=строка(ИНДЕКС($A$1:$A$255;ДЛСТР($A $2)))
результат один и тот же и ничего не летает.

ну, за стабильность!!!

[vikttur]

Мы о разном?
Летучая функция - та, которая пересчитывается не только при изменении влияющих ячеек, но и при каждом изменении на листе.
ДВССЫЛ летуча, ИНДЕКС нет.

[DV68]

Привет. Наконец-то эта безумная (для меня) рабочая неделя закончилась. Можно и в форум окунуться
Всем спасибо за добрые слова.
ZORRO, молодец! Я честно говоря даже не пробовал делать для диапазона, думал невозможно. Рад, что ошибался.

P.s. А что, на форуме человеку можно только один раз добавить отзыв? Семерым попробовал, ни одному не получилось(

[IgorGO]

это чтобы "кумовства" не разводили, а то появляется гипотетическая возможность немеряно накрутить рейтинг другу
хорошо что мы понимаем друг друга и оцениваем не "репутациями", а ответами. а возникающие диспуты - только оттачивают мастерство.
DV68, два нестандартных приема в одной формуле - это круто и оценено было именно это. уверен задачку эту многие крутили...
Исходя из народной мудрости: "настроить можно что угодно, если достаточно долго крутить это в руках".
А вообще, лично я больше всего у местных программистов научился. SAS888, EducatedFull, Doober - респект! Отвечайте - многим полезно, не только тем, кто спросил