8.和Case子句一起使用Is 有时候,作决定是基于测试表达式的条件,例如它是否大于,小于,等于或使用一些其它的关系运算符(参见表5-1)。关键字Is使你能够在Case子句里使用条件表达式。使用关键字Is的Select Case语句的语法如下: Select Case 测试表达式 Case Is 条件1 如果条件1为真时执行的语句 Case Is 条件2 如果...
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的...
MsgBox "周末到,好好休息!" Case Else MsgBox "未知的日期格式哦。" End Select ```2️⃣ 根据成绩判断等级: ```vba Dim score As Integer score = 85Select Case score Case Is >= 90 MsgBox "优秀!" Case Is >= 80 MsgBox "良好!" Case Is...
Case Is >= 60 '成绩大于等于60 MsgBox "及格" Case Else '上述都不满足,不及格 MsgBox "不及格" End Select 上面三种形式,可以同时出现在一个CASE中,多个测试表达式列表之间用逗号分隔。 Dim Chenji As Integer Chenji = 78 Select Case...
VBA Select Case详解 📌 Select Case语句在VBA中用于根据不同条件执行不同的代码块。其结构如下:1️⃣ 首先,定义一个变量(例如xxx),这个变量将作为选择的基础。2️⃣ 然后,使用Case关键字列出可能的条件(例如表达式列表-1、表达式列表-2等)。每个条件对应一个子语句,当变量的值满足该条件时,就执行相应...
“Case Is <60”语句在第一个条件“Case Is < 0, Is >100”基础上再进行比较,那么成绩“-10”将不符合“<60”这个条件,因为Select Case在处理多条件时,总是按从上到下的顺序处理。如果改变本例的条件顺序,可能产生不同的运算结果。 “Case Else”语句表示如果不符合前面的所有条件,则执行它后面的语句,本...
Case Is > 25 lngDays = 20 End Select MsgBox "工龄:" &lngYears & vbCrLf & "年休天数:" &lngDays End Sub 同样,您可以在工作表单元格A1中输入代表工龄的数字,运行代码后,会显示相应的年休天数,就像在上篇文章中所示的图一...
Select Case Performance '考察Performance的数值 Case 1 '如果Performance的值等于1 Bonus = Salary * 0.1 Case 2, 3 '如果Performance的值等于2或者3 Bonus = Salary * 0.09 Case Is > 8 '如果Performance的值大于8 Bonus = 100 Case Else '如果Performance的值不等于1或2或3，也不大于8 Bon...
可以看到，Select Case结构把 If结构中的条件表达式拆分了，即把变量和判断条件分开了。我们看前一个例子，使用Select Case结构，代码如下：Sub MyCode()Dim i As IntegerFor i = 2 To 10Select Case Cells(i, "B").ValueCase Is >= 85Cells(i, "D") = "优"Case Is >= 75Cells(i, "D") = "良...
VBA中的Select Case语句 在VBA(Visual Basic for Applications)编程中,Select Case语句用于根据一个表达式的值执行不同的代码块。它类似于其他编程语言中的switch或case语句,提供了一种简洁且易于阅读的方式来处理多个条件判断。 基本语法 Select Case expression Case value1 ' 当expression = value1时执行的代码 Case...