練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題13について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの数値を元に、条件に応じて文字色を変更する練習問題となります。

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

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

問題内容

セルA1からA10までの数値を元に、条件に応じて文字色を変更する

動作説明

VBAを使用して、セルA1からA10までの数値を読み取り、特定の条件を満たす場合に文字色を変更します。

この問題では、セルの数値が100を超える場合は赤色、200を超える場合は青色に変更する必要があります。

ヒント

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

・ヒントその1

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

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

・ヒントその2

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。

例えば、Range(“B2”).Font.Color= RGB(255, 0, 0)というコードを使って、
セルB2の文字色を赤色に変更することができます。

・ヒントその3

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

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

使用方法は下記の通りです。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

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

・回答その①

上記のコードでは、セルA1からA10までの数値を読み取り、条件に応じて文字色を変更しています。
セルの数値が200を超える場合は青色、100を超える場合は赤色に変更されます。

では実行した結果を見ていきましょう。
結果はこのようになります。

上手く機能していますね。

解答コードでは、For Eachループを使用してセル範囲内の各セルに対して処理を行っています。

各セルの値を比較し、条件に応じて文字色を変更するために、FontオブジェクトのColorプロパティを使用してRGB値を指定しています。

・回答その②

必要な知識

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

ループ構造

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

条件分岐

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

セルの文字色の変更

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。
文字色はRGB値（赤、緑、青）で指定されます。
例えば、赤色は`RGB(255, 0, 0)`で表されます。

まとめ

この練習問題では、ExcelのVBAを使用して特定の条件に基づいてセルの文字色を変更する方法について学びました。

具体的な問題内容は、セルA1からA10までの数値を元に、100を超える数値は赤文字、200を超える数値は青文字に変更するというものでした。

解答コードでは、セルの値を読み取り、条件に応じて文字色を変更するために、
RangeオブジェクトやCellsオブジェクト、Fontオブジェクトを使用しました。また、RGB関数を使用して色を指定しました。

必要な知識としては、VBAの基礎、セルの操作、条件分岐、文字色の変更などがありました。
これらの知識を習得することで、問題を解決するためのコードを作成できます。

練習問題を通じて、VBAの応用的な使い方やセル操作の基本的な操作方法を学ぶことができました。
これらの知識は、Excelの自動化やデータ処理など、実務での業務効率化にも役立つものです。

以上で練習問題12となります。お疲れ様でした！

【マクロ・VBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△) ► 独学エクセル塾 (dokugakuexcel.com)

Else If を使用すれば様々な条件・ケースの処理が可能になります。
しかし、複数の条件を組み合わせて多用すればVBAプログラムは複雑になってしまいます。

そこでSelect Caseを使用すれば簡単で様々な条件・ケースにあった処理が可能になります。

ぜひ身に着けて活用してみてください。
それでは見ていきましょう。

■Select Caseの使用方法

Select Case 条件の対象

Case Is 条件①
　　　条件①の処理

Case Is 条件②
　　　条件②の処理

Case Is 条件③
　　　条件③の処理

・・・

End Select

■Select Caseを使用して条件分岐処理をする

では見本を元に説明していきます。
下図をご覧ください。今回は体温を入力して「高熱・発熱・微熱・平熱」を判断してみます。

条件として
①38.5℃以上は「高熱」
②38.0℃以上は「発熱」
③37.0℃以上は「微熱」
④36.9℃以下は「平熱」
の4段階を処理します。

ではまず、Select Caseを使用せず、ElseIfを使用してプログラムを作成してみました。

Sub 体温の判断①()

If Range(“C4”) >= 38.5 Then
Range(“C7”) = “高熱”

ElseIf Range(“C4”) >= 38 Then
Range(“C7”) = “発熱”

ElseIf Range(“C4”) >= 37 Then
Range(“C7”) = “微熱”

ElseIf Range(“C4”) <= 36.9 Then
Range(“C7”) = “平熱”
End If

End Sub

このプログラムでも求められる機能を満たすことは可能です。
しかし、毎回「Range(“C4”)」を入力して手間がかかるうえに
「ElseIf」が重なり、とても複雑で入力がめんどくさいプログラムになっていますね。

こちらをSelect Caseを使用してシンプルで簡潔なプログラムにしたいと思います。

ではSelect Caseの使用方法を振り返りましょう。

Select Case 条件の対象

Case Is 条件①
　　　条件①の処理

Case Is 条件②
　　　条件②の処理

Case Is 条件③
　　　条件③の処理

・・・

End Select

特徴として条件の対象を1度打ち込めばＣase Ifでその対象を比較してくれます。
つまり毎回「Range(“C4”)」を打ち込まなくても比較してくれるようになります。

さらにSelect Caseで宣言した後はEnd Selectで挟んでください。

Select Caseを使用したプログラムはこのようになります。

Sub 体温の判断②SelectCaseの場合()

Select Case Range(“C4”)

Case Is >= 38.5
Range(“C7”) = “高熱”

Case Is >= 38
Range(“C7”) = “発熱”

Case Is >= 37
Range(“C7”) = “微熱”

Case Is <= 36.9
Range(“C7”) = “平熱”

End Select

End Sub

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

うまく機能してくれていますね。
プログラムもシンプルになりました。
比較対象が1つの場合はSelect Caseを使用してみてください。

■Select Caseを使用した応用機能

・比較演算子を使用しない条件分岐方法

先ほどは「>=」などの比較演算子の方法で条件分岐を行いましたが
比較演算子を使用しなくても条件分岐する方法があります。

先ほど発熱の範囲は38℃から38.4℃でした。
その際の条件分岐式は下記の要領で設定しましたね。

Case Is >= 38.5
Range(“C7”) = “高熱”

Case Is >= 38
Range(“C7”) = “発熱”

こちらで必然的に38℃から38.4℃は「発熱」となります。

では「○○～△△」と数値の範囲を設定したい時の簡単な方法をご紹介します。
使用するのは「To」です。

Toの使用方法は　「Case　○○　To △△」のように使用します。
では先ほどの38℃から38.5℃は発熱という判別式を「To」で作成すると
下記のようになります。

Case 38 To 38.4
Range(“C7”) = “発熱”

ちなみにＴoを使用する際は「小さい数値　Ｔo　大きい数値」の順に入力しなければ
うまく条件分岐できないので注意が必要です。

・Caseで範囲を指定しない場合

これまで「>=」といった比較演算子や「Ｔo」を使用した範囲指定をしましたね。
では範囲指定しない場合を見てみましょう。

下図をご覧ください。

「36.5」℃の場合は「標準体温」と表記するようにしましょう。
プログラムは単純です。

36.5で条件分岐をしたい場合は「Case 36.5」というように
数値のみ入力すれば「36.5」の時のみ条件分岐処理ができます。

プログラムは下記の通りです。

Sub 体温の判断②SelectCaseの場合()

Select Case Range(“C4”)

Case 36.5
Range(“C7”) = “標準体温”

End Select

End Sub

・アルファベットの範囲指定

これまでの条件として数値の範囲で分岐させていましたが
アルファベットの範囲指定もSelect Caseでは可能になります。

下図をご覧ください。

評価が「AからC」の時は「合格」、「DからF」の時は「不合格」と
処理するプログラムを作成してみましょう。

数値の時は「1から5」の場合は「1 To 5 」で範囲指定しましたよね。
考え方は同じで「AからC」のときは「”A” To “C”」となります。

プログラムはこのようになりました。

Sub SelectCaseでアルファベットの範囲指定()

Select Case Range(“C4”)

Case “A” To “C”
Range(“C7”) = “合格”

Case “D” To “F”
Range(“C7”) = “不合格”

End Select

End Sub

実行した結果はこのようになります。

うまく機能していますね。

■ループを抜き出す方法

ここではSelect Caseでループを抜け出す方法を紹介します。

使用するのはIf…Thenと呼ばれる条件分岐とGotoになります。

仕組みとしてはIf…Thenで指定した条件に当てはまるか確認し、

結果にあわせてGotoでプログラムを飛ばします。

詳しくは下記記事でまとめていますので参考にしてみてください☟

【マクロVBA知識 11】GoToでプログラムを指定した場所まで飛ばす方法について Excel ► 独学エクセル塾 (dokugakuexcel.com)

■公式の説明

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

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

Select Case ステートメント (VBA) | Microsoft Docs

■まとめ

いかがだったでしょうか。
IF Thenとは少し異なる条件分岐の処理だったと思います。

比較対象が1つの場合には確実にIFよりもSelect Caseの方が
簡単で作成しやすいですよね。

ぜひSelect CaseとIFを使い分けて活用してみてください。

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

次回の記事はこちらから☟

【マクロVBA知識 25】長くなったプログラムを改行・複数の行に分ける方法 ► 独学エクセル塾 (dokugakuexcel.com)

さらにElseを使用することで条件にあった処理と異なる処理を分けることもできます。

複雑なシステム・計算をするときにはとても役立つと思うので是非参考にしてください。

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

■忙しい人向けのコピペ用プログラム

赤字の条件式は指定したい条件を入力して活用してください

Sub IFによる条件分岐()

If 条件式 Then
　　'正しい場合の処理
　Else
　　'異なった場合の処理
End If

End Sub

■If Then の構造

まずは構造から見ていきましょう。

If 条件式　Then

’正しい場合の処理

Else

’異なった場合の処理

End If

If 条件式　Thenの説明

まずIfで条件分岐をすることを宣言します。
スペースを開けて条件式を入力します。その後のThenで条件式の完了を宣言します。

次の行で正しい場合の処理を入力します。

Elseの説明

条件式で異なった場合の処理を分けたい場合は入力します。
異なった場合を入力した場合はElseの次の行に処理プログラムを入力します。

入力しなけれなEnd Ifまで飛びます。

End If

End IfでIfの終わりを宣言します。

■実践

・通常の使用方法

それでは実践です。
見本で下図のシートを用意しました。

数値がB行にランダムに入っている状態です。
その隣のC行に偶数か奇数を判別して入力していきます。

偶数・奇数の判別式は今回は詳しく説明しませんが下記の式を判別式にします。
Ｂ3の「56」を偶数・奇数の判断式に直すと…

If Cells(3, 2).Value Mod 2 = 0 Then

このようになります。

「Mod 2」は2で割った際のあまりの数値を算出する機能があります。

つまり、B3を2で割って「1」余れば奇数。「0」になれば偶数になる計算式となります。

ではFor Nextを使用して繰り返し実行するようにプログラミングしましょう。

Sub 偶数or奇数()

Dim A As Long

For A = 3 To 10 Step 1

　If Cells(A, 2).Value Mod 2 = 0 Then
　　Cells(A, 3) = “偶数”

　Else
　　Cells(A, 3) = “奇数”

　End If

Next A

End Sub

このようになりました。
では実行してみましょう。

正しく実行できてますね。

・Elseを使用せずに実施

先ほどは偶数であれば「偶数」と出力、奇数であれば「奇数」と出力しましたが

場合によっては偶数の時のみ「偶数」と1つのパターンのみでいい時もあると思います。

その際はElseを省略することも可能です。

先ほどのプログラムと比較しましょう。

If Cells(A, 2).Value Mod 2 = 0 Then
Cells(A, 3) = "偶数"
Else
Cells(A, 3) = "奇数"
End If

上記のプログラムを偶数のみ「偶数」と出力するようにしてみましょう。

Elseを取り除いたプログラムはこのようになります。

If Cells(A, 2).Value Mod 2 = 0 Then
Cells(A, 3) = "偶数"
End If

これで１パターンのみの出力が可能になりました。

・Ifの条件分岐先でさらにIfを使用する

If …Thenは条件分岐先でも使用することができ、複数の条件分岐が可能です。

例えば先ほどの「偶数」「奇数」の２パターンの条件分岐を

「５０以上の偶数」 ・ 「５０以下の偶数」 ・「５０以上の奇数」・ 「５０以下の奇数」

の４パターンの出力にしてみたいと思います。

プログラムはこのようになります。

Sub 偶数or奇数()

Dim A As Long

For A = 3 To 10 Step 1

If Cells(A, 2).Value Mod 2 = 0 Then
　If Cells(A, 2).Value >= 50 Then
　　Cells(A, 3) = “50以上の偶数”
　Else
　　Cells(A, 3) = “50以下の偶数”
　End If

Else

If Cells(A, 2).Value >= 50 Then
　　Cells(A, 3) = “50以上の奇数”
　Else
　　Cells(A, 3) = “50以下の奇数”
　End If

End If

Next A

End Sub

実行した結果はこちらです。

このように４パターンの出力が可能になりました。

しかしプログラムを見てわかる通り、複雑になってしまいます。

把握できる範囲で使用してみてください。

■練習問題

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

⬛︎公式

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

If…Then…Else ステートメント (VBA) | Microsoft Learn

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

ではIf …Thenを使用して発生するエラーとそれに対する対処法を説明します。

・Ifブロックに対応するEnd Ifがありません。

このエラーは単純ですがIfに対してEnd Ifがないのが原因です。

Ifを一つ使用している場合はこのようなエラーになることは少ないと思いますが

何度もIfを使用している場合はプログラムの流れが把握できなくなり、

入力し忘れがあると思います。

原則、Ifの使用回数分、End Ifが必要ということを心掛けてください。

■まとめ

いかがだったでしょうか。
判断が必要なシステムには必要な知識ですよね。

End Ifは忘れずにいれてくださいね！

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

次回の記事はこちらから☟

【VBA知識 10】For Eath で配列・コレクション内で繰り返し・ループ処理をする。Excel ► 独学エクセル塾 (dokugakuexcel.com)

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

VBAではストーリー形式で説明していますが途中からでもわかるようにしています。ぜひ参考にしてみてください。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！

英語の意味どおり、もし～ならばを関数にした便利な機能です。

条件分岐ともいわれますね。
システム作りにはよく使われる上、ここから派生するSUMIFなどの基礎になります。

ぜひ参考にしてみてください。

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

■関数の仕組み

■条件分岐をする

今回は下図の割合の数値をもとに数値が半分より上か下か判別することとします。

現在の数値は60％。つまり「半分より上」です。

では実際に表示させてみましょう。

ここで使用する関数が「IF関数」。
「＝」の後にIFと打ちます。するとIF関数が出てくるのでダブルクリックします。

まずは論理式からです。
半分以上を判断するために、不等号を使用します。
半分以上なので判別式は「B3(60のセル番地)>50」となりますね。

ここで論理式を打ち終わったこと教えるために「,」を打ち込みます。

次は真の場合を設定します。
論理式があっていたらどのように表示するか指示します。
ここでは”半分より上”と指示しておきましょう。文字で打ち込む際は「”」で挟まないといけません。
またここでセルを選択すると、真の場合はセルの値が表示されます。

ここで真の場合を打ち終わったこと教えるために「,」を打ち込みます。

次は偽の場合。
論理式が異なっていたらどのように表示するか指示します。
ここでは”半分より下”と指示しておきましょう。

関数式に表すとのようになります。

＝IF(B3>50,”半分より上”,”半分より下”)

では入力してみましょう。

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

うまく機能してますね。
割合の数値を30にしても「平均より下」と出てくれています。

ちなみに条件式は「＞・＜・＜＝・＞＝・＝」なども使用できます。

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

ではIF関数を使用して発生するエラーとそれに対する対処法を説明します。

・参照しているセルがエラーになっている

では先ほどまで使用していたシートをもとに説明します。

IFでの関数式は「Ｂ3」のセルの値をもとに判別しています。

では「Ｂ3」がエラーになったときの結果を見てみましょう。

IF関数を使用して算出している結果の方もエラーになってしまいました。

参照元がエラーであればIFで判別できないためエラーとなってしまいます。

対策を下記にまとめました。

対策①：参照のエラーを解消する

対策②：IFERROR関数を使用し、エラー時の分岐を行う。

対策①はシンプルな解決策ですよね。

対策②はIFERROR関数を使用することでIF関数のようにエラーの場合の分岐が可能になります。

IFERROR関数についてはこちら☟

【IFERROR関数】エクセルでのエラー時の対応について～エラーに強いファイルを作る～ ► 独学エクセル塾 (dokugakuexcel.com)

■公式の説明

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

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

IF 関数 – Office サポート (microsoft.com)

■練習問題

練習問題で複数のIF関数を復習してみてください。

下図のシートを用意しました。

Aさんの得点とBさんの得点を比較してどちらが勝者か

「Ｂ7：Ｄ7」へ出力してみましょう。

答え：=IF(B3>D3,”Aさんの勝利”,”Bさんの勝利”)

解説：Aさんの得点（Ｂ3）がＢさんの得点（Ｄ3）を上回っていたら（＞）

　　　”Aさんの勝利”と表示する。それ以外は”Bさんの勝利”とする

表示は下記のようになります。数値を入れ替えてもうまく機能していますね。

■まとめ

ここで終わりたいのですが
先ほどの半分より上か下か判別するシートで勘の鋭い方はこう思ったはず…

「50」ではどうなるのか？
結果はこうです。

そうですね。50＞0以外はすべて「半分より下」なので誤った出力になります。

つまり結果が「半分より上」「半分より下」「半分」の３パターンあることになります。
答えが3パターン以上ある場合はIFをもう１つ追加して重複の分岐をする必要があります。

今回の内容で解決した人もいると思うので
重複した分岐方法は次回説明します。

重複したIF関数の記事はこちらから☟

【IF関数】エクセルでIF関数を複数・重ねて、３パターン以上分岐させる ► 独学エクセル塾 (dokugakuexcel.com)

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

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

関数の使い方や効果を実際のエクセルを使用してわかりやすくしています。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！