Select Case Chenji Case 90, 91, 92, Is > 92 MsgBox "优秀" Case 80, 81 To 85, Is > 85 MsgBox "良好" Case Is >= 60 MsgBox "及格" Case Else MsgBox "不及格" End Select 同时可以针对字符串指定范围和多重表达式。 在下...
End Select Select Case语句语法包含以下部分: Part说明 testexpression必填。 任何数值表达式或字符串表达式。 expressionlist-n在出现一个Case时是必需的。 以下一个或多个窗体的分隔列表:expression、expressionToexpression、Iscomparisonoperator表达式。 To关键字 (keyword)指定值的范围。 如果使用To关键字,则更小的值...
使用Select Case 語句來替代在 If... 中使用 ElseIf然後。。。將 一個表達 式與數個不同值進行比較時,會使用 Else 語句。 While If...然後。。。Else 語句可以針對每個 ElseIf 語句評估不同的運算式, Select Case 語句只會在控制項結構頂端評估運算式一次。 在下列範例中, Select Case 語句會評估傳遞至...
rg.Offset(0, 1) = "及格"Case Else rg.Offset(0, 1) = "不及格"End Select Next End Sub 这里的for循环就是循环分数列单元格 Range("c" & i)就是分数单元格，这里赋值给了rg Select Case rg就是判断rg的值 Case Is >= 90判断rg大于等于90的时候，rg.Offset(0, 1) = "优"给分数单元格的后...
Select Case语句的语法如下: Select Case testexpression [Case expressionlist-n [statements-n]] ... [Case Else [elsestatements]] End Select Select Case语句包括四部分,每部分详细含义如表38-1所示。 表38-1Select Case语句各部分含义 部分 描述 ...
For i = 1 To 10 If Cells(1, i) = "" Then Cells(2, i) = "无数据" Else Cells(2, i) = "有数据" End If Next End Sub 二、Select…Case语句 1、概念介绍 在武侠世界中,有北乔峰和南慕容势均力敌、旗鼓相当。在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。
Case vbNo MsgBox "You can open a new book manually later." Case vbCancel MsgBox "You pressed Cancel." End Select 4. 运行过程TestButtons三次,每次选择一个不同的按钮。 技巧5-6 通过Case Else捕捉错误 尽管在Select Case语句里使用Case Else不是强制的,使用它总是很好的,以防止万一测试有没有预料到...
流程图如下 重点解析，Select Case的判断流程类似于IF Elseif 但是他显然写起来很方便 当我们的判断条件...
Next [循环变量] 举例使用 For...Next 语句和 Select 语句完成批量成绩等级评定的程序: Sub Test() Dim i As Byte '定义一个Byte类型的变量,名称为i For i = 2 To 11 Step 1 '用For语句定义循环次数 Select Case Range("B" & i).Value 'B列第i行的成绩是要评定等次的成绩 ...
Case Else Cells(y, 1).Interior.ColorIndex = 3 End Select Next End Sub 程序分析:首先使用Cells表示单元格,然后用“For…Next”循环语句从第以行到第10行检查Cells(y,1)的值,如果该值为70以上(这种类型的比较要使用Is来写成“Is>=70” ),就执行语句“Cells(y, 1).Interior.ColorIndex = 5”,就行...