何がしたいのかというと
というように、セルA1にxの文字式を書いてそれを、他のセルで計算するときに使いたいのです。
やり方ですが、こんなマクロを書きます↓(マクロについてはこの辺に記事が)
第一引数(数式文字列)に含まれる第二引数(変数文字列)を第三引数(変数の代入値)で置換した後、評価するという非常に単純な関数です。
Public Function calc1(funcStr As String, varName1 As String, var1 As Variant) As Variant
Dim replacedFuncStr As String
replacedFuncStr = Replace(funcStr, varName1, Str(var1))
calc1 = Evaluate(replacedFuncStr)
End Function
ワークシートのほうはこんな感じに書きます↓
| A | B | C |
1 | x+2 | 3 | =calc1(A1,"x",B1) |
計算されたワークシートは
となります。データ整理で同じ数式を使いまわしたいときに、使ってみてください。
ちなみに、変数が二つの数式を使いたいときは、こん風にします↓
Public Function calc2(funcStr As String, varName1 As String, var1 As Variant, _
varName2 As String, var2 As Variant) As Variant
Dim replacedFuncStr As String
replacedFuncStr = Replace(funcStr, varName1, Str(var1))
replacedFuncStr = Replace(replacedFuncStr, varName2, Str(var2))
calc2 = Evaluate(replacedFuncStr)
End Function
P.S.
単純に "x" を置換だと数式中の関数名に "x" が含まれていた場合まずいですね。
単語単位で置換しなければ・・・、後で改良しましょうか。 ]]>