VBA循环语句Do...Loop判断等级
1、如下图所示，根据右侧所列标准，判断A列所示分数所属等级，并将结果放置在B列。
以下我们提供三种判断等级的方法代码，分别是：循环语句Do...Loop、Do while Loop 、Do until Loop三种方式的代码。
2、首先，我们要看下自己电脑是否有【开发工具】选项卡，没有的话，需要点击【文件】/【选项】，在弹出的【excel选项】框内点击【自定义功能区】，将【开发工具】前面的勾勾选上就可以了。
3、一、用Do...Loop循环语句：
点击【开发工具】/【visual basic】，再代码窗口处录入vba代码（如果代码窗口没能显示出来，请点击【视图】/【代码窗口】，从而调出【代码窗口】）：
Sub 循环1()
Dim a%
a = 1
Do
a = a + 1
If a > 20 Then
Exit Do
ElseIf Cells(a, 1) >= 90 Then Cells(a, 2) = "优秀"
ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"
ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"
Else
Cells(a, 2) = "较差"
End If
Loop
End Sub
4、在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环1】的宏指定给这个矩形，点击【确定】。
点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
5、二、用Do while Loop循环语句：
点击【开发工具】/【visual basic】，再代码窗口处录入vba代码（如果代码窗口没能显示出来，请点击【视图】/【代码窗口】，从而调出【代码窗口】）：
Sub 循环2()
Dim a%
a = 1
Do While Cells(a, 1) <> ""
a = a + 1
If Cells(a, 1) >= 90 Then
Cells(a, 2) = "优秀"
ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"
ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"
Else
Cells(a, 2) = "较差"
End If
Loop
End Sub
6、在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环2】的宏指定给这个矩形，点击【确定】。
点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
7、三、用Do until Loop循环语句：
点击【开发工具】/【visual basic】，再代码窗口处录入vba代码（如果代码窗口没能显示出来，请点击【视图】/【代码窗口】，从而调出【代码窗口】）：
Sub 循环3()
Dim a%
a = 1
Do Until Cells(a, 1) = ""
a = a + 1
If Cells(a, 1) >= 90 Then
Cells(a, 2) = "优秀"
ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"
ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"
Else
Cells(a, 2) = "较差"
End If
Loop
End Sub
8、在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环3】的宏指定给这个矩形，点击【确定】。
点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
