1.Câu lệnh FOR
1.1. For ... Next
For <biến đếm>=<điểm đầu> To <Điểm cuối>[Step<bước nhảy>]
<khối lệnh>
Next [<biến đếm>]
Vi dụ 1:
Sub vi_du1()
Dim i As Integer
For i = 1 To 10
Cells(i + 2, 2) = i
Next i
End Sub
1.2.For Each <phần tử> In <nhóm>
<khối lệnh>
Next <phần tử>
Ví dụ:
Sub vd()
Dim Max As Range
Dim C, D As Integer
Set Max = Range("c2:e4")
D = 0
For Each C In Max
If C.Value < 40 Then
D = D + 1
End If
Next C
MsgBox "Gia tri moi cua D la " & D
End Sub
2. Câu lệnh Do
2.1. Do While ... Loop
Mẫu tổng quát:
Do While <điều kiện>
<Khối lệnh>
Loop
Ví dụ:
Đoạn dưới đây đánh số thứ tự từ 1 đến 10
Sub vi_du2()
Dim i As Integer
i = 1
Do While i <= 10
Cells(i + 2, 1) = i
i = i + 1
Loop
End Sub