libreoffice - Libre Office Basicのユーザー定義関数でのゴールシーク

Question

Libre Office Basic を使用して、メニューに移動してクリックする代わりに、Goal Seek を関数として実行する Libre Office Calc のユーザー定義関数を記述しようとしています。

私ができるようにしたいのは、セルを数式の最初の引数として渡し、2 番目の引数を数式に設定したい値に、3 番目の引数を操作する変数を含むセルに渡すことです。 .

=GSeek2(A1,5,A2)したがって、たとえば、A1 が含まれ=A2 + 1、A2 が 0 から始まり、A3 が 4 に等しいcalc のセル A3 に入力したいとします。

数式と操作対象のセルをアドレスとしてゴールシーク機能に通す必要があると思いますが、よくわかりません。次のコードを試してみましたが、「BASIC 構文エラー。予期しないシンボル: ゴール」というメッセージが引き続き表示されます。私がどこで間違っているか知っている人はいますか？

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