Home » エクセルマクロ・Excel VBAの使い方 » 条件分岐 » VBAで奇数・偶数判定を行う－Mod演算子

VBAで奇数・偶数判定を行う－Mod演算子

対象：Excel2003, Excel2007, Excel2010, Excel2013

「エクセルマクロ偶数判定」
「excel vba 奇数と偶数を判定」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。

Excel VBA（Visual Basic for Applications）で奇数・偶数の判定を行う方法・マクロを探している方による検索です。

［スポンサードリンク］

奇数・偶数判定はModを使って2で割った余りを調べる

参考になりそうな簡単なマクロをサンプルとしてご紹介しておきます。

Sub アクティブセルの奇数偶数判定を行う()
　Dim msg As String

　If ActiveCell.Value Mod 2 = 0 Then
　　msg = "偶数"
　Else
　　msg = "奇数"
　End If

　MsgBox "アクティブセルの数値は" & msg & "です。"
End Sub

いずれかのセルに数値を入力し、そのセルがアクティブな状態で上記のマクロを実行すると、
「アクティブセルの数値は偶数です。」
または
「アクティブセルの数値は偶数です。」
というメッセージが表示されます。

奇数・偶数の判定を行っているのは
　If ActiveCell.Value Mod 2 = 0 Then
の部分です。

Modというのは、割り算の余りを求める演算子です。

「ActiveCell.Value Mod 2」で、
「アクティブセルの値を2で割った余りを求めよ」という計算になります。

ActiveCell.Valueを2で割り算した余りを調べ、余りが「0」なら偶数、余りが「0」でなければ奇数と判定しています。

MicrosoftのKB（Knowledge Base）には「数値が偶数か奇数かを判断するマクロ」が掲載されています。

ワークシート関数のISEVEN関数を使った
　ValueIsEven = IsEven(Counter)
　If ValueIsEven = True Then
というコードで奇数・偶数の判定を行っています。

このコードは、Excel 7.0（Excel 95）の時代に書かれたもののようで、最近のExcelの場合、このコードのままでは動かないはずです。

もし最近のバージョンでこのコードを動かそうとするのであれば、
　ValueIsEven = IsEven(Counter)
の部分を
　ValueIsEven = WorksheetFunction.IsEven(Counter)
と修正してください。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 条件分岐 » VBAで奇数・偶数判定を行う－Mod演算子

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「条件分岐」の記事一覧