#ЗНАЧ при вызове функции из ячейки

[Plasmer]

Здравствуйте!

Помогите, пожалуйста, понять, почему не работает функция при вызове из ячейки

Апдейт: уже помогли, проще формулой

=СУММЕСЛИ(H2:H500;ТЕКСТ(J2;"00")&ТЕКСТ(K2;"00")&L2;G2:G500)

+ .FindNext в функции нельзя использовать, нужно искать по массиву

=====

Есть функция, которая ищет в столбце определенные строковые значения и возвращает сумму целочисленных значений из столбца справа.
Опциональные значения заданы для отладки.

Она работает, если ее вызывать из тестовой процедуры VBA, но выдает #ЗНАЧ, если вызвать ее из ячейки листа

Когда передаются значения, которым не соответствует ни одна строка(ничего не находится), в ячейке появляется 0.

Столбцы

PHP код:

Function СуммаПоКатегории(Optional pm As Integer = 7, Optional day As Integer = 1, Optional sf As String = "P") As Integer

Dim c As Variant, firstAddress As String

With Worksheets(1).Range("h2:h500")
    Set c = .Find(ПДС(pm, day, sf), LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            СуммаПоКатегории = СуммаПоКатегории + Range(c.Address).Offset(0, -1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Function

Function ПДС(pm As Integer, day As Integer, sf As String) As String

ПДС = IIf(pm< 10, "0" & pm, pm) & IIf( day < 10, "0" & day, day) & sf

End Function

Sub test()

Dim a As String
a = "Z"
MsgBox ("Сумма по категории" & a & ": " & СуммаПоКатегории(7, 1, a))

End Sub 


[IgorGO]

не вот так случайно предполагалось?

=СУММЕСЛИ((H2:H500=ТЕКСТ(J2;"00")&ТЕКСТ(K2;"00")&L2)*G2:G500)

[Plasmer]

IgorGO, так не заработало.

Пишет, что мало аргументов

Суммесли.xls

[IgorGO]

извините, ошибочка вышла...
примера нет, писал просто сюда, не проверялось, показалось вначале СУММПРОИЗВ, а не СУММЕСЛИ

[staniiislav]

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

IgorGO, так не заработало.

Пишет, что мало аргументов

Суммесли.xls

чет я не пойму что у вас не работает? посмотрите пример

[Казанский]

Может, у ТС Excel 2000 или более ранний? В этих версиях метод Range.Find не работает в функции листа. В ХР и более поздних работает:
http://forum.ixbt.com/topic.cgi?id=23:31148

[Plasmer]

staniiislav, у меня процедура тоже работает, мне нужно в ячейку заносить формулу

=СуммаПоКатегории()

и получать там число, а не #ЗНАЧ

Казанский, у меня 2007 Эксель. Спасибо еще раз за решение через формулу на cyberforum.ru, через vba получился гораздо более сложный велосипед)