用Do While语句批量为成绩评定等次

用Do While语句批量为成绩评定等次

本文为：《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

解决这个问题的方法很多。如果写入单元格中的均是0到100之间的数据，使用Do While语句解决，可以将代码写为：

1、使用开头判断式的Do While语句

Sub 批量为成绩评定等次()Dim i As Bytei = 2Do While Cells(i, "A").Value <> ""Select Case Range("B" & i).ValueCase Is >= 90Range("C" & i).Value = "优秀"Case Is >= 80Range("C" & i).Value = "良好"Case Is >= 60Range("C" & i).Value = "及格"Case ElseRange("C" & i).Value = "不及格"End Selecti = i + 1LoopEnd Sub

2、使用结尾判断式的Do While语句

Sub 批量为成绩评定等次()Dim i As Bytei = 2DoSelect Case Range("B" & i).ValueCase Is >= 90Range("C" & i).Value = "优秀"Case Is >= 80Range("C" & i).Value = "良好"Case Is >= 60Range("C" & i).Value = "及格"Case ElseRange("C" & i).Value = "不及格"End Selecti = i + 1Loop While Cells(i, "A").Value <> ""End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。