ループ処理＠Excel マクロ・VBA
処理をループして繰り返します。
For Nextもしくは、Do Loopを利用します。
以下は、1～10までの数字の足し算を行っています。
For文は、ループを行うカウンタ変数がカウントされていきます。
Do Loopの場合は、自分でカウントするなどの処理が必要です。
Dim i As Integer
Dim sum As Integer
'For～Next
'Stepは省略可能、デフォルトで1
sum = 0
For i = 1 To 10 Step 1
sum = sum + i
Next
MsgBox (sum)
'Do～Loop
i = 1
sum = 0
Do While i <= 10
sum = sum + i
i = i + 1
Loop
MsgBox (sum)
|
