Надо реализовать ф-цию, возвращающую результат умножения всех чётных чисел прописанных во входном векторе функ - VBA

Узнай цену своей работы

Формулировка задачи:

Написал набросок, но код не пашет(. Пишет, что ошибка в 7 строке, но я не знаю как её исправить.

Решение задачи: «Надо реализовать ф-цию, возвращающую результат умножения всех чётных чисел прописанных во входном векторе функ»

textual
Листинг программы
Public Function chetniysum(Massiv As Range)
Dim s, arr()
arr = Massiv.Value
For Each s In arr
  If IsNumeric(s) Then 'проверяем евляется ли числом
     If s > 0 Then chetniysum = IIf(chetniysum, chetniysum, 1) * s
  End If
Next
chetniysum = IIf(chetniysum, chetniysum, "-")
End Function

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы