说说VBA中的Select Case语句

说说VBA中的Select Case语句

ID:39398758

大小:74.79 KB

页数:4页

时间:2019-07-02

说说VBA中的Select Case语句_第1页
说说VBA中的Select Case语句_第2页
说说VBA中的Select Case语句_第3页
说说VBA中的Select Case语句_第4页
资源描述:

《说说VBA中的Select Case语句》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、说说VBA中的SelectCase语句vbaifselectcase条件语句学习讲解说明it分类:ITSelectCase语句也是条件语句之一,而且是功能最强大的条件语句。它主要用于多条件判断,而且其条件设置灵活、方便,在工作中使用频率极高。本节介绍SelectCase语句的语法及应用案例.SelectCase语句的语法如下:SelectCasetestexpression[Caseexpressionlist-n[statements-n]]...[CaseElse[elsestatements]]EndSelectSelectCase语句包括

2、四部分,每部分详细含义如表38-1所示。表38-1SelectCase语句各部分含义部分描述testexpression必要参数。任何数值表达式或字符串表达式expressionlist-n如果有Case出现,则为必要参数。其形式为expression,expressionToexpression,Iscomparisonoperator。expression的一个或多个组成的分界列表。To关键字可用来指定一个数值范围。如果使用To关键字,则较小的数值要出现在To之前。使用Is关键字时,则可以配合比较运算符(除Is和Like之外)来指定一个数值范

3、围。如果没有提供,则Is关键字会被自动插入statements-n可选参数。一条或多条语句,当testexpression匹配expressionlist-n中的任何部分时执行elsestatements可选参数。一条或多条语句,当testexpression不匹配Case子句的任何部分时执行在以上语法列表中,省略号代表可以使用多个条件。只要有一个Case就需要有一个statements-n,表示条件及符合条件时的执行条件。其中elsestatements表示不符合指定条件时的执行语句,是可选参数。可以忽略elsestatements,也可以执行

4、一条或者一组语句,为了让程序能够处理一些不可预见的情况,尽量使用elsestatements语句处理不符合条件时该如何回应。在SelectCase的多个参数中,最复杂的是expressionlist-n部分,它有多种表达形式,包括:lExpression——直接声明一个条件值,例如5lexpressionToexpression——声明一个条件的范围,例如5-10lIscomparisonoperator——声明一种比较方式,例如is>5下面的实例可以展示参数中expressionlist-n部分的多种表达形式。实例1:多条件时间判断根据当前的时

5、间判断是上午、中午,还是下午、晚上、午夜。要求中条件比较多,使IF…Then…需要多层嵌套,而SelectCase语句会更简单。代码如下:___________________________________________________Sub时间()DimTimAsByte,msgAsStringTim=Hour(Now)SelectCaseTimCase1To11msg="上午"Case12msg="中午"Case13To16msg="下午"Case17To20msg="晚上"Case23,24msg="午夜"EndSelectMsgBox

6、"现在是:"&msgEndSub__________________________________________以上代码中,“Case1To11”表示当前时间在1点到11点,用于限定一个范围;“Case12”是表示当前时间为12点时返回True,可用于限制一个具体的值,或者多个值。如果需要罗列多个具体的值,那么需要在每个值之间使用逗号分隔,例如“Case23,24”。本例中不存在例外的情况,所以忽略“CaseElse”语句。实例2:根据成绩返回评语如果成绩小于60则返回“不及格”,60到80之间则返回“良”,80到99则返回“优”,100分则

7、返回“满分”,如果成绩大于100则是输入了错误值。利用一个Function过程来处理,其代码如下:________________________________________Function成绩(rngAsRange)SelectCaserngCaseIs<0,Is>100成绩="输入错误"CaseIs<60成绩="不及格"Case60成绩="及格"Case60To80成绩="良"Case81To99成绩="优"CaseElse成绩="满分"EndSelectEndFunction_______________________________

8、______以上代码中,Is关键词用于指定一种比较方式,后接Is和Like以外的比较运算符。本例中需要限制小于0和大于100两个条件,那

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。