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