VBAでの質問

質問

お世話になります。
range("a1")の値（数字）が偶数か奇数かを判別するには
どの様な方法がありますか？
お教え頂きたく宜しくお願い致します。

回答No.2

imogasi

こういうのもある。
ＶＢＥ画面で、ツールー参照設定ーatpvbaen.xlsにチェック
Sub test01()
For i = 1 To 6
If iseven(Cells(i, "A")) Then Cells(i, "B") = "偶数"
Next i
End Sub
結果
1
2 偶数
3
4 偶数
5
6 偶数

回答No.1

_rainman

こんな感じです。
「mod」をヘルプで確認してください。

Dim msg As String
If IsNumeric(Range("a1")) Then
　　If (Range("a1") Mod 2) = 0 Then
　　　　msg = "偶数"
　　Else
　　　　msg = "奇数"
　　End If
　　MsgBox msg
End If