[已解决]求统计与评价

cyj153

原来是函数运算的，现用VBA解决这种原函数运算效果，能否做到，求大家了，谢谢！

5NnRAn5a.rar (15.81 KB, 下载次数: 5)

2010-8-21 15:08 上传

点击文件名下载附件
求统计与评价

最佳答案

月排行榜 / 总排行榜

提拉米苏08

2010-8-21 22:11

Sub 合计()
    Dim x As Long
    Dim i As Long
    With Sheets("Sheet4")
    x = .Range("L65536").End(xlUp).Row
    For i = 70 To x
        If .Range("K" & i) < 60 Or Range("O" & i) > 10 Then
            .Range("P" & i) = 59
            .Range("Q" & i) = "不及格"
        Else
            .Range("P" & i) = Int(.Range("I" & i) * 0.1 + .Range("K" & i) * 0.3 + (.Range("J" & i) + .Range("L" & i) + .Range("M" & i)) * 0.2 + .Range("N" & i) + 0.5)
            Select Case .Range("P" & i)
            Case Is <= 60
                .Range("Q" & i) = "不及格"
            Case Is <= 75
                .Range("Q" & i) = "及格"
            Case Is <= 90
                .Range("Q" & i) = "良好"
            Case Is <= 100
                .Range("Q" & i) = "优"
            End Select
        End If
    Next
    End With
End Sub

跳转到最佳答案楼层

提拉米苏08

Sub 合计()
    Dim x As Long
    Dim i As Long
    With Sheets("Sheet4")
    x = .Range("L65536").End(xlUp).Row
    For i = 70 To x
        If .Range("K" & i) < 60 Or Range("O" & i) > 10 Then
            .Range("P" & i) = 59
            .Range("Q" & i) = "不及格"
        Else
            .Range("P" & i) = Int(.Range("I" & i) * 0.1 + .Range("K" & i) * 0.3 + (.Range("J" & i) + .Range("L" & i) + .Range("M" & i)) * 0.2 + .Range("N" & i) + 0.5)
            Select Case .Range("P" & i)
            Case Is <= 60
                .Range("Q" & i) = "不及格"
            Case Is <= 75
                .Range("Q" & i) = "及格"
            Case Is <= 90
                .Range("Q" & i) = "良好"
            Case Is <= 100
                .Range("Q" & i) = "优"
            End Select
        End If
    Next
    End With
End Sub