こちらは、対象のセル・変数などの数値をもとに割り算をした後の余りを求める関数となっています。

さらにMod関数を使用すれば、簡単に偶数または奇数の判別ができるので、ぜひ参考にしてみてください。
それでは見ていきましょう。

⬛︎こんな事ができるようになる！

・VBAのMod関数を使って割り算の余りを求めることができる
・Mod関数を使って偶数・奇数の数を数える方法を学ぶことができる

⬛︎忙しい人向けのコピペ用ソースコード

Sub 余りを求める()

Dim 数値1 As Integer
Dim 数値2 As Integer
Dim 余り As Integer

 数値1 = 対象のセル・変数1
 数値2 = 対象のセル・変数2
 余り = 数値1 Mod 数値2

MsgBox "割り算の余りは: " & 余り

End Sub

対象のセル・変数をカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてですMod関数」になります。
関数仕様としては下記の通りです。

⬛︎Modで割ったあとのあまりを求める

・通常の使用方法

Mod関数を通常の割り算の余りの求め方として使用する方法を紹介します。
下図の見本をご覧ください。

今回は数値1から数値2を割って、その余りを求めたいと思います。
では再度構文を見ていきましょう。

Sub 通常の使用方法()

Dim 数値1 As Integer
Dim 数値2 As Integer
Dim 余り As Integer

 数値1 = Cells(2, 3)
 数値2 = Cells(3, 3)
 余り = 数値1 Mod 数値2

 Cells(6, 3) = 余り 

End Sub

■Mod関数を使用した応用方法

ではMod関数を使用した応用方法を紹介します。

・偶数・奇数の数を数える

Mod関数を使って、指定した範囲内の偶数・奇数の数を数える方法を紹介します。
今回は「偶数」を数えてみます。
下図の見本をご覧ください。

C2からC7までにある数値の中で偶数の数を数えたいと思います。
そこで今回は「Mod関数」を応用して数えてみましょう。

偶数か、判別するためにはMod演算で２で割ったあまりを求めます。

つまり、「If 対象の数値 Mod 2 = 0  」で対象の値を2で割ったのち、その値が「0」か条件分岐します。
結果が「0」の場合は偶数なのでカウントアップをする仕組みです。

条件分岐は下記記事を参照してください。

では見本のソースコードを見ていきましょう。

Sub 偶数の数を数える()

Dim 偶数の数 As Integer
Dim i As Integer

偶数の数 = 0
For i = 2 To 7
　If Cells(i, 3) Mod 2 = 0 Then
　　偶数の数 = 偶数の数 + 1
　End If
Next i

Cells(13, 3) = 偶数の数

End Sub

それでは実行してみましょう。
結果はこのようになります。

対象範囲に偶数は「3」つあるので上手く機能していますね！

⬛︎よくあるエラーと対処法

・#DIV/0! エラー

 エラーの原因: MOD関数の除数がゼロの場合、このエラーが発生します。

 対処法: 除数がゼロにならないように確認してください。
            条件分岐などを使って、除数がゼロの場合にエラーを回避するような処理を追加することができます。

・#VALUE! エラー

 エラーの原因: MOD関数の引数に数値以外の値が含まれている場合、このエラーが発生します。
                     例えば、文字列やエラー値が引数として渡された場合です。

 対処法:: 引数の値が正しいデータ型かどうかを確認してください。
              数値以外の値が渡されないようにするか、適切なエラーハンドリングを行いましょう。

・#NUM! エラー

 エラーの原因: MOD関数の引数に無効な値が含まれている場合、このエラーが発生します。
                     例えば、非数値を含む引数や、非整数を除数として使用した場合です。

 対処法:: 引数の値が正しい範囲内にあるか、整数であるかを確認してください。
              引数に整数を使用するか、必要に応じて値を修正してください。

これらのエラーはMOD関数の使用時に注意が必要です。適切な値を使用し、エラーハンドリングを行うことで、正確な結果を得ることができます。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Mod 演算子 | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？
この記事では、VBAのMod関数を使って割り算の余りを求める方法と、偶数の数を数える方法について紹介しました。
Mod関数は、さまざまなシナリオで活用することができるので、ぜひ応用してみてください。

ぜひ活用してみてください。

それでは次回の記事でお会いしましょう。

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題8について

こちらはマクロVBAの初歩的な知識になります。

指定された範囲の偶数・又は奇数の個数を計算し、その結果を表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地D2/D5にセル番地A1からA10までの偶数または奇数の個数を表示する

動作説明

VBAを使用して、セル番地A1からA10までの値の中で偶数の個数を計算し、その結果をセル番地D2/D5に表示します。

具体的には、セル番地A1からA10までの値を順番に取得し、偶数であればカウントを増やします。

最終的にカウントされた偶数の個数をセル番地D2に表示、奇数をD5に表示する必要があります

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

取得した値が偶数であるかどうかを判定する条件分岐を使用します。

条件分岐はIf Thenを使用します。

割ったときの余りを計算する際にはMod演算を行います。
例えば「10 Mod ３」の場合、「10÷3」で答えの「1」が出力されます。

この構造を活用して、偶然か奇数か求めます。

・ヒントその2

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

・ヒントその3

偶数であれば、偶数の個数をカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

・ヒントその4 

最終的にカウントされた偶数の個数をセル番地D2/D5に表示するために、セルへの値の代入を行います。

例えば、指定セル = 入力したい文字で文字の入力が可能です。
これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

では回答を見ていきましょう！

・回答その①

上記のコードをVBAエディタに貼り付けて実行すると、
セル番地A1からA10までの値の中で偶数の個数がセル番地D2に表示されます。

その後総数の「10」から偶数の値を引くことで、セル番地D5に奇数を表示させます。

偶数か、判別するためにはMod演算で２で割ったあまりをもとめます。

つまり、「If cell .Value Mod 2 = 0  」で対象の値を2で割ったのち、その値が「0」か条件分岐します。
結果が「0」の場合は偶数なのでカウントアップをする仕組みです。

☟繰り返し処理の見本

・回答その②

回答その①と処理方法は同じですが繰り返し処理が異なります。

先ほどは「For Each」で繰り返し処理を行っていましたが、今回は「For Next」で繰り返し処理を行っています。

For Nextの見本は下記の通りです。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。
今回はFor Each文とFor Next文を使用しました。

割った後の余りを求める

偶数の個数を数えるためには、２で割った後の余りが「0」かを確認する必要があります。

そこで「Mod演算」を使用します。

使い方としては「出力＝割る対象　Mod 割る数」のように使用します。

条件分岐

セルの値が偶数かどうかを判定するためには、条件分岐の文法を理解する必要があります。
VBAではIf…Then…Else文やSelect Case文などが使用されます。

変数の操作

偶数の個数を数えるために、カウンタ変数を用意し、条件が成り立つ場合にカウンタを増やしていく必要があります。
変数の宣言や操作方法を理解する必要があります。

まとめ

この課題では、VBAを使用してセル番地A1からA10までの偶数・奇数の個数を数えるプログラムを作成しました。

ループ構造や条件分岐、変数の操作などの基本的な概念を活用して、問題を解決しました。
VBAを使ったデータの処理や操作を行う際には、これらの基本的な知識が役立ちます。


VBAを使うことで、Excelの操作を自動化したり、複雑な計算や処理を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題8となります。お疲れ様でした！

通常の割り算を行う際、余りがあればエクセルは小数点まで算出されますが
今回紹介するQUOTIENT関数を使用すれば小数点を切り捨てて整数のみ表示してくれます。

それでは見ていきましょう。

小数点以下の数値のみの取り出しについてはこちらから☟

■関数の仕組み

=QUOTIENT(分子,分母 )

■整数のみ表示する

では関数の使用方法を実際の見本を用いて説明したいと思います。
下図の見本をご覧ください。

B列に「分子」、C列に「分母」の数値があり、

E列は通常の割り算の結果を表示しています。

例えば3行目の数値を見てみましょう。
分子が「10」、分母が「2」となってます。なので結果は「10/2」で「5」になりますね。

では4行目を見てみましょう。
分子が「56」で分母が「3」になってます。通常の割り算の結果は「18.67」となります。
今回は「18.67」の小数点以下を切り取った「18」を出力したいとします。

では実際に使用してみましょう。
関数の仕組みは以下の通りです。

=QUOTIENT(分子,分母 )

では引数を当てはめていきたいと思います。
分子は56の「B4」、分母は3の「C4」です。
つまり関数式に直すとこのようになります。

=QUOTIENT(B4,C4)

それでは実行してみましょう。
結果はこのようになります。

通常は「18.67」ですが、整数の「18」のみが出力されました。
他の計算も実行してみましょう。結果はこのようになります。

全て整数で表示されてますね。
割り切れて整数のみの結果はそのまま整数で表示されました
さらに6行目の「9/12」の結果の「0.75」は「0」で表示されていますね。

ちなみに今回はセルを参照して使用してみましたが、
引数に直接、数値を入力しても計算は可能です。

例えば「=QUOTIENT(56,3)」でも
通常の計算結果の「18.67」から整数を抜き出して「18」が出力されます。

■よくあるエラーと対処法

QUOTIENT関数を使用する中で考えられるエラーと対処法についてまとめました。

・分母・分子の参照の数値を打ち換えても計算結果が反映されない

こちらに関しては計算方法が手動になっている可能性があります。
「数式」から「計算方法の設定」を押して「自動」にしてみてください。
するとエクセル内の関数はすべて自動で計算してくれます。

・#VALUE!のエラーが表示される

こちらは参照しているセル・数値が文字になっている可能性があります。
下図をご覧ください。

「10」に「あ」を割ってみました。

結果はこのようになります。

VALUE!のエラーが表示されました。

このエラーが表示される場合は一度、引数を見直してみてください。

■表示のみ整数にする

今回は関数で整数のみ取り出す方法についてまとめましたが
表示のみ整数にする方法もあります。

「ホーム」から「小数点以下の表示桁数を減らす」を押してみてください。

すると表示する小数点の位置が変わり、表示のみ変えることができます。

しかし、注意点として「18.67」の数値の表示を「18」にしても
セル内の数値は「18.67」なので気をつけてください。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

QUOTIENT 関数 (microsoft.com)

■まとめ

いかがだったでしょうか。
割り算の応用の関数になりますが、このような算出もできます。

小数点を算出したら問題がある際にはとても便利な関数です。

ぜひ身に着けて活用してみてください。
それでは次回の記事でお会いしましょう。

エクセルを使用して計算する第一歩だと思います。

ぜひ、エクセルの基本的なスキルなので参考にしてみてください。

それでは見ていきましょう。

■足し算をする

まずは足し算から見ていきましょう。

今回は見本で作成した家計簿を元に説明していきます。

下図をご覧ください。

今回はこちらを見本に計算していきたいと思います。

まず、エクセルで計算させるためには「＝（イコール）」を使用して、

今から計算させることを宣言しないといけません。

それでは合計を計算していきます。

まず「＝(イコール)」の後に「食費の80000」をクリックしてみてください。

ちなみに「食費」や「80000」などが入っている部屋をセルといいます。

食費の80000のセルが点線で囲まれており、＝(イコール)の後にC4と入っているのがわかります。

これは「Ｃ」列の「4」行目を表しており、結果として食費の「80000」を選択しているということ

になります。

さらにガスを足し算したいので「+」を選択します。

このようになりました。

では次に、ガスの値段である「10000」クリックしてみてください。

はい。今度は「10000」が赤い点線で囲われました。

式の色と選択したセルが同じ色になって分かりやすいですね。

開発者の優しさが伝わります。

では流れで電気代と家賃も足してみましょう！

式に直すとこのようになります。

＝Ｃ4+Ｃ5+Ｃ6+Ｃ7

この状態でEnterキーを押すと…

計算できましたね！ほかの引き算・掛け算・割り算もベースはこの作業になります。

この状態で食費を「80000」から「60000」にした場合を見てみましょう。

Ｃ4を60000に打ち換えると…

なんと自動で再計算してくれます。
別パターンとして「＝60000+10000+20000+37000」と入力しても同じ計算ができますが数値が上記のように変わっても答えは自動反映してくれないので注意です。

■引き算をする

次に引き算を紹介します。

ではガスと電気を合計から引いてみましょう。考え方は足し算と同じです。
「＝」をクリックし、合計の「127000」をクリックします。

今回は引き算なので「-」を入力し、ガスと電気の値段を選択します。

式に表すと「＝Ｃ8-Ｃ5-Ｃ6」となりますね。

この状態でEnterキーを押すと…

ちゃんと計算してくれていますね！
どんどん行きましょう！

■掛け算

今度は掛け算を見ていきましょう。

見本では年間の合計金額を求めてみたいと思います。
つまり合計×１２か月ってことですね。

エクセルでは掛け算は「*（アスタリスク）」を使用します。

式に直してみましょう。

＝C８(合計）*　１２（１年の月数）

できてますね！

最後は割り算です。

■割り算

では最後に１人当たりの費用を計算してみます。
この表では３人家族なので合計に3を割ると求めることができます。

エクセルでの割り算は「/（スラッシュ）」を使用すると求めることができます。

式は下記のようになりますね。

＝C８（合計）/　C２（家族の人数）

こちらも割り算を行うことができました。

■四則演算の注意点と考えられるエラー

注意点について説明します。

・計算の対象

四則演算は数値の計算なので文字が含まれる状態でセルを参照するとエラーが生じます。

なので参照は数値のみを選択して活用してみてください。

・四則演算の併用

足し算と掛け算を併用する場面もあるかと思います。

この際は普通の数学と同様に「掛け算と割り算が優先」して計算されます。

先に足し算を計算したいときは「（）」で囲ってください

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

演算子一覧表 – Access (microsoft.com)

■練習問題

・問題①：足し算

数値1と数値2を足した計算結果を「Ｆ3」に表示する

答え：=B3+D3

・問題②：引き算

数値1から「87」を引いた値を「Ｄ6」に表示する

答え：=D3-87

・問題③：掛け算

数値1と数値2を足した後に数値3をかけた値を「Ｆ4」に表示する

答え：=(B3+B6)*D4

かっこ入力が必要です。詳しくは目次の 四則演算の注意点 をご覧ください。

・問題④：割り算

数値1を数値2と数値3で足した値で割った結果を「Ｆ4」に表示する。

答え：=B4/(D3+D6)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

計算練習 (けいさんれんしゅう) シート – 無料テンプレート公開中 – 楽しもう Office (microsoft.com)

■まとめ

いかがだったでしょうか。
エクセルの基礎中の基礎ですがすべてはこのスキルが派生して様々な関数が生まれています。

結果をさらに次の計算に参照して…など結果を様々な場面で活用することもできます。

さらに便利な関数も多数ありますので是非、エクセルをきわめてみてください。

では次回の記事でお会いしましょう！