自定义函数不能在Excel VBA中使用

由于某些原因，自定义函数似乎不在Excel中运行。 我在下面创build了这个简单的函数，但它总是返回零作为一个值，无论它是作为工作表函数使用还是从过程调用。 任何人都知道我做错了什么，或者如果有什么地方我失踪的设置？

Public Function Testthisout(number As Double) As Double result = number * number End Function Public Sub TESTFUNCTION() Dim number As Double Dim result As Double Application.Volatile (True) number = 4 result = Testthisout(number) MsgBox result End Sub 

Answer 1

改变你的function：

 Public Function Testthisout(number As Double) As Double result = number * number Testthisout = result End Function