奇数・偶数の判断 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 回答日時： 2012/07/23 22:36

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

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がキーワードのようですね。

お礼日時：2012/07/24 19:28

No.3 回答者： mu2011 回答日時： 2012/07/24 10:50

一例です。

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

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
と言う方法もあるのですね。


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

お礼日時：2012/07/24 19:29

No.2 回答者： TYWalker 回答日時： 2012/07/23 22:36

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

小さくなっていれば奇数です。

この回答へのお礼

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

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

お礼日時：2012/07/24 19:28