エクセル|偶数か奇数か

数を2で割って余りが0なら偶数で、余りが1なら奇数ですよね。これはMod演算子を使用します。
Mod演算子は、2つの数値の除算を行いその剰余を返してくれるので、偶数と奇数の判定以外にもよく使用されています。

Sub Test()
Dim A As Long
A = 5
If A Mod 2 = 0 Then
  MsgBox “偶数です”
Else
  MsgBox “奇数です”
End If
End Sub

変数Aの値を変えて確認してください。