分岐とループ

この記事で使用した単純なプログラムでは、コードを 1 行ずつ、上から下へ順番に実行しました。プログラミングの真価は、1 つ以上の条件を指定して、どのコード行を実行するかをその条件に基づいて決定できることにあります。同じ操作を多くの回数繰り返すことができる場合は、この機能をさらに拡張できます。以下の例は、Macro1 を拡張します。

Sub Macro1()
    If Worksheets(1).Range("A1").Value = "Yes!" Then
        Dim i As Integer
        For i = 2 To 10
            Worksheets(1).Range("A" &amp; i).Value = "OK! " &amp; i
        Next i
    Else
        MsgBox "Put Yes! in cell A1"
    End If
End Sub

Sub Macro1()

If Worksheets(1).Range("A1").Value = "Yes!" Then

Dim i As Integer

For i = 2 To 10

Worksheets(1).Range("A" & i).Value = "OK! " & i

Next i

Else

MsgBox "Put Yes! in cell A1"

End If

End Sub

このコードを Visual Basic Editor に入力するか貼り付けて、実行します。表示されるメッセージボックスの指示に従い、セル A1 のテキストを Wow! から Yes! に変更し、コードを再実行してループの効果を確かめてください。 ★上のセグメントで翻訳済み★ ★上のセグメントで翻訳済み★ このコードスニペットは、変数、分岐、およびループの働きを具体的に示します。実際の動作を確かめた後でコードを読み解いて、各行の実行でどのような処理が行われるのかを確認してください。

Office VBA の基礎知識

Office VBA リファレンストピック

いいね:

コメント

共有:

いいね:

コメント