●確認テスト2

【問題文】

ダウンロードしたファイルの表C4～C7の値が70以上なら、該当するD列に「合格」と入力しなさい。

【解答例1】

Sub TestForNext2_1()
    'Forで使用する変数iを作成
    Dim i As Long
    'i(初期値4)が4～7の間、繰り返す
    For i = 4 To 7 Step 1
        '70以上なら
        If 70 <= Cells(i, 3) Then
            '「合格」と入力
            Cells(i, 4) = "合格"
        End If
    Next i
End Sub

【解答例2】加算値記載なしversion

Sub TestForNext2_2()
    'Forで使用する変数iを作成
    Dim i As Long
    'i(初期値4)が4～7の間、繰り返す
    For i = 4 To 7
        '70以上なら
        If Cells(i, 3) >= 70 Then
            Cells(i, 4) = "合格"
        End If
    Next
End Sub

【解説】

次は実行前の状態です。

実行すると下記の画像のように、D5とD7に「合格」と入力されればOKです。