相対セルで返す式をExcelに変換する

Question

私のExcelで2枚のワークシートがあり、最初のシートではドロップダウンリストから計算方法を選択して計算用の変数を入力できます（青色の列は緑色のセルいくつかの一定数）。結果のエントリは、2番目のワークシート（データベース）から対応する計算式を検索し、シートに式を貼り付ける1、データベースのセルの代わりにシート1のセルを使用して計算する式が必要です。

現在私は、以下のように評価呼び出されるユーザ定義関数を作成した：私は計算式からの細胞を使用する結果を取得するVLOOKUP :=Eval(VLOOKUP(A3,Database!A2:E10,5,FALSE))と評価を組み合わせることによって

Function Eval(ref As String) 
    Eval = Application.Evaluate(ref) 
End Function 

私のデータベースでは、計算中に計算式がシート1のセルを取る結果をどのように得ることができますか？

Answer 1

1つの簡単な方法は、このような1 CHOOSE内のすべての数式を使用することです：

Public Function eval(ref As String) 
    eval = Application.Caller.Parent.Evaluate(ref) 
End Function 

これは保証します：別のようApplication.Callerを使用することです

=IFERROR(CHOOSE(SUMPRODUCT(MATCH(A2,"Calculation "&ROW($1:$9),0)),B2*C2*D2,B2*C2-D2,B2+C2-D2,B2^2-C2+D2,B2*D2-C2^2,B2+C2*D2,B2*C2-C2*D2,B2-D2-C2*D2,C2-D2*B2),"") 

---

主参照者として使用する発信者の親（eval()の式を持つシート）の使用。

編集
「行」は数式では静的であることに注意してください。 「計算4」は5行目を使用します（最初のシートの数式の行は使用しません）。すべての行番号が##（または一意の識別子何でもあなたが好き）に変更する必要がありますが

=Eval(SUBSTITUTE(VLOOKUP(A3,Database!A2:E10,5,FALSE),"##",ROW())) 

：このためには、のようなものを使用することができます。そして、「計算1」は次のようになります。あなたはまだ、ちょうど:)