Vòng Lặp For Trong VBA - VietTuts

Trang chủ » Cú Pháp Vba » Vòng Lặp For Trong VBA - VietTuts

Có thể bạn quan tâm

Mệnh đề if-else trong VBA Vòng lặp For Each 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.

Nội dung chính

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

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ò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 Mệnh đề if-else trong VBA Vòng lặp For Each trong VBA

Từ khóa » Cú Pháp Vba