Excel点点通
优秀的Excel资源分享网站

VBA Select Case语句用法与案例教程

当需要依次检测一个表达式的多个值,并根据每个值来执行不同的操作时,Select Case可以提供更清晰的结构。下面我们一起来看看VBA Select Case语句用法与案例教程吧。

VBA Select Case语句用法与案例教程

Select Case结构的格式如下:

VBA Select Case语句用法与案例教程

案例1:使用Select Case结构处理多个条件

VBA Select Case语句用法与案例教程

如果在每个Case下面只执行一条语句,为了使代码结构更紧凑,可以将执行的语句与Case语句合并为一行,两个语句之间使用分号分隔,如下所示:

VBA Select Case语句用法与案例教程

Select Case结构中的每个Case语句都可以对多个值进行检测,各个值之间以逗号分隔。

案例2:验证Excel程序版本号

下面的代码检测当前Excel程序的版本,如果是Excel 2007/2010/2013/2016,则显示“Excel 2003之后的版本”的提示信息,如果是Excel 2003或更早版本,则显示“Excel 2003或更早版本”的提示信息。本例中用到了Excel对象模型中的Application对象,它代表Excel程序本身。Version是Application对象的一个属性,Application.Version表示Excel程序的版本号。

VBA Select Case语句用法与案例教程

还可以在Case语句中使用To关键字表示要检测的值的范围,或者使用Is关键字与指定的值进行比较。

案例3:计算折扣率

下面的代码首先检测用户输入的内容是否是数字,如果不是则会显示一条提示信息,然后自动退出当前程序。Exit Sub语句用于在满足条件时退出当前Sub过程。如果输入的是数字,则会使用Select Case结构检测该数字的大小,并返回其所在数值范围内对应的折扣率。在Case语句中使用了Is和To关键字来指定不同的数值范围。

VBA Select Case语句用法与案例教程

Select Case结构也可以嵌套使用,即在一个Select Case结构中包含另一个Select Case结构。

案例4:查询商品定价

下面的代码可以实现根据用户输入的食品的类别和名称来显示对应的食品定价。如果输入的内容不在指定范围内,则会显示“输入的内容无效”的提示信息。本例使用了嵌套的Select Case结构,外层的Select Case结构用于查找食品的类别,内层的Select Case结构用于查找具体的食品名称,每个Case语句返回相应食品的定价,最后使用MsgBox函数在对话框中显示找到的食品的名称和定价。

VBA Select Case语句用法与案例教程

赞(683)
未经允许不得转载:Excel点点通 » VBA Select Case语句用法与案例教程

评论 抢沙发

评论前必须登录!

 

优秀的Excel在线学习和资源分享网站

支持快讯、专题、百度收录推送、人机验证、多级分类筛选器,适用于垂直站点、科技博客、个人站,扁平化设计、简洁白色、超多功能配置、会员中心、直达链接、文章图片弹窗、自动缩略图等...

Excel学习路线

登录

找回密码

注册