excel - 自定义函数在 Excel VBA 中不起作用

Question

出于某种原因，自定义函数似乎无法在 Excel 中运行。我创建了下面的简单函数，但无论它是用作工作表函数还是从过程中调用，它总是返回零作为值。有人知道我做错了什么或者我是否缺少某个设置？

  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

将您的功能更改为:

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