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...
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 条件表达式1 (或者使用 Case 1 To 3, Case 1,2,3之类的语句) Range("C2").Value = "优秀" Case Is条件表达式2 Range("C2").Value = "良好" Case Is 表达式3 Range("C2").Value = "及格" ... Case Else Range("C2").Value = "不及格" End Select Select 语句一旦找到匹配的值后就...
在语法上，SelectCase的花样更多，比如 Select Case True/Flse，Case分支语句中可以用Is关键字，或直接用比较运算符指定范围，还可以指定多个不连续或连续范围等。SelectCase可以匹配更复杂的代码逻辑，因此代码写起来比较灵活和方便。但，这并非没有代价，就上例而言，Is关键词指定的比较范围，是调用函数实现的(其实...
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 ...
case is > 3 case is <= 6 所以,这个is就跟上面那个to一样,就是个命令词而已,没啥特殊的。如果你非要解释,那它就是代表了这个数(即select case后面那个的值)本身。 Dim number As Integer = 8 Select Case number Case 1 To 5 Debug.WriteLine("1到5之间") ...
Excel VBA---之判断语句select 简介 select case 语句 ：根据表达式的值来决定执行语句中的其中一个。工具/原料 Excel软件 方法/步骤 1 select case 语句 ：根据表达式的值来决定执行语句中的其中一个。2 1、在VBE中编写代码：Sub select单条件()i = 1Select Case iCase Is > 0 Debug.Print ("i>0")Ca...
Case Is >= 50 Cells(y, 1).Interior.ColorIndex = 6 Case Else Cells(y, 1).Interior.ColorIndex = 3 End Select Next End Sub 程序分析:首先使用Cells表示单元格,然后用“For…Next”循环语句从第以行到第10行检查Cells(y,1)的值,如果该值为70以上(这种类型的比较要使用Is来写成“Is>=70” ),就...
VBA Select Case详解 📌 Select Case语句在VBA中用于根据不同条件执行不同的代码块。其结构如下:1️⃣ 首先,定义一个变量(例如xxx),这个变量将作为选择的基础。2️⃣ 然后,使用Case关键字列出可能的条件(例如表达式列表-1、表达式列表-2等)。每个条件对应一个子语句,当变量的值满足该条件时,就执行相应...
Case Is >= 80 '成绩大于等于80 MsgBox "优好" Case Is >= 60 '成绩大于等于60 MsgBox "及格" Case Else '上述都不满足,不及格 MsgBox "不及格" End Select 上面三种形式,可以同时出现在一个CASE中,多个测试表达式列表之间用逗号分隔。...