Vòng Lặp Và Điều Kiện Trong VBA: For, Do While, If Then Else

Sub XepLoai()
    Dim diem As Double
    diem = Range("B2").Value
    
    If diem >= 8 Then
        Range("C2").Value = "Giỏi"
    ElseIf diem >= 6.5 Then
        Range("C2").Value = "Khá"
    ElseIf diem >= 5 Then
        Range("C2").Value = "Trung bình"
    Else
        Range("C2").Value = "Yếu"
    End If
End Sub

Sub TinhThue()
    Dim mucLuong As String
    mucLuong = Range("A2").Value
    
    Select Case mucLuong
        Case "Bậc 1"
            Range("B2").Value = 0.05
        Case "Bậc 2"
            Range("B2").Value = 0.1
        Case "Bậc 3"
            Range("B2").Value = 0.15
        Case Else
            Range("B2").Value = 0.2
    End Select
End Sub

Sub TinhTong()
    Dim i As Long, tong As Double
    tong = 0
    
    For i = 2 To 100
        tong = tong + Cells(i, 3).Value
    Next i
    
    Cells(101, 3).Value = tong
End Sub

Sub ToMauDongAm()
    Dim cell As Range
    
    For Each cell In Range("C2:C100")
        If cell.Value < 0 Then
            cell.Font.Color = RGB(255, 0, 0)
            cell.Font.Bold = True
        End If
    Next cell
End Sub

Sub DocDuLieuDenKhiTrong()
    Dim i As Long
    i = 2
    
    Do While Cells(i, 1).Value <> ""
        ' Xử lý dữ liệu ở dòng i
        Cells(i, 5).Value = Cells(i, 3).Value * Cells(i, 4).Value
        i = i + 1
    Loop
    
    MsgBox "Đã xử lý " & (i - 2) & " dòng dữ liệu"
End Sub