Excel：VBA 数据分析 写一个for循环的单元格判断程序（四）

还是那张测试表。

本文要实现的逻辑是：在 F列 实现对 E列 的判断并显示结果。当E列 的单元格 分数 大于 90 分时，则 F列 应该显示判断结果为优秀；当 E列 的单元格 分数 大于 80 小于 90 分时，判断结果为良好；当E列 的单元格 分数 小于 80 分时，显示的判断结果为 一般。

VBA代码如下（还是采用双击触发程序的函数）：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim total As Integer
    Dim counter As Integer
    Range("A1").CurrentRegion.Select
    total = Selection.Rows.Count '统计列数
    For counter = 2 To total
        If (Sheet1.Cells(counter, 5) >= 90) Then
            Sheet1.Cells(counter, 6) = "优秀"
        ElseIf (Sheet1.Cells(counter, 5) < 90 And Sheet1.Cells(counter, 5) >= 80) Then
            Sheet1.Cells(counter, 6) = "良好"
        ElseIf (Sheet1.Cells(counter, 5) < 80) Then
            Sheet1.Cells(counter, 6) = "一般"
        End If
        Next counter
    
End Sub

然后执行效果如下：双击触发程序。