如果判断条件1成立为真时执行的代码段 Case Is 判断条件2 如果判断条件2成立为真时执行的代码段 Case Is 判断条件N 如果判断条件N成立为真时执行的代码段 Case else 如果以上判断条件都不成立时执行的代码段 End Select 就是对变量/表达式进行判断，满足其中一个case的要求就执行对应case的代码段 2、演示实例需求...
我们看前一个例子，使用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") = "良"Case Is >= 60Cells(i, "D") = "及格"Case ElseCells(i, "D") = "不及...
3️⃣ 如果变量的值同时满足多个条件,只会执行第一个匹配的条件对应的子语句,后续的条件不会被执行。4️⃣ 如果变量的值不满足任何列出的条件,那么会执行Case Else后面的子语句。Case Else没有表达式列表,它作为默认条件存在。🔍 关于表达式列表,可以使用范围比较(例如xx To xx)或逻辑比较(例如Is =xx,Is...
但用户可能会误输入1到3范围以外的数值使程序产生错误那么利用caseelse语句来限制且返回到inputbox语句处让用户重新录入直到数值处于要求的范围内为止这是最理想的处理方式 说说VBA中的SelectCase语句 Select Case Select Case Select Case testexpression [Case expressionlist-n [statements-n]] ... [Case Else [...
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 Bonus = 0 End Select End Function ...
Case Else MsgBox "单元格A1中不是大写元音字母." End Select End Sub 如果单元格A1中是字母“A”、“E”、“I”、“O”、“U”之一,运行代码后就会弹出“单元格A1中是大写元音字母”的消息框。 我们还可以嵌套使用Select Case结构...
为了避免难以弄清的复杂的嵌套的If语句,你可以使用Select Case语句代替。它的语法为: Select Case 测试表达式 Case 表达式1 如果表达式1匹配测试表达式的语句 Case 表达式2 如果表达式2匹配测试表达式的语句 Case 表达式N 如果表达式N匹配测试表达式的语句 Case Else ...
今天我们聊聊Select Case语句,在这些方面可以弥补IF…Then..Else不足。 先看看Select case的语法: Select Case 测试表达式 Case 表达式列表1 语句1 Case 表达式列表2 语句2 Case 表达式列表n 语句n Case Else 语句 End Select 测试表达式:必要参...
Case Else是可选的,用于处理所有其他未匹配到的情况。 多个case语句可以根据需要进行扩展,可以有任意数量的case语句。每个case语句可以包含一行或多行代码。 多个case语句在VBA脚本中的应用场景很广泛。它可以用于根据不同的条件执行不同的操作,例如根据用户输入的选项执行相应的功能,根据不同的条件处理不同的数据等。