立即注册 找回密码

QQ登录

只需一步,快速开始

查看: 1876|回复: 0

[Excel VBA 2013视频教程] 10-程序流程控制——Select Case语句介绍

[复制链接]

46

主题

0

回帖

982

积分

大学三年级

Rank: 4

积分
982
发表于 2017-9-20 01:35:37 | 显示全部楼层 |阅读模式
道勤网-数据www.daoqin.net
Select Case语句同IF语句一样,也是条件判断的语句。它的功能也可以用IF语句来完成。但是,当程序的条件太多,用IF语句来判断的话就存在一些不足了,比如程序是否美观?是否便于阅读?程序的执行效率等等。Select Case语句在执行的效率上,同IF语句相比,肯定是要快得多。

[Select Case语句的语法]
  Select Case 测试表达式
        Case 条件表达式1
              语句块1
        Case 条件表达式2
              语句块2
       Case 条件表达式3
              语句块3
       ......
       Case 条件表达式n
              语句块n
       Case Else
              语句块Else
     End Select.

当某个条件表达式与测试表达式相匹配时,则执行其后的语句块,否则执行Case Else后的语句块,然后结束Select Case块的执行。同IF语句一样,可以不要Case Else语句。
“如对A1单元格的学生成绩进行等级评定,小于等于30分的为差,30分到59分的为不及格,60分到79分的为及格,80分到89分的为良好,90到100分的为优秀。”用Select Case语句来解决就是:

  1. Sub test()
  2.   If [a1].Value = "" Then
  3.       MsgBox "A1单元格没有输入数字。"
  4.       Exit Sub '     退出程序
  5.   End If
  6.   Select Case [a1].Value
  7.       Case 0 To 29
  8.           MsgBox "差"
  9.       Case 30 To 59
  10.           MsgBox "不及格"
  11.       Case 60 To 79
  12.           MsgBox "及格"
  13.       Case 80 To 89
  14.           MsgBox "良好"
  15.       Case Else
  16.           MsgBox "优秀"
  17.   End Select
  18. End Sub
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

道勤网- 推荐内容!上一条 /2 下一条

!jz_fbzt! !jz_sgzt! !jz_xgzt! 快速回复 !jz_fhlb! !jz_lxwm! !jz_gfqqq!

关于我们|手机版|小黑屋|地图|【道勤网】-www.daoqin.net 软件视频自学教程|免费教程|自学电脑|3D教程|平面教程|影视动画教程|办公教程|机械设计教程|网站设计教程【道勤网】 ( 皖ICP备15000319号-1 )

GMT+8, 2024-3-19 16:19

Powered by DaoQin! X3.4 © 2016-2063 Dao Qin & 道勤科技

快速回复 返回顶部 返回列表