奇数と偶数を判定」といった検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。Applications)で奇数・偶数の判定を行う方法・マクロを探している方による検索です。[スポンサードリンク]奇数・偶数判定はModを使って2で割った余りを調べる参考になりそうな簡単なマクロをサンプルとしてご紹介しておきます。「アクティブセルの数値は偶数です。」または「アクティブセルの数値は偶数です。」というメッセージが表示されます。Modというのは、割り算の余りを求める演算子です。「アクティブセルの値を2で割った余りを求めよ」という計算になります。ActiveCell.Valueを2で割り算した余りを調べ、余りが「0」なら偶数、余りが「0」でなければ奇数と判定しています。Base)には「数値が偶数か奇数かを判断するマクロ」が掲載されています。Thenというコードで奇数・偶数の判定を行っています。95)の時代に書かれたもののようで、最近のExcelの場合、このコードのままでは動かないはずです。WorksheetFunction.IsEven(Counter)と修正してください。VBAでワークシート関数を使う場合、WorksheetFunctionプロパティでWorksheetFunctionオブジェクトを取得して、そのメソッドとして利用するようになっていますので。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。(2019.01.08)Elseに対応するIfがありません。