excel - 如何用VBA编写方程

Question

我是 VBA 新手，我不知道如何在 VBA 中输入以下方程，以便单元格 A1 可以更改 X 的值。X=0.5

这是我的 VBA 代码:

Sub Equation()

Dim x As Double
x = Range("A1").Value
Answer = Sqr(1 + x ^ 2) & (1 + (1) / Sqr(1 + x ^ 2))

MsgBox ("The Answer to the equation is " & Answer)
End Sub

Answer 1

您可以将模块插入到您的 VBA 项目中:

在那里写下下面的函数:

Function func(x As Double) As Double
    Dim result As Double

    result = x * Exp(Sqr(1 + x * x))
    result = result * (1 + 1 / (Sqr(1 + x * x)))
    func = result
End Function

然后在工作表中使用它，例如:=func(A1)

注意:^ operator doesn't work everywhere