用Do Until循环语句解决问题

用Do Until循环语句解决问题

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

如果要用Do Until语句在工作簿中插入5张工作表，可以将代码写为：

1、使用开头判断式的语句结构

Sub 新建5张工作表()Dim i As Bytei = 1Do Until i > 5If i > 5 Then Exit DoWorksheets.AddLoopEnd Sub

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

Sub 新建5张工作表()Dim i As Bytei = 1DoIf i > 5 Then Exit DoWorksheets.AddLoop Until i > 5End Sub

如果单元格中保存的是0到100之间的数值，要用Do Until语句批量为成绩评定等次，可以将代码写为：

1、使用开头判断式的语句结构

Sub 批量为成绩评定等次_开头判断()Dim i As Bytei = 2Do Until 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、使用结尾判断式的语句结构

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 Until Cells(i, "A").Value = ""End Sub

答案不唯一，以上代码供参考。

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