vba - 支持返回函数

Question

我在 VBA 上的返回功能上遇到了一些麻烦，希望有人能够帮助我解决这个问题。

这是功能：

Function Hypotenuse(side1 As Double, side2 As Double) As Double
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

问题摘要：

• 返回函数以“红色”突出显示，我无法运行任何调用该函数的子例程（见附图）
• 很确定代码是正确的，但我只是不明白为什么我不断收到错误

知道为什么会发生这种情况吗？

任何帮助都感激不尽 ：）

标签： vbareturnreturn-value

Answer 1

Use Sqr function .. and no Return keyword in VBA

Sub Test()
    Debug.Print Hypotenuse(5, 3)
End Sub

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Hypotenuse = Sqr((side1 ^ 2) + (side2 ^ 2))
End Function