InputBoxからの掛け算

InputBoxに【計算式を入力してください　例)3*5】、そのあとMsgBoxにその答えを【答えは～】と表示させるには、どうプログラミングすればいいですか？

Sub 電卓()
henji = InputBox("計算式を入力してください 例)3*5")
MsgBox a
End Sub

というところまでは何となくわかるのですが、これに何を足せばいいのでしょうか？

教えてください、お願いします。

No.2 ベストアンサー 回答者： hotosys 回答日時： 2009/01/12 02:10

とりあえず以下では？

Sub 電卓()
Dim sc As Object
Dim henji As String
Dim a As String
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"

henji = InputBox("計算式を入力してください 例)3*5")
a = sc.Eval(henji)
MsgBox a
End Sub

この回答へのお礼

hotosysさんへ
【InputBoxからの掛け算】について質問させていただいた者です。
hotosysさんに教えていただいたように打ち込んでみたら、完璧に出来ました!!本を読んでもよく分からず、本当にどうしようかと困っていたので、とても助かりました!!
こんなに早くお返事をいただけるとは思っていなかったので、とても助かりました。
本当にありがとうございました!!

お礼日時：2009/01/12 10:10

No.1 回答者： hana-hana3 回答日時： 2009/01/11 21:46

＞これに何を足せばいいのでしょうか？

文字列の操作を知らないとかなり面倒ですよ。
数値入力、演算記号入力、数値入力、と３回に分けて入力を受け取る方が簡単かと思います。

この回答へのお礼

hana-hana3へ
【InputBoxからの掛け算】について質問させていただいた者です。
ご回答ありがとうございました。
無事、完成することができました。

お礼日時：2009/01/12 10:12