Public Function UserFunction(items As Variant) As Integer
Dim result As Integer
For Each Item In items
If Item < 0 Then
result = result + (Item * Item)
End If
Next Item
UserFunction = result
End Function
Этот код вставляется как новый модуль, Alt+F11, Insert -> Module. После нужно сохранить книгу с поддержкой макросов, это обязательно.
Пример использования ниже:
