Excel VBAでワークシート関数の「ISEVEN」を使って、値が偶数かどうかを判断する記録です。
下図はExcel2016です。
< スポンサーリンク >
構文
WorksheetFunction.IsEven(Arg1)
値の種類をチェックし、その値が偶数であるかどうかに応じて、TrueまたはFalseを返します。戻り値はブール型(Boolean)です。
Arg1=必須。値。テストする値を指定します。引数には、空白セル、エラー値、論理値、文字列、数値、セル参照、または対象となるデータを参照する名前を指定できます。
値が偶数かどうかを判断する例
アクティブシートのB2のセルが偶数かどうかをメッセージで表示します。
Sub test()
MsgBox WorksheetFunction.IsEven(ActiveSheet.Range(“B2”))
End Sub
アクティブシートのB3のセルが偶数かどうかをメッセージで表示します。
Sub test()
MsgBox WorksheetFunction.IsEven(ActiveSheet.Range(“B3”))
End Sub
D列のセルが偶数かどうかをE列に入力します。
Sub test()
Dim ws As Worksheet
Dim i As Long
‘変数にアクティブシートをセット
Set ws = ActiveSheet
‘E列にD列が偶数かどうかを入力
With ws
For i = 2 To 6
.Cells(i, 5).Value = WorksheetFunction.IsEven(.Cells(i, 4))
Next i
End With
End Sub
VBAではなく、ワークシートのセルに関数を書き込む場合はこちら↓
Excelで数値が偶数かどうかをISEVEN関数を使って調べる方法を記録します。 ISEVEN関数 数値が偶数のとき「TRUE」を返し、偶数ではないとき「FALSE」を返します。 ISEVEN(数値) 数値=必須。数値が …
こんな記事も書いています