■ 偶数か奇数か 数を2で割って余りが0なら偶数で、余りが1なら奇数です。 他にも方法はあると思いますが・・・ 変数Aの値を変えて確認して下さい。 Option Explicit Sub Test() Dim A As Long A = 5 If A Mod 2 = 0 Then       MsgBox "偶数です" Else       MsgBox "奇数です" End If End Sub ※Mod演算子 2つの数値の除算を行い、その剰余を返します。 (Excel2003ヘルプ参照)