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