Не работают формулы

[Estimate]

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

Возникла проблема с Excel и VBA. Ввожу простой код в VBA:

Function SumArray(List) As Double
    Dim Item As Variant
    SumArray = 0
    For Each Item In List
        If WorksheetFunction.IsNumber(List) Then _
            SumArray = SumArray + Item
    Next Item
End Function

Переменная List задумывается, как матрица (да и вообще любой массив). Но формула, когда пытаюсь ее применить, выдает ошибку VALUE (ЧИСЛО). Не пойму почему. Это пример из книги, все должно работать.

Могут ли быть какие то причины? Я делаю что-то не так, или надо в Excel что-то настроить? Заранее большое спасибо!

[IgorGO]

или надо в Excel что-то настроить?

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

Function SumArray(List) As Double
    Dim Item As Variant
    SumArray = 0
    For Each Item In List
        If WorksheetFunction.IsNumber(Item) Then _
            SumArray = SumArray + Item
    Next Item
End Function

[IgorGO]

извините, и еще один глупый вопрос, а чем плоха встроенная функция СУММ.
пишите в ячейке вместо SumArray(...) СУММ(...) - получите тот же результат

[Estimate]

Да, опозорился =) Неправильно копировал пример.

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

извините, и еще один глупый вопрос, а чем плоха встроенная функция СУММ.
пишите в ячейке вместо SumArray(...) СУММ(...) - получите тот же результат

Просто учебный пример, читаю книжку по VBA.

В проблема изначальная возникла с таким кодом:

Function Name(V)

    Name = UBound(V, 1)
    
End Function

Может и глупый вопрос, но почему он не возвращает верхнюю границу матрицы V?

[IgorGO]

уж кто-кто, а UBound отдает то, что его спрашивают Вы уверены, что правильно поняли назначение второго парметра?

[Hugo121]

Function Name(V)

    Name = UBound(V.Value, 1)
    
End Function

[Estimate]

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

уж кто-кто, а UBound отдает то, что его спрашивают Вы уверены, что правильно поняли назначение второго парметра?

Да, это "ось координат".

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

Function Name(V)

    Name = UBound(V.Value, 1)
    
End Function

Большое спасибо! Значит тут надо, как с объектом.

[IgorGO]

не знаю при чем там value, но если взять диапазон [a1:c5], то
ubound([a1:c5], 1) вернет 5 (индекс последедней строки в массиве), а
ubound([a1:c5], 2) вернет 3 (индекс последней колонки).

[Казанский]

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

не знаю при чем там value, но если взять диапазон [a1:c5], то
ubound([a1:c5], 1) вернет 5 (индекс последедней строки в массиве), а
ubound([a1:c5], 2) вернет 3 (индекс последней колонки).

Да. А так не сработает:

Function Name(V)
    Name = UBound(V, 1)
End Function

Sub test()
    Debug.Print Name([a1:c5])
End Sub

Потому что в первом случае компилятор "видит", что объект (диапазон a1:c5) не соответствует типу аргумента функции Ubound и разрешает противоречие, вставляя свойство по умолчанию Value. То есть фактически компилятор выдает код, соответствующий выражению
ubound(range("a1:c5").value, 1)

Во втором случае компилятору нет оснований считать, что V будет иметь неправильный тип, и непосредственно передает переменную V функции ubound. Возникает ошибка несоответствия типа.

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

Function Name(V)
    If TypeName(V) = "Range" Then
        Name = UBound(V.Value, 1)
    ElseIf IsArray(V) Then
        Name = UBound(V, 1)
    Else
        Name = CVErr(xlErrValue) 'ошибка "#ЗНАЧ!"
    End If
End Function

[IgorGO]

Казанский, спасибо!
дельное замечание. полезно для понимания и "общего развития".