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

Excel VBAでのステートメントは、プログラムの命令のことで、実行して特定の動作を行います。データの操作、条件分岐、ループ、オブジェクトの操作など、さまざまな処理を実行するために使用します。

Excel VBA Exitステートメント

Sub ExitStatementExample()
    Dim i As Integer
    
    For i = 1 To 10
        If i = 5 Then
            MsgBox "ループを終了します。"
            Exit For ' iが5の時点でループから抜け出す
        End If
    Next i
End Sub

For`ループを使用して i が1から10までの範囲でループします。Ifステートメントを使い i が5になった時点でメッセージを表示し、Exit Forステートメントを使いループから抜け出しています。

Exitステートメントは、VBAでループ構造（For, Do, Whileなど）やプロシージャ（SubやFunction）から直ちに抜け出すために使用します。

これらのステートメントは、条件が満たされた場合に、その時点で処理を終了させるために使われます。

例えば、ループ内で特定の条件に達した場合にループから抜け出すなど、プログラムの制御を特定の条件に基づいて行う際に役立ちます。

Excel VBA Select Caseステートメント

Sub SelectCaseExample()
    Dim day As Integer
    day = 3 ' 日付を示す仮の値（例えば平日や休日など）
    
    Select Case day
        Case 1
            MsgBox "月曜日です。"
        Case 2
            MsgBox "火曜日です。"
        Case 3
            MsgBox "水曜日です。"
        Case 4
            MsgBox "木曜日です。"
        Case 5
            MsgBox "金曜日です。"
        Case 6, 7
            MsgBox "週末です。"
        Case Else
            MsgBox "不正な日付です。"
    End Select
End Sub

day変数に代入された値に応じて、Select Caseステートメントが評価されます。Caseステートメント内で日付に応じたメッセージボックスを表示するように設定されています。最後のCase Elseは、どの条件にも一致しない場合のデフォルト処理を定義します。

Sub SelectCaseWithIsExample()
    Select Case Range("A1").Value
        Case Is < 10
            MsgBox "A1は10未満です。"
        Case Else
            MsgBox "A1は10以上です。"
    End Select
End Sub

Select Case`ステートメントで Range("A1").Valueを評価して、その結果に応じてメッセージボックスを表示しています。

Sub SelectCaseMultipleConditionsExample()
    Select Case Range("A1").Value
        Case 1, 10, 30
            MsgBox "1、10、または30のいずれかに一致しました。"
        Case Else
            MsgBox "条件に一致する数値はありませんでした。"
    End Select
End Sub

Sub SelectCaseRangeExample()
    Select Case Range("A1").Value
        Case 1 To 10
            MsgBox "1から10の範囲に含まれています。"
        Case Else
            MsgBox "範囲外の数値です。"
    End Select
End Sub

Excel VBA Do Loopステートメント

Sub DoLoopExample()
    ' Do Whileで繰り返し前に条件を評価
    Dim i As Integer
    i = 1
    Do While i <= 5
        Debug.Print i
        i = i + 1
    Loop
    
    ' Do Untilで繰り返し後に条件を評価
    Dim j As Integer
    j = 10
    Do Until j <= 5
        Debug.Print j
        j = j - 1
    Loop
End Sub

Do While と Do Untilを使って繰り返しを行っています。Do Whileは i が5以下の間、Do Untilは jが5以下になるまでループを続けます。

Do 
何らかの処理
Loop

このコードは無限ループになります。

Do Loopステートメントに条件がないため、ループが始まると条件の評価なしに永遠に続くのです。

Excel VBA For Each Nextステートメント

Sub ForEachExample()
    ' ワークシートのセル範囲をコレクションとして取得し、各セルの値を出力する例
    Dim cell As Range
    For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
        Debug.Print cell.Value
    Next cell
    
    ' 配列をコレクションとして取得し、各要素の値を出力する例
    Dim arr As Variant
    arr = Array("apple", "orange", "banana", "grapes")
    Dim element
    For Each element In arr
        Debug.Print element
    Next element
End Sub

For Each を使用して、ワークシートのセル範囲や配列の要素を一つずつ取り出し、それぞれの値を出力しています。

ループごとにコレクション内の要素が変数に代入され、その要素を処理することができます。

Excel VBA Ifステートメントの複数条件分岐

Sub MultipleIfConditionsExample()
    Dim num As Integer
    num = 15
    
    If num < 10 Then
        Debug.Print "10未満"
    ElseIf num >= 10 And num < 20 Then
        Debug.Print "10以上かつ20未満"
    ElseIf num >= 20 And num < 30 Then
        Debug.Print "20以上かつ30未満"
    Else
        Debug.Print "30以上"
    End If
End Sub

If ステートメントの複数条件分岐を示しています。num の値によって、異なる条件が評価され、該当する条件のブロックが実行されます。条件が一つも該当しない場合は Else が実行されます。