VBA中的Select Case语句多条件判断

点击上面"Excel公式与技巧"篮字关注公众号

点击文章底部左下角"阅读原文"即可学习视频
学习建议【看千遍不如操作练习一遍】
微信号【duanzhenyun】加微信邀请进交流群

推荐学习120个技巧（包含常用技巧，条件格式，数据透视表及打印技巧），超过6个小时视频讲解，点击文章底部阅读原文即可购买学习。

长按下面二维码；点击上面"识别图中二维码"然后再点关注，可以收到更多Excel教程；或者加入QQ交流群657629885或者加我微信邀请进微信群duanzhenyun，让我们一起学习Excel函数公式与技巧应用。

多条件判断Select Case语句

Select Case

复制代码

Case Is条件1

复制代码

结果1

复制代码

Case Is条件2

复制代码

结果2

复制代码

........

复制代码

Case Else

复制代码

结果N

复制代码

End Select

复制代码

如下图，根据成绩分数判断等级，要求如EF列

动画效果如下：

代码如下：

Sub 判断成绩1()

复制代码

Dim a As Byte

复制代码

Dim dzy As Byte

复制代码

dzy = 2

复制代码

For a = 2 To 9 Step 1

复制代码

Select Case Range("b" & dzy).Value

复制代码

Case Is >= 100

复制代码

Range("c" & dzy).Value = "满分"

复制代码

Case Is >= 80

复制代码

Range("c" & dzy).Value = "优秀"

复制代码

Case Is >= 60

复制代码

Range("c" & dzy).Value = "及格"

复制代码

Case Else

复制代码

Range("c" & dzy).Value = "不及格"

复制代码

End Select

复制代码

dzy = dzy + 1

复制代码

Next a

复制代码

End Sub

复制代码

还可以通过输入成绩直接判断，动画效果如下：

代码如下：

Sub 判断成绩2()

复制代码

Dim cj As Variant

复制代码

cj = InputBox("输入分数:")

复制代码

Select Case cj

复制代码

Case 0 To 59

复制代码

MsgBox "不及格"

复制代码

Case 60 To 79

复制代码

MsgBox "及格"

复制代码

Case 80 To 99

复制代码

MsgBox "优秀"

复制代码

Case 100

复制代码

MsgBox "满分"

复制代码

Case Else

复制代码

MsgBox "【输入有误】"

复制代码

End Select

复制代码

End Sub

复制代码

更多Excel函数使用及技巧可以打开公众号，点开历史文章，然后在顶部搜索技巧或者函数即可，如不会可点击红色字体跳转连接看操作步骤，如何利用公众号搜索功能查资料
喜欢本文，请点这里