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

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

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

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のループを日常生活で解説します。

日常生活のループ

日常生活のループコード

日常生活のなかにも行動にあたり条件があり、その条件によって内容がかわりますね。これを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 スタンダード・ステートメントについて