エクセルマクロVBA

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行目、13列のセルから順番に下方向へセルの塗りつぶしを行います。

 

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

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

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

 
 



 




動画で楽にパソコンが身につく方法はこちら>>

-エクセルマクロVBA

Copyright© エクセルVBA使い方入門 , 2020 All Rights Reserved Powered by STINGER.