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

由于某些原因，自定义函数似乎没有在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

---

将您的功能更改为：

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

---

不，仍然返回0。不知道是否必须重新安装excel maybeTry

Testthisout=number*number

。您的问题是您没有将

结果

分配给函数的返回值。非常感谢-事后看来很明显，但错过它时会非常沮丧！