メニュー 表示 非表示

ループ処理@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)




Copyright (C) Excelマクロ・VBAのお勉強. All Rights Reserved.