操作方法
如下图所示，根据右侧所列标准，判断A列所示分数所属等级，并将结果放置在B列。 以下我们提供三种判断等级的方法代码，分别是：循环语句Do...Loop、Do while Loop 、Do until Loop三种方式的代码。
首先，我们要看下自己电脑是否有【开发工具】选项卡，没有的话，需要点击【文件】/【选项】，在弹出的【excel选项】框内点击【自定义功能区】，将【开发工具】前面的勾勾选上就可以了。
一、用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
在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环1】的宏指定给这个矩形，点击【确定】。 点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
二、用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
在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环2】的宏指定给这个矩形，点击【确定】。 点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
三、用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
在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环3】的宏指定给这个矩形，点击【确定】。 点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。