Как вызвать пользовательскую функцию в коде?

Question

Я создал пользовательскую функцию.Я пытаюсь вызвать его в своем макросе.

Когда код достигает строки с моей функцией, я получаю сообщение об ошибке выполнения

'438': объект не поддерживаетэто свойство или метод?

Function SMM(incentivebeta As Double, agebeta As Double, intercept As Double, incentive As Double, age As Double) As Double

    SMM = 1 / (1 + Exp(-(intercept + incentivebeta * incentive + agebeta * age)))

End Function

Private Sub btnSimulate_Click()
    Dim counter As Long
            For counter = 1 To 360
                ws.Range("start").Offset(counter, 7).Value = WorksheetFunction.SMM(1, 2, 3, 4, 5)

Answer 1

Объект, который "не поддерживает это свойство или метод", равен Worksheet Function, а метод, который он не поддерживает, - SMM.Вы определили эту функцию, но это не значит, что определенная вами функция теперь является функцией рабочего листа.Просто используйте SMM вместо WorksheetFunction.SMM.

Кроме того, как указывает студент Гэри, вы получите несвязанную ошибку, если ws не установлен правильно.

Answer 2

У вас нет ни Dim 'ed, ни Set варианта листа ws.

(могут быть другие ошибки в вашем коде.)