Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3741 / 13645 ツリー ←次へ | 前へ→

【60408】数字の認識について たつ 09/2/20(金) 10:53 質問[未読]
【60411】Re:数字の認識について Blue 09/2/20(金) 11:28 回答[未読]
【60412】Re:数字の認識について たつ 09/2/20(金) 13:08 お礼[未読]

【60408】数字の認識について
質問  たつ  - 09/2/20(金) 10:53 -

引用なし
パスワード
   こんにちは、
どうしても、分からないことがあり、アドバイスをお願いしたいと思いまして投稿しました。

現在、[テキストボックス1] と[テキストボックス2] と[テキストボックス3]がフォーム上にあります

[テキストボックス1] には 最小値MIN の値
[テキストボックス2] には 最大値MAX の値 が入っており、
[テキストボックス3] には 測定した値を入力する といったフォームを作成してます

そして、最小値から最大値の間以外の数字(測定値)を入力すると、
メッセージボックスで、[測定規格外です]というメッセージを出す。といったものを作りたいのですが、どうしても、最小値を[9.00] にして、 最大値を[10.00]にすると、規格範囲内の数字を入れても、[測定規格外です]と出てしまいます。

しかし、最小値を[9.00]最大値を[10.00]にしたときだけ、うまくいかないのです。
他の数字の場合はうまくいくのですが、原因がわかりません。

是非、アドバイスをお願いします

ちなみに、下記のコードを作成してます

If txtBox1.Value > txtBox3.Value Or txtBox2.Value < txtBox3.Value Then
Msgbox "測定規格外です"

end If

よろしくお願いします

【60411】Re:数字の認識について
回答  Blue  - 09/2/20(金) 11:28 -

引用なし
パスワード
   数値として比較しましょう。
小数点を扱うのであれば CDec で変換してください。

>If txtBox1.Value > txtBox3.Value Or txtBox2.Value < txtBox3.Value Then

If CDec(txtBox1.Value) > CDec(txtBox3.Value) Or CDec(txtBox2.Value) < CDec(txtBox3.Value) Then

ちなみに数値でない文字が来たらエラーになるので、
チェック処理かOn Error GoTo処理を入れるほうがよいでしょう。

【60412】Re:数字の認識について
お礼  たつ  - 09/2/20(金) 13:08 -

引用なし
パスワード
   ▼Blue さん:

ありがとうございます

おかげさまで、ずっと悩んでいた問題が解決しました。

3741 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free