Do…Loopステートメントから抜ける（Exit Doステートメント）

Do…Loop文で繰りかえし処理を途中で終了させたい場合はExit Do文を使用します。

[書式]

Do Until （While）条件式

    処理を抜ける条件　Exit Do     

    処理

Loop

[例]　

Dim カウンタ As Integer

カウンタ = 3

Do

If Cells(カウンタ, 1).Value = “ソフト” Then Exit Do

Range(Cells(カウンタ, 1), Cells(カウンタ, 3)).Interior.ColorIndex = 35

　　カウンタ = カウンタ + 1

Loop While Cells(カウンタ, 1).Value <> “”

[サンプルC109]

Sub C109()

Worksheets(“C109”).Select

Dim カウンタ As Integer

カウンタ = 3

Do

If Cells(カウンタ, 1).Value = “ソフト” Then Exit Do ①

Range(Cells(カウンタ, 1), Cells(カウンタ, 3)).Interior.ColorIndex = 35

カウンタ = カウンタ + 1

Loop While Cells(カウンタ, 1).Value <> “”

End Sub

3行目、1～3列のセルから順番に下方向へセルの塗りつぶしを行います。

If Cells(カウンタ, 1).Value = “ソフト” Then Exit Do ①

もし1列目のセルが「ソフト」と表示されている場合は

Exit Do文でDo loop から抜け出して塗りつぶしの繰り返し処理が終了します。