Excel VBAでISODD関数を使ってセルの値が奇数かどうかを判断する

Excel VBAでワークシート関数の「ISODD」を使って、値が奇数かどうかを判断する記録です。

下図はExcel2016です。

< スポンサーリンク >





ISODD関数の書き方

WorksheetFunction.IsOdd(Arg1)

値の種類をチェックし、その値が奇数であるかどうかに応じて、TrueまたはFalseを返します。戻り値はブール型(Boolean)です。

Arg1=必須。値。テストする値を指定します。引数には、空白セル、エラー値、論理値、文字列、数値、セル参照、または対象となるデータを参照する名前を指定できます。

 

ISODD関数の使用例

アクティブシートのB2のセルが奇数かどうかをメッセージで表示します。

Sub test()
    MsgBox WorksheetFunction.IsOdd(ActiveSheet.Range(“B2”))
End Sub

VBAでisodd関数

VBAでisodd関数

  

アクティブシートのB3のセルが奇数かどうかをメッセージで表示します。

Sub test()
    MsgBox WorksheetFunction.IsOdd(ActiveSheet.Range(“B3”))
End Sub

VBAでisodd関数

VBAでisodd関数

  

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でisodd関数

VBAでisodd関数

 

VBAではなく、ワークシートのセルに関数を書き込む場合はこちら↓

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします