EXCEL VBA ループ処理からの抜け出し（Exit For / Exit Do)

EXCEL VBA ループ処理からの抜け出し（Exit For / Exit Do)

EXCEL VBA　Exit For・Exit　Doの使い方（ループ処理から抜ける）

【For NextでExit Forを利用した場合】

Sub for_next_Exit01()

    Dim I, lRow, Gokei As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得
    
    Range("D3:D" & lRow).ClearContents 'D3～D列最終行まで文字列消去


    Gokei = 0 '合計値を０

    For I = 3 To lRow  '３列目からA列の最終行（１２）まで繰り返します。
    
        Gokei = Gokei + Cells(I, "C")  'GokeiにC列の価格を加算します。
                
        If Gokei >= Range("F3") Then
                Exit For  '合計金額（Gokei）が予定額以上になったらFor Nextから抜け出します。
        End If
        
        Range("D" & I) = "買える"  '予算額を下回っている物については、D列に「買える」を記入
        
    Next I
    
End Sub

【Do While LoopでExit Doを利用した場合】

Sub Do_While_Loop_Exit01()

    Dim I, lRow, Gokei As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得
    
    Range("D3:D" & lRow).ClearContents 'D3～D列最終行まで文字列消去


    Gokei = 0 '合計値を0
    
    I = 3 '開始行3行目から開始

    Do While lRow > I    '３列目からA列の最終行（１２）まで繰り返します。
    
        Gokei = Gokei + Cells(I, "C")  'GokeiにC列の価格を加算します。
                
        If Gokei >= Range("F3") Then
                Exit Do    '合計金額（Gokei）が予定額以上になったらDo While Loopから抜け出します
        End If
        
        Range("D" & I) = "買える" '予算額を下回っている物については、D列に「買える」を記入
        
    I = I + 1 '次の行に＋１
    
    Loop

End Sub

EXCEL VBA　Exit For・Exit　Doの使い方（空白行でループ処理から抜ける）

Sub for_next_Exit02()

    Dim I, lRow, Gokei As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得
    
    Range("E3").ClearContents 'セル（E3）合計値の文字消去


    Gokei = 0 '合計値を０
    
    
    For I = 3 To lRow  '３列目からA列の最終行（１２）まで繰り返します。
    
        Gokei = Gokei + Cells(I, "C")  'GokeiにC列の価格を加算します。
                
        If Range("A" & I) = "" Then
                Exit For  'A列が「空白」になったらFor Nextから抜け出します。
        End If
            
    Next I
    
    Range("E3") = Gokei '合計値をセル（E3）に記入します。
    
End Sub

EXCEL VBA　Exit For・Exit　Doの使い方（検索・一致でループ処理から抜ける）

Sub Do_While_Loop_Exit03()

    Dim I, lRow As Long
    Dim Hinmei As String
        
    Hinmei = InputBox("品名を入力してください")
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得(12)
   
    
    I = 3 '開始行3行目から開始

    Do While lRow > I    '3列目からA列の最終行（12）まで繰り返します。
            
        If Range("B" & I) = Hinmei Then
                MsgBox "入力した" & Hinmei & "の価格は" & Range("C" & I)  '入力した品目が見つかった場合に、品名価格を表示します。
                Exit Do    '入力した品名が見つかった場合はDo While Loopから抜けます。
        End If
        
    I = I + 1 '次の行に＋１
    
    Loop
    

End Sub

無限ループから強制的に終了する方法　（無限ループ回避、応答無し）