您的位置:首页 > 编程语言 > VB

VBA代码实例---根据分数判断等级

2017-04-12 18:12 826 查看
知识点:

for语句;连续区域表示;if语句嵌套;

要求:根据成绩填写等级,>=90位优秀,>=60为几个,其他为不及格;

表格示例:



代码:

Sub 等级判断()

Dim i As Integer
For i = 2 To Range("A1").CurrentRegion.Rows.Count

If Range("D" & i).Value >= 90 Then
Range("E" & i).Value = "优秀"
Else
If Range("D" & i).Value >= 60 Then
Range("E" & i).Value = "及格"
Else
Range("E" & i).Value = "不及格"
End If
End If

Next i

End Sub


Excel文件下载:

Excel示例文件
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: