Сумма цифр числа...

[Dimak67]

Помогите пожалуйста,у меня такой вопрос:
Как нужно написать формулу, чтобы ексель посчитал сколько чисел имеется в диапозоне, сумма цифр которых равна какому-нибудь числу(например: 19)?

[EducatedFool]

Воспользуйтесь пользовательской функцией:

Function Числа_с_Суммой_Цифр(ByRef ДиапазонЯчеек As Range, ByVal СуммаЦифр As Long)
    Числа_с_Суммой_Цифр = 0
    Dim cell As Range, s As Long
    For Each cell In ДиапазонЯчеек.Cells
        txt = CStr(cell): s = 0
        If IsNumeric(cell) Then
            For i = 1 To Len(txt)
                ch = Mid$(txt, i, 1): If ch Like "#" Then s = s + Val(ch)
            Next i
        End If
        If s = СуммаЦифр Then Числа_с_Суммой_Цифр = Числа_с_Суммой_Цифр + 1
    Next cell
End Function

Пример во вложении:

[EducatedFool]

Можно даже сделать так, чтобы соответствующие ячейки подсвечивались.

Поизменяйте значение в ячейке B1 (количество цифр):

[Dimak67]

Спасибо! А можно это сделать с помощью стандартных формул?

[slan]

например, так:

[st.d]

EducatedFool,
а как сделать чтобы выделялись ячейки сумма которых равнялась бы заданному числу, но не в каждой ячейке суммировались значения,а в диапозоне. (B*:B**)