こんにちは、Excel VBA愛好家の皆さん！
今日は、プログラムの中で条件分岐をスマートに扱うためのExcel VBAのIf…Then…Else文についてお話しします。
この記事を読めば、あなたもExcel VBAのIf文の使い方をマスターできること間違いなしです！
Excel VBAのIf文とは？
まずは、Excel VBAのIf文が何なのかを理解しましょう。
If文は、プログラムの実行中に特定の条件が成り立つかどうかを判断し、条件に応じた処理を行うための制御構造です。つ
まり、ある条件が真（True）の場合にはAの処理を実行し、偽（False）の場合にはBの処理を実行するなど、プログラムの流れを制御するための重要な要素なのです。
If…Then…Else文の使い方とは？
では、実際にIf文を使って条件分岐を行う方法を見てみましょう。
Excel VBAでは、If文をIf…Then…Elseの形式で記述します。簡単な例を挙げて説明します。
|
1 2 3 4 5 |
If 条件 Then 条件が真の場合に実行する処理 Else 条件が偽の場合に実行する処理 End If |
上記のコードでは、条件部分にあなたが指定した条件式を記述し、その条件が真の場合には「条件が真の場合に実行する処理」が、偽の場合には「条件が偽の場合に実行する処理」が実行されます。
このように、If文を使うことで条件に応じた処理を柔軟に実行できるのです。
条件分岐の具体的な例を見てみよう！
具体的な例を見ながら、If文の使い方を理解していきましょう。
例えば、あなたがExcelシート上のデータを処理しているとしましょう。
以下のコードは、セルA1の値が10より大きい場合には「大きい値です」と表示し、それ以外の場合には「小さい値です」と表示する例です。
|
1 2 3 4 5 6 7 8 9 10 |
Sub CheckValue() Dim value As Integer value = Range("A1").Value If value > 10 Then MsgBox "大きい値です" Else MsgBox "小さい値です" End If End Sub |
このように、条件によって処理を分岐させることで、Excel VBAをより効果的に活用することができます。自分のデータに合わせた条件式を作成し、必要な処理をIf文の中に記述してみましょう！
まとめ
今回は、Excel VBAのIf…Then…Else文を使った条件分岐について紹介しました。
Excel VBAを使う上で、If文は非常に重要な制御構造の一つですので、ぜひマスターしておきましょう！条件に応じた処理をスマートに行うことで、より効率的なプログラムを作成できます。
サンプルコード
点数に基づくグレード判定プログラム
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub ShowGrade() Dim score As Integer Dim grade As String ' ユーザーからの入力を受け取る score = InputBox("点数を入力してください:") ' 範囲に応じてグレードを判定する If score >= 90 Then grade = "A" ElseIf score >= 80 Then grade = "B" ElseIf score >= 70 Then grade = "C" ElseIf score >= 60 Then grade = "D" Else grade = "F" End If ' 結果を表示する MsgBox "あなたのグレードは" & grade & "です。" End Sub |
このコードでは、まずユーザーに点数の入力を促す入力ボックスが表示されます。ユーザーが数値を入力すると、その数値に基づいてグレードが判定されます。90以上ならば”A”、80以上ならば”B”、70以上ならば”C”、60以上ならば”D”、それ以下ならば”F”となります。最後に、結果がメッセージボックスで表示されます。
このコードは、さまざまな場面で活用できる汎用的なものです。例えば、テストの成績やプロジェクトの進捗状況など、数値に基づいて評価を行いたい場合に使えます。
平日、休日、祝日を判定するExcel VBAコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub WeekdayOrHoliday() Dim date As Date 'ユーザーに年月日を入力させる date = InputBox("年月日を入力してください") '年月日が平日かどうかを判定する If Day(date) >= 1 And Day(date) <= 5 Then MsgBox "平日です" ElseIf Day(date) = 6 Or Day(date) = 7 Then MsgBox "休日です" Else MsgBox "祝日です" End If End Sub |
このコードは、ユーザーに年月日を入力させ、その日が平日、休日、祝日のどれかを判定するものです。
まず、ユーザーに年月日を入力させるために、InputBox関数を使用しています。InputBox関数は、ユーザーにメッセージを表示し、そのメッセージに対する入力を取得する関数です
次に、年月日が平日かどうかを判定するために、Day関数を使用しています。Day関数は、指定した日付の曜日を取得する関数です。
Day関数の戻り値は、1から7までの数字で、1が日曜日、2が月曜日、3が火曜日、4が水曜日、5が木曜日、6が金曜日、7が土曜日です。
Day関数の戻り値が1から5の数字であれば、その日付は平日です。Day関数の戻り値が6または7の数字であれば、その日付は休日です。
Day関数の戻り値が1から7の数字でも祝日であれば、MsgBox関数を使用して「祝日です」とメッセージを表示します。
コメント