|
お世話になっています。
早速質問なのですが、
フォームないにテキストボックスが6個あり、テキストボックス1には、
数量、2には仕入単価、3には仕入金額、4には販売単価、5には販売金額
6には差益を表示したいのですが、数値以外の入力があった場合"-"を表示
させるようにしています。
Private Sub TextBox4_Change()
Dim l合計 As Long
l合計 = 0
If IsNumeric(TextBox4.Value) Then
l合計 = TextBox1.Value * TextBox4.Value
TextBox5.Value = l合計
Else
TextBox4.Value = "-"
TextBox5.Value = "-"
End If
If IsNumeric(TextBox4.Value) Then
l合計 = TextBox3.Value - TextBox4.Value
TextBox8.Value = l合計
ElseIf IsNumeric(TextBox5.Value) Then
l合計 = TextBox3.Value - TextBox4.Value
TextBox8.Value = l合計
Else
TextBox8.Value = "-"
End If
上記のようなコードを組んだのですが、空白など数値以外の入力をすると
エラーが発生してしまいます。
"-"が計算式の中に入ってしまっているためだと思うのですが、
Val()でくくってしまうと、コンマ編集している数字のため、
計算できなくなってしまいます。
何か良い方法はありますでしょうか??
|
|