奇数・偶数の判断 VBA

質問

Sub Macro1()
Dim i As Long
i = 1
For i = 1 To 10

If i = ？ Then '偶数ならと言うコード
MsgBox "偶数です"
Else
MsgBox "奇数です"
End If

Next
End Sub

ここまでは自分で作れたのですが、iが奇数か偶数かを判断するコードがわかりません。
ご教授よろしくお願いします。

回答No.1

keithin · ベストアンサー

やりようは幾らでもありますが、たとえば

sub macro1()
　dim i
　for i=1 to 10
　if i mod 2 = 0 then
　　msgbox i & " is even"
　else
　　msgbox i & " is odd"
　end if
　next i
end sub

他にも、WorksheetfunctionのOddとかEvenとか使ってみたり、単純に２で割り算した答えがどうかとか。

お礼

ご提示いただいたコードでうまく出来ました。
evenとoddがキーワードのようですね。

回答No.3

mu2011

一例です。
１ビット目がオンの場合は奇数、オフの場合は偶数です。

Sub Macro1()
Dim i As Long
For i = 1 To 10
If (i And 1) = 0 Then '偶数ならと言うコード
MsgBox "偶数です"
Else
MsgBox "奇数です"
End If
Next
End Sub

お礼

(i And 1) = 0
と言う方法もあるのですね。

こちらの方法でやって行きたいと思います。ありがとうございました。

回答No.2

TYWalker

iを２で割って、int関数を掛けて、また２倍した数が、iと同じなら偶数です。
小さくなっていれば奇数です。

お礼

「iを２で割って、int関数を掛けて、また２倍した数が、iと同じなら偶数」

この法則を覚えます。ありがとうございました。