VBA: Создание комментария к ячейке в определенной пользователем функции

Question

У меня есть UDF, который делает вычисления на основе набора входных переменных.Я пытаюсь заставить UDF создать комментарий к ячейке, который содержит информацию об этих переменных, но я просто получаю #VALUE!ошибка.

Это то, что я пытаюсь сделать:

Function profit(income As Single, loss As Single) As Single
Dim cell As Range
cell = ActiveCell

profit = income - loss

call create_comment(cell, income, loss)

End function

Вызов сабвуфера:

Private Sub create_comment(cell As Range, income As Single, loss As Single)

cell.ClearComments
cell.Addcomment "income =" & income & "loss =" & loss

End Sub

Вся помощь оценена!

Answer 1

Я изменил вашу функцию вот так

Function profit(income As Single, loss As Single, cell As Range) As Single
'Dim cell As Range
'cell = ActiveCell

profit = income - loss

Call create_comment(cell, income, loss)

End Function

И вы вводите активную ячейку при вызове функции вот так

=profit(1000,10,H10)