【Excel2003】 Textbox内の減算ができなくて困っています。

質問

Textbox内の減算ができなくて困っています。

TextBox3.Text = TextBox2.Text - 1000
（TextBox3.TextとTextBox2.Textは値）

というような式を実行したいのですが、エラーで実行できません。
助けてください。

回答No.2

Wendy02

こんばんは。

これは、VBのテキストに出てくるはずです。

簡単に書くと、

TextBox3.Text = Val(TextBox2.Text) - 1000

ということになります。
Textプロパティは、値としては、Variant 型になるので、演算は可能ですが、そこに、空白("")が入ると、計算が出来なくなりエラーが出ます。

しかし、上記のVal は、1,000 という値が、1 になってしまいます。

そこで、

If IsNumeric(TextBox2.Text) Then
　　TextBox3.Text = CLng(TextBox2.Text) - 1000
　Else
　　TextBox3.Text = 0
End If

とします。Value プロパティでも、これは同じです。

回答No.1

hana-hana3

＞TextBox3.Text = TextBox2.Text - 1000

"Text"というのは値を文字として取得・設定すると言うことです。

TextBox3.Value = TextBox2.Value - 1000
として下さい。