テキストボックス内の簡単な計算

質問

はじめまして、よろしくお願いいたします。

エクセル（2003）のマクロで質問です。

いくつか複数のテキストボックスが配置されています。
加算など簡単な計算をテキストボックス内で計算させていおいて、
最終的にボタンで、それら各々のテキストボックスに対応させた
エクセルのシートのセルに代入させようとしています。

さて、テキストボックス内で簡単な計算をさせるため、

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Evaluate(TextBox1.Text)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = Evaluate(TextBox2.Text)
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Text = Evaluate(TextBox3.Text)
End Sub

…

とさせましたが、
何も入力がないテキストボックスは
そのままなにもしなくていいよ、とさせたいですのですが、
上記のままだと、何もない（値が入力されていない）
テキストボックスに到達すると
止まります。

何も入力がないテキストボックスは
何もしなくていいよ、は
どうしたらよいでしょうか？

誠に不勉強で恐縮ですが
ご教授願います。

回答No.1

keithin · ベストアンサー

とりあえず「やりたいこと」をその通りにマクロにしてみます。

例えば：
＞何も入力がないテキストボックスは
＞そのままなにもしなくていいよ、とさせたい

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　if textbox1.text <> "" then
　　TextBox1.Text = Evaluate(TextBox1.Text)
　end if
End Sub

お礼

早速のご回答ありがとうございます。

IF …THEN　がありましたね！
うまくいきました！

今日一日悩んでいたのに、IFを使うと
まったく気づきませんでした。
勉強不足です。

本当に助かりました！
ありがとうございました。