Excel（VBA教程：使用case语句实现多分支判断执行）

1、Excel VBA的case判断语法结构

Select Case 变量或表达式

Case Is 判断条件1

如果判断条件1成立为真时执行的代码段

Case Is 判断条件2

如果判断条件2成立为真时执行的代码段

Case Is 判断条件N

如果判断条件N成立为真时执行的代码段

Case else

如果以上判断条件都不成立时执行的代码段

End Select

就是对变量/表达式进行判断，满足其中一个case的要求就执行对应case的代码段

2、演示实例需求

根据班级学生成绩判断优（大于等于90分）、良（大于等于80且小于90）、及格（大于等于60且小于80）、不及格（小于60）

3、我们用Excel VBA的case判断实现的程序代码

Sub pb()

Dim i As Integer

Dim rg As Range

For i = 2 To 10

Set rg = Range("c" & i)

Select Case rg

Case Is >= 90

rg.Offset(0, 1) = "优"

Case Is >= 80

rg.Offset(0, 1) = "良"

Case Is >= 60

rg.Offset(0, 1) = "及格"

Case Else

rg.Offset(0, 1) = "不及格"

End Select

Next

End Sub

这里的for循环就是循环分数列单元格

Range("c" & i)就是分数单元格，这里赋值给了rg

Select Case rg就是判断rg的值

Case Is >= 90判断rg大于等于90的时候，rg.Offset(0, 1) = "优"给分数单元格的后移一列单元格赋值“优”

Case Is >= 80判断rg大于等于80且小于90的时候，rg.Offset(0, 1) = "良"给分数单元格的后移一列单元格赋值“良”

Case Is >= 60判断rg大于等于60且小于80的时候，rg.Offset(0, 1) = "及格"给分数单元格的后移一列单元格赋值“及格”

Case else判断rg小于60的时候，rg.Offset(0, 1) = "不及格"给分数单元格的后移一列单元格赋值“不及格”

4、看看VBA代码执行后的效果

判断准确无误，你学会了么？

~如果您喜欢的话，欢迎点赞+关注+留言哦，感谢您的支持！