PDF转Excel:高效去除AI特征,实现数据自由编辑
525
2022-10-07
用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小时内删除侵权内容。