Vòng lặp for trong VBA

Vòng lặp for trong VBA được sử dụng để lặp một phần của chương trình nhiều lần. Nếu số lần lặp là cố định thì vòng lặp for được khuyến khích sử dụng, còn nếu số lần lặp không cố định thì nên sử dụng vòng lặp while hoặc do while.

Cú pháp

Dưới đây là cú pháp của một vòng lặp for trong VBA.

For counter = start To end [Step stepcount]
   [statement 1]
   [statement 2]
   ....
   [statement 10]
   [Exit For]
   [statement 11]
   [statement 22]
   ....
   [statement n]
Next

Trong đó:

[Step stepcount] là tùy chọn, nó rất hữu ích khi đếm lùi, đếm nhiều đơn vị một vòng lặp. Hãy xem các ví dụ dưới đây để hiểu các trường hợp sử dụng vòng lặp for trong VBA.

Ví dụ về vòng lặp for trong VBA

Ví dụ 1: Sử dụng từ khóa Step 2 để tăng biến đếm 2 đơn vị sau mỗi vòng lặp.

Sub ForExample1()
    Dim i As Integer

    For i = 0 To 10 Step 2
        MsgBox "Gia tri cua i la: " & i
    Next
End Sub

Kết quả:

Gia tri cua i la: 0
Gia tri cua i la: 2
Gia tri cua i la: 4
Gia tri cua i la: 6
Gia tri cua i la: 8
Gia tri cua i la: 10

Ví dụ 2: Sử dụng từ khóa Step -2 để giảm biến đếm 2 đơn vị sau mỗi vòng lặp.

Sub ForExample2()
    Dim i As Integer

    For i = 10 To 0 Step -2
        MsgBox "Gia tri cua i la: " & i
    Next
End Sub

Kết quả:

Gia tri cua i la: 10
Gia tri cua i la: 8
Gia tri cua i la: 6
Gia tri cua i la: 4
Gia tri cua i la: 2
Gia tri cua i la: 0

Ví dụ 3: không cần sử dụng từ khóa Step, biến đếm i tăng dần từ 1 đến 5.

Sub ForExample3()
    Dim i As Integer

    For i = 1 To 5
        MsgBox "Gia tri cua i la: " & i
    Next
End Sub

Kết quả:

Gia tri cua i la: 1
Gia tri cua i la: 2
Gia tri cua i la: 3
Gia tri cua i la: 4
Gia tri cua i la: 5

Ví dụ về thoát vòng lặp for trong VBA

Từ khóa Exit For được sử dụng để thoát vòng lặp for trong VBA.

Ví dụ:

Sub ForExample4()
    Dim i As Integer

    For i = 0 To 10
        If i > 3 Then
            Exit For
        Else
            MsgBox "Gia tri cua i la: " & i
        End If
    Next
End Sub

Kết quả:

Gia tri cua i la: 0
Gia tri cua i la: 1
Gia tri cua i la: 2
Gia tri cua i la: 3