ExcelVBAで挫折しない！条件分岐とループを日常に置き換えて解説

2024年1月19日 2024年8月16日

ExcelVBAの条件分岐とループは、プログラムの流れを制御し、特定の条件や繰り返し処理する基本的な考えです。これらは初心者にとっては難しく感じ、プログラミングの基本概念に慣れるまで時間がかかることがあります。

本記事では条件分岐とループを日常に置き換えて解説します。この記事で迷子になって挫折することはありません。

1 ExcelVBAで挫折しない！条件分岐
- 1.1 日常生活の条件分岐
- 1.2 日常生活の条件分岐コード
2 ExcelVBAで挫折しない！ループ
- 2.1 日常生活のループ
- 2.2 日常生活のループコード

ExcelVBAで挫折しない！条件分岐

Excel VBAの条件分岐を日常生活で解説します。

日常生活の条件分岐

朝の行動

・条件
もし天気が晴れていたら…
・処理
散歩に行く。

・条件
もし雨が降っていたら…
・処理
傘を持って雨具を準備する。

食事の選択

・条件
もし今日が平日だったら…
・処理
弁当を持っていく。

・条件
もし今日が週末だったら…
・処理
外で食事をする。

日常生活の条件分岐コード

日常生活のなかにも行動にあたり条件があり、その条件によって内容がかわりますね。これをExcelVBAコードで記述すると下記になります。

朝の行動

Sub MorningRoutine()
    Dim sunny As Boolean
    ' 天気をセット
    ' 天気が晴れている場合
    If sunny Then
        MsgBox "Let's go for a walk!"
    Else
        ' 雨が降っている場合
        MsgBox "It's raining. Prepare for rain!"
    End If
End Sub

食事の選択

Sub WeekdayLunchDecision()
    Dim weekday As Boolean
    ' 曜日で平日かどうかセット
    ' 平日かどうかで食事の選択を分岐
    If weekday Then
        MsgBox "Bring a bento for lunch."
    Else
        MsgBox "Let's eat out for lunch."
    End If
End Sub

ExcelVBAで挫折しない！ループ

Excel VBAのループを日常生活で解説します。

日常生活のループ

毎日の日課

・条件
毎朝起きる
・処理
朝食をとる → 洗顔、歯をみがく → 服を着替える → 出勤する

・条件
仕事が終わる
・処理
帰宅する → 夕食をとる → 運動する →入浴→ 寝る

習慣の形成

・条件
週に3回ジョギングする
・処理
毎週月曜日、水曜日、金曜日にジョギングする。

日常生活のループコード

日常生活のなかにも行動にあたり条件があり、その条件によって内容がかわりますね。これをExcelVBAコードで記述すると下記になります。

毎日の日課

Sub DailyRoutineLoop()
    Dim yotei As String
    yotei = ""
    ' 毎日の日課を繰り返す
    Do While yotei <> "END"
        MorningRoutine
        WorkRoutine
        EveningRoutine
        yotei = "END"
    Loop
End Sub

Sub MorningRoutine()
    ' 朝の行動
    MsgBox "MorningRoutine."
End Sub

Sub WorkRoutine()
    ' 仕事の行動
    MsgBox "WorkRoutine."
End Sub

Sub EveningRoutine()
    ' 帰宅後の行動
    MsgBox "EveningRoutine."
End Sub

習慣の形成

Sub JoggingRoutine()
    Dim arr As Variant
    arr = Array("月", "水", "金")
    Dim yobi As String
    yobi = Format(Now, "aaa")
    Dim element
    
    For Each element In arr
        If yobi = element Then
          Debug.Print "Let's Jogging."
        End If
    Next element

End Sub

条件分岐とループの詳しい内容は下記をチェックしてください。

Excel VBA スタンダード・ステートメントについて

毎日のルーチン作業をExcel VBAで自動化し、時間を有効活用しませんか？Excel VBAエキスパート資格取得問題集を活用して資格取得、そして効率的な仕事を実現しましょう！

VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。

ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。

Excel VBAベーシック問題集

ExcelVBAエキスパートスタンダード
ExcelVBAの開発を仕事にする人が対象の問題集です。

ExcelVBAスタンダード問題集

Excel VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。