文字列で読み込んだ計算式で値を計算

VBAで数値と式を文字列で受け取り、式に従って値を返す関数を作成したいと考えています。
ex KEISANという関数に対し、値と計算式を与え結果を求める
A=50
B=80
C=10
SIKI="B+A-C"
KEKKA = KEISAN（A,B,C,SIKI)
KEKKAには、式に従い120が返る

このA～C及びSIKI(式)は外部ファイルから読み込みます。式には加算か減算しかありません。

どなたか、良いアイデアありましたら、教えて下さい。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/02/02 18:34

Public Function KEISAN(A, B, C, SIKI As String)

SIKI = Replace(SIKI, "A", CStr(A))
SIKI = Replace(SIKI, "B", CStr(B))
SIKI = Replace(SIKI, "C", CStr(C))
KEISAN = Evaluate(SIKI)
End Function


Public Sub test()
Dim A, B, C, SIKI As String, KEKKA
A = 50
B = 80
C = 10
SIKI = "B+A-C"
KEKKA = KEISAN(A, B, C, SIKI)
MsgBox KEKKA
End Sub

この回答へのお礼

サンプルコーディングありがとうございました。
活用させて頂きます。
ありがとうございました。

お礼日時：2006/02/03 09:14

No.2 回答者： Hayashi_Trek 回答日時： 2006/02/02 20:06

おそらく、変数名のＡ、Ｂ，Ｃ等も外部から与えられるのでしょう。

考え方だけ。
１．変数名と値を入れる配列hensuu(1,99)を用意します。
２．外部ファイルから１行読み込む。
３．文字列が"SIKI="で始まっているなら６に進む。
４．読み込んだ文字列をSplit関数を使って変数名と値に分離してhensuu(,)に格納する。
５．２に戻る。
６．Split関数を使って計算式の文字列を取り出す。
７．計算式に対して、hensuu(,)に格納されている変数名を値に置換する。（#1の解答を参考にしてReplace関数を使う）
８．格納した変数名の数だけ７を繰り返す。
９．#1の解答に様にEvaluate関数で計算させる。
１０．終わり

この回答へのお礼

ご想像の通り、変数は外部から与えられます。
アドバイスを参考に、チャレンジしてみます。
ありがとうございました。

お礼日時：2006/02/03 09:18