● ループ処理おまとめ ●
For 〜 Next 文は簡単なんだけど、Do 〜 Loop やら While やらはまったく覚えられん。ということでおまとめ〜。個人用。

For 〜 Next 文
 
Dim i As Long
For i = 0 To 4
    Debug.Print i;
Next i

[結果]
0  1  2  3  4
  
Dim i As Long
For i = 1 To 7 step 3
    Debug.Print i;
Next i

[結果]
1  4  7
  
Dim i As Long
For i = 11 To 2 step -3
    Debug.Print i;
Next i

[結果]
11  8  5  2
  
 
Do 〜 Loop 文
 
Dim i As Long
Do
    Debug.Print i;
    i = i + 1
    If i > 5 Then Exit Do 
Loop

[結果]
0  1  2  3  4  5
  
Dim i As Long
Do While i < 5
    Debug.Print i;
    i = i + 1
Loop


[結果]
0  1  2  3  4
 Dim i As Long
i = 9
Do Until i < 5
    Debug.Print i;
    i = i - 1
Loop

[結果]
9  8  7  6  5
 Dim i As Long
Do
    Debug.Print i;
    i = i + 1
Loop While i < 5


[結果]
 0  1  2  3  4
 Dim i As Long
Do
    Debug.Print i;
    i = i + 1
Loop Until i > 5


[結果]
 0  1  2  3  4  5
 
While 文
 
Dim i As Long
While i < 6
    Debug.Print i;
    i = i + 1
Wend

[結果]
0  1  2  3  4  5
  

戻る