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

网友投稿 525 2022-10-07

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

本文为:《别怕,Excel VBA其实很简单(第3版)》随书问题参-

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

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

用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小时内删除侵权内容。

上一篇:用Do Until循环语句解决问题
下一篇:wps中如何绘制三线表(wps中怎么画三线表)
相关文章