| ★Do...Loop ステートメント その５ | |||
最後に ５．無限ループ（条件が満たされず、永久に処理を繰り返すこと）の回避方法 について紹介します。 |
|||
Sub doloop5() ' i は整数型として変数宣言します。 Dim i As Integer ’i の初期設定として1を代入しておきます。 i = 1 Do 'これが無限ループを回避する記述です。 If Cells(i, 1) = Empty Then Exit Do ’「女」と入力されたセルになるまでセルの色を赤に変更します。 Cells(i, 1).Interior.ColorIndex = 3 ’次々とセルを下に移動させる為に１回処理を行う度に ’変数 i に1を足していきます。これで行数は１ずつ増えますね。 i = i + 1 ’A列のセルが「女」と入力されたセルになるまで、上の処理を行います。 Loop Until Cells(i, 1) = "女" End Sub |
|||
| Do...Loopの中に IfCells(i, 1) = Empty Then Exit Do この1行を記述しました。 これでIf構文を使って「検索セルが空白であれば、処理はしない。」というようになりました。 結果は次のようになります。 |
|||
 こうなりますよ。  |
|||
これでDo...Loopステートメントの説明は終わりです。 |
|||
|
|||