关键字Is使你能够在Case子句里使用条件表达式。使用关键字Is的Select Case语句的语法如下: Select Case 测试表达式 Case Is 条件1 如果条件1为真时执行的语句 Case Is 条件2 如果条件2为真时执行的语句 Case Is 条件N 如果条件N为真时执行的语句 End Select 例如,我们来比较几个数字: Select Case myNumber Cas...
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的...
Case Is >= 60 MsgBox "及格" Case Else MsgBox "不及格" End Select 同时可以针对字符串指定范围和多重表达式。 在下面的例子中,Case 所匹配的字符串为:等于 everything、按英文字母顺序落入从 nuts 到 soup 之间的字符串、以及 TestItem...
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...
VBA Select Case详解 📌 Select Case语句在VBA中用于根据不同条件执行不同的代码块。其结构如下:1️⃣ 首先,定义一个变量(例如xxx),这个变量将作为选择的基础。2️⃣ 然后,使用Case关键字列出可能的条件(例如表达式列表-1、表达式列表-2等)。每个条件对应一个子语句,当变量的值满足该条件时,就执行相应...
Case 20 To 25 lngDays = 15 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...
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") = "良"Case Is >= 60Cells(i, "D") = "及格"Case ElseCells(i, "D") = "不及格"End SelectNext i ...
使用Select Case语句作为在 If... 中使用ElseIf的替代方法。然后。。。将一个表达式与多个不同值进行比较时的 Else 语句。If...Then...Else语句可计算每个ElseIf语句的不同表达式,Select Case语句则只在控制结构顶部计算一次表达式。 在以下示例中,Select Case语句计算传递给过程的参数。 请注意,每个Case语句可以...
VBA中的Select Case语句 在VBA(Visual Basic for Applications)编程中,Select Case语句用于根据一个表达式的值执行不同的代码块。它类似于其他编程语言中的switch或case语句,提供了一种简洁且易于阅读的方式来处理多个条件判断。 基本语法 Select Case expression Case value1 ' 当expression = value1时执行的代码 Case...