Do While 循环批量为成绩评定等次

2024-01-03 11:18:28

在 Excel VBA 中使用 Do While 循环批量为成绩评定等次是一种高效且灵活的方法。本文将介绍如何使用 Do While 循环解决此问题，并提供一个示例代码。

Do While 语句简介

Do While 循环是一种循环结构，它会在条件为真时执行其循环体。其语法如下：

Do While 条件
    循环体
Loop

使用 Do While 循环为成绩评定等次

为了使用 Do While 循环批量为成绩评定等次，我们需要定义一个条件，该条件将检查当前成绩是否在指定范围内。以下是评定等次的范围：

90-100：优秀
80-89：良好
70-79：中等
60-69：及格
0-59：不及格

我们可以使用以下代码来实现这一逻辑：

Do While Not IsEmpty(Range("A2"))
    Select Case Range("A2").Value
        Case Is >= 90
            Range("B2").Value = "优秀"
        Case Is >= 80
            Range("B2").Value = "良好"
        Case Is >= 70
            Range("B2").Value = "中等"
        Case Is >= 60
            Range("B2").Value = "及格"
        Case Else
            Range("B2").Value = "不及格"
    End Select

    Range("A2").Offset(1, 0).Select
Loop

示例代码

下面的完整代码演示了如何使用 Do While 循环为一列成绩评定等次：

Sub GradeScores()
    Dim rng As Range

    ' 获取成绩列
    Set rng = Range("A2:A100")

    ' 使用 Do While 循环遍历成绩列
    Do While Not IsEmpty(rng.Cells(1, 1))
        Select Case rng.Cells(1, 1).Value
            Case Is >= 90
                rng.Cells(1, 2).Value = "优秀"
            Case Is >= 80
                rng.Cells(1, 2).Value = "良好"
            Case Is >= 70
                rng.Cells(1, 2).Value = "中等"
            Case Is >= 60
                rng.Cells(1, 2).Value = "及格"
            Case Else
                rng.Cells(1, 2).Value = "不及格"
        End Select

        ' 移动到下一行
        rng.Offset(1, 0).Select
    Loop
End Sub