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的...
VBA SELECT CASE is a statement to test multiple conditions. In this statement, you can specify one condition and then specify a code to execute if that condition is true and then specify a second condition and a code to run if that condition is true. In this way, you can specify multipl...
另外在实际使用中，也会在case内部的代码块里嵌套IF，或者在嵌套一个其他的Select Case语句，只是注意嵌...
我们还可以嵌套使用Select Case结构,如下面的示例代码所示: 示例代码4:嵌套的Select Case结构 Sub qtWithSelectCase() Select Case Range("A1").Value Case "工作表" Select Case Worksheets.Count Case 1 MsgBox "工作簿中有1个工作...
Select Case…Case…End Select语句 当一个表达式与几个不同的值相比较时，可以使用Select Case分支判断语句替换使用在If…Then…Else…End If语句中的ElseIf。If…Then…Else…End If语句会计算每个ElseIf语句的不同的表达式。在控制结构的顶部，而Select Case 语句只计算表达式一次。在下面的示例中，Select Case...
End Select End Sub 如果单元格A1中是数值1或3或5,运行代码后就会弹出“单元格A1中的值是5以内的奇数.”的消息框。 示例代码3:逗号分隔字符 Sub CharWithSelectCase() Select Case Range(“A1”).Value Case “A”, “E”,”I”, “O”, “U” ...
1 1.点击鼠标右键选择新建一个Excel表格。2 2.根据自身的需要输入对应项目，然后制定判断规则。作者这里为90以上为优秀；80到90为良好；70到80为中等；60到70为一般。3 3.选择开发工具选项中的“宏”选项。4 4.输入判断规则的名称，然后点击“创建”按钮。5 5.写入判断成绩的代码。主要利用的代码为Select case...
一、Case 语句支持 以下判断 Case 3 '单条件 Case 3,5,7 '多条件 Case >7 '大于小于 Case 1 to 100 '一个范围 二、但Select Case 无法直接支持 Like模糊搜索 本人有一点代码洁癖,有时写完的代码经过Indent代码美化工具美化后,还是看着不爽,如下面的If条件太多,看着就非常纠结,总是忍不住想改得再清晰一点...
Select Case Range('A1').Value Case 1, 3, 5: MsgBox '单元格中的数字是5以内的奇数.' End Select End Sub 说明: 如果将Case子句与后面的指令写在一行上,那么必须在它们之间加上冒号(:)。 --- 通过下列方式可以更快地了解完美Excel更新: 关注《完美Excel》微信公众账号: 方法1—点击右上角的按钮...
Case 条件1 处理1 Case 条件2 处理2 …… Case Else 其他处理 End Select 语法中,在Select Case后面放置表达式部分,并按此表达式进行分别处理。如果与所有条件都不符合,就会执行Case Else中的处理,而且,Case的分支无数量限制。 2、举个例子 例1:“A1:A10单元格”区域的值如果为70以上就填充蓝色,如果为50以上...