Select Case…Case…End Select语句 当一个表达式与几个不同的值相比较时，可以使用Select Case分支判断语句替换使用在If…Then…Else…End If语句中的ElseIf。If…Then…Else…End If语句会计算每个ElseIf语句的不同的表达式。在控制结构的顶部，而Select Case 语句只计算表达式一次。在下面的示例中，Select Case语...
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 Else [语句块] ] End Select 说明: 当某个Case“表达式值”满足“条件(表达式)”的结果时,执行相应的语句块,并退出Select Case结构。如果没有满足“条件(表达式)”的结果时,就执行Case Else后的语句块。 方括号表示可选。Case...
工具/原料 Excel软件 方法/步骤 1 select case 语句 ：根据表达式的值来决定执行语句中的其中一个。2 1、在VBE中编写代码：Sub select单条件()i = 1Select Case iCase Is > 0 Debug.Print ("i>0")Case i < 0 Debug.Print ("i<0")Case i = 0 Debug.Print ("i=0")End SelectEnd Sub 3 ...
In SELECT CASE, 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
### 示例背景 假设我们有一个简单的Excel工作表,其中A列包含一些学生的分数。我们希望根据这些分数来评定他们的等级(例如:A, B, C, D, F)。我们可以使用`Select Case`语句来实现这一功能。 ### VBA代码示例 ```vba Sub GradeStudents() Dim score As Integer Dim grade As String Dim i As Integer ...
Case 1 to 100 '一个范围 二、但Select Case 无法直接支持 Like模糊搜索 本人有一点代码洁癖,有时写完的代码经过Indent代码美化工具美化后,还是看着不爽,如下面的If条件太多,看着就非常纠结,总是忍不住想改得再清晰一点,但无奈Case 语句中是不直接支持Case Like "*条件*",这样的语法,只有独辟蹊径了。
SelectCase是IF…Then…Else结构的一种变通形式,可使代码变得简练易读。但是,并不是所有的多分支结构均可用Select Case语句代替If语句。 语法: Select Case testexpression [Case expressionlist-n [statements-n]] ... [Case Else [elsestatements]] End Select Select Case语句的语法具有以下几个部分: testexpress...
1 1.点击鼠标右键选择新建一个Excel表格。2 2.根据自身的需要输入对应项目，然后制定判断规则。作者这里为90以上为优秀；80到90为良好；70到80为中等；60到70为一般。3 3.选择开发工具选项中的“宏”选项。4 4.输入判断规则的名称，然后点击“创建”按钮。5 5.写入判断成绩的代码。主要利用的代码为Select case...
Select Case i Case 2 To 4: Cells(2, 1).Font.Color = -1677 End Select 这段代码的功能是:当变量i的值在2到4之间时,将单元格A2的字体颜色设置为特定的颜色(此处颜色代码为-1677,代表红色,但在Excel VBA中通常使用RGB函数或ColorIndex来设置颜色,但-1677在某些环境中也可能被识别为红色)。 性能问题:...