Question

Помогите даю 100 баллов!

Answer 1

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. После нужно сохранить книгу с поддержкой макросов, это обязательно.

Пример использования ниже:

Answer 2

Спасибо за лучшее!

Answer 3

Я ввел как ты написал и оно пишет ошибку ( в этой формуле была обнаружена ошибка)

Answer 4

Оно пишет macro name

Answer 5

Какую конкретно ошибку? Как использовали? Макрос точно сохранили?

Answer 6

Если Вам не сложно...Помогите мне тоже, пожалуйста.... Я Вас оочень прошу...( https://znanija.com/task/30950478