VBA 中的 IF 语句

VBA中的IF语句是一种用于在程序中进行条件判断的语句。通过使用IF语句，我们可以根据某个条件的真假来决定程序中不同的操作。在本文中，我们将介绍IF语句的使用方法，并通过一个实际案例来演示其应用。

IF condition THEN
    '执行某些操作
ELSE
    '执行其他操作
END IF

Sub GradeClassification()
    Dim i As Integer
    Dim grade As Integer
    Dim gradeRange As String
    
    '设置成绩范围和相应等级
    Dim gradeRanges() As String
    Dim grades() As String
    gradeRanges = Split("90,80,70,60", ",")
    grades = Split("A,B,C,D", ",")
    
    '逐行遍历学生成绩
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        grade = Cells(i, 2).Value
        
        '根据成绩判断等级
        If grade >= Val(gradeRanges(0)) Then
            gradeRange = grades(0)
        ElseIf grade >= Val(gradeRanges(1)) Then
            gradeRange = grades(1)
        ElseIf grade >= Val(gradeRanges(2)) Then
            gradeRange = grades(2)
        Else
            gradeRange = grades(3)
        End If
        
        '在另一列中显示等级
        Cells(i, 3).Value = gradeRange
    Next i
End Sub