VBAの数値の判別方法について教えてください。

質問

毎度お世話になっております。
今回もVBAについて質問させてください。

以下の条件で数値を判別を行いたいのですがどうしても上手くいきません。

・0以上1000以下である。
・0.25の倍数である。

0以上1000以下である。
⇒if 0 < 数値 = True　and　数値 ＜ 1000 = True　
で判別できると思うのですが

・0.25の倍数である。
⇒この処理がどうも上手くいきません。
数値　=　1
判定　=　数値　mod　0.25
で判定が「0」であるかないかで判別を行うつもりでしたが
エラーになってしまいました。

何か良い方法がありますでしょうか？
ご教授願います。

回答No.2

soaikats · ベストアンサー

まずはVBAでのヘルプ参照方法から。
・調べたい語句（今回は"mod"）に
　カーソルがある状態でF1キーを押す。

ちなみに、回答例はこんな感じでしょうか。

・0以上1000以下
If ((数値>=0) And (数値<=1000)) Then
　(処理)
End If

・0.25の倍数
If (Cint(数値/0.25)<>(数値/0.25)) Then
　(処理)
End If

お礼

お返事が遅れてしまいました。

アドバイスありがとうございます。
Cint関数は初めて知りました。
このような判別の仕方は考えつきませんでした。
大変参考になりました。

ありがとうございました。

回答No.3

nda23

100倍してから25の剰余を求めれば良いのでは？
1000以下だから100倍しても整数(Long)としてオーバフローしません。
尚、実数（0.25など）では「剰余」という概念はありません。

回答No.1

tsukasa-12r

MODは整数しか扱えないということですよね？
数値X100 - INT(数値X100) = 0
かつ、
数値X100 MOD 25 = 0
かどうかで判定というのはどうでしょうか？