сумма цифр целого числа

[mihsel]

Подскажите пожалуйста как, решить задачу:
дано целоэ число, пример - 26567883(восем цифр) как в екселе найти суму цифр 2+6+5+6+7+8+8+3 этого числа.
Спасибо!

[koma_grusha]

в excel есть возможность написать свои функции на vb

[Sasha_Smirnov]

А как же! Этим и воспользуемся:

Sub CipherSummator()
'показывает сумму цифр в активной ячейке (когда ввод в неё завершён)'

Dim stroka As String, cifra As String, i As Byte, summa As Integer

stroka = ActiveCell

        For i = 1 To Len(stroka)
            cifra = Mid(stroka, i, 1)
            If cifra Like "[1-9]" Then summa = summa + cifra
        Next

MsgBox "Сумма цифр в выделенной ячейке равна " & summa & "."

End Sub

Чтобы сработало, надо открыть приложенный файл (можно скачать) и нажать Alt-F8. Затем — двойной щелчок по имени программы.

[mihsel]

Число я розложил на цифры, но когда я подставляю их в другую формулу ЕСЛи то ничего не проичходит, если просто ввожу теже цифри вручную то все работает, как сделать штобы щиталось автоматически?

[IgorGO]

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

[mihsel]

Спасибо за формулу но при вводе нових данных она выдает #ИМЯ?

[IgorGO]

она выдает #ИМЯ?

в файле, который я выслал или в вашем?
если вы ходите, чтобы функция работала в вашей книге - скопируйте макрос, который я написал и выслал себе в файл.

[slan]

примерно так, хотя может быть и иначе

[mihsel]

Спасибо работает!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!