将公式从电子表格单元格导入到VBA代码中

Question

首先，我很抱歉我的无知。我在编码方面很差，我可能不会理解复杂的解释，所以请耐心点。

我想要做的是从电子表格中的单元格中提取公式，并在VBA代码中使用它。假设，我有一个单元格(2，1)，它包含以下文本："x^2-6*x+15“。

现在，我想用VBA编写一个名为"f“的函数，它根据单元格(2，1)的值计算结果。例如，如果我写了"=f( 1)“，它会写10，但是如果我把单元格(2，1)中的公式改为，例如，"x^3-x^2+ 17 "，它会重新计算并写出17，这样的情况可能吗？

Answer 1

我们将给出f-function的两个论点：

包含string-formula

• the值"x"

的单元格

标准模块中的代码：

Public Function f(rng As Range, v As Variant) As Variant
    Dim sFormula As String
    
    sFormula = Replace(rng.Value, "x", v)
    f = Evaluate(sFormula)
End Function

例如：

​

​