| ★Do...Loop ステートメント その３ | |||
次に ３．条件を満たすまで、この処理を続けなさい。 の場合の記述では |
|||
Sub doloop3() ' i は整数型として変数宣言します。 Dim i As Integer ’i の初期設定として1を代入しておきます。 i = 1 ’A列のセルが「女」と入力されるセルになるまで、以下の処理を行います。 Do Until Cells(i, 1) = "女" ’「女」と入力されているセルになるまでセルの色を赤に変更します。 Cells(i, 1).Interior.ColorIndex = 3 ’次々とセルを下に移動させる為に１回処理を行う度に ’変数 i に1を足していきます。これで行数は１ずつ増えますね。 i = i + 1 Loop End Sub  |
|||
これも今までと同じ結果になりましたね。 今までは「〜している間」であったのに対して、今度は「〜になるまで」ということになりましたね。 ですから言い換えると連続した値が続かなくてもいいわけです。 こんなのもOKになるのですよ。 |
|||
 これでも結果は  |
|||
ということです。最終行がどこにあるのか調べるとか使えそうですよね。 では次は。。。 |
|||
|
|||