1

我正在尝试使用 Libre Office Basic 为 Libre Office Calc 编写用户定义的函数，该函数将 Goal Seek 作为函数运行，而不是我去菜单并单击。

我想要做的是传递一个单元格作为公式的第一个参数，第二个参数是我想要设置公式的值，第三个参数是包含要操作的变量的单元格.

因此，例如，我想在 calc 中输入单元格 A3，=GSeek2(A1,5,A2)其中 A1 包含=A2 + 1，A2 从 0 开始，并且 A3 等于 4。

我认为要操作的公式和单元格需要通过Goal Seek函数作为地址传递，但我不确定。我尝试了以下代码，但我不断收到“基本语法错误。意外符号：目标。” 有人知道我要去哪里错了吗？

Function GSeek2(Form As Range, Target as Double, Var as Range)

    Form = Form.Address
    Var = Var.Address

    With Worksheets("Sheet1")
        GSeek2 = .Range(Form).GoalSeek _
        Goal:=.Value(Target).Value, _
       ChangingCell:=.Range(Var)
    End With

End Function
4

0 回答 0