Excel VBA IF文で

Excel VBAのIF文で質問があります。
「ある数字とある数字を割ってその答えが整数
ならば」
というというふうに記述したいのですが「整数
ならば」というところの書き方がわかりません。

よろしくお願いします。

No.1 ベストアンサー 回答者： tommy-pie83 回答日時： 2006/07/23 13:20

割って答えが整数ならば…

つまり 余りが無いということでいいでしょうか？
それでしたら

最初の数字を A 次の数字を B としたとき

If A mod B = 0 Then

こんな感じですが…

この回答へのお礼

余りがないということです。
早速のご回答ありがとうございました。

お礼日時：2006/07/23 13:50

No.2 回答者： merlionXX 回答日時： 2006/07/23 13:20

Sub test()

x = 4
y = 2
a = x / y
If a = Int(a) Then
MsgBox "整数"
Else
MsgBox "少数"
End If
End Sub

この回答へのお礼

早速のご回答ありがとうございました。
希望通りのことができました。

お礼日時：2006/07/23 13:51