VBA代码编写中IF、ELSEIF判断语句的使用

VBA代码编写中IF、ELSEIF判断语句的使用

在使用EXCEL公式时IF判断语句是最常被用到的语句。但是当条件很多时使用嵌套结构会使公式显得冗长无比。此时可以通过在VBA中使用IF、ELSEIF判断语句进行简化。

在EXCEL中构建数据区域。IF语句应该是用来做判断的，所以要对数据进行判断。

之后将文件另存为xlsm格式。

打开xlsm文件，查看工具栏是否有“开发工具”，如果没有则要在EXCEL选项中进行勾选。

点击开发工具下的Visual Basic或者使用ALT与F11组合按键进入VBA模式。双击SHEET1开始写代码。

输入如下代码

Sub judge()

If Sheet1.Range("B2") >= 90 Then

Sheet1.Range("B3") = "优秀"

ElseIf Sheet1.Range("B2") >= 80 Then

Sheet1.Range("B3") = "良好"

ElseIf Sheet1.Range("B2") >= 60 Then

Sheet1.Range("B3") = "及格"

Else

Sheet1.Range("B3") = "不及格"

End If

End Sub

这段代码实际就是IF函数的嵌套使用，Elseif发挥的就是嵌套的作用，但是用代码写出来更加清晰明了。

输入完成以后保存代码。并返回主界面。在开发工具下插入窗体控件并进行指定宏操作，将控件链接到刚才创建的judge代码中。

点击刚才创建的宏按钮，观看运行效果。可以看到输入分数以后，进行判断，结果准确无误。