要根据Expression的值执行一组语句, 则使用Switch Case。在此, 每个值称为案例, 并且根据案例将变量切换为ON。如果测试表达式与用户指定的任何Case不匹配, 则执行其他语句case。
Case Else是选定Case中的可选语句。但是, 始终使用Case Else语句是一种好的编程习惯。
句法：
Select Case expressionCase expressionlist1Statement 1Statement 2..................................Statement nCase expressionlist2Statement 1Statement 2..................................Statement nCase expressionlistnStatement 1Statement 2..................................Statement nCase ElseElsestatement 1Elsestatement 2........End Select流程图
文章图片
例
让我们借助函数查找整数的类型。
Private Sub switch_demo_Click ()Dim MyVar As IntegerMyVar = 1Select Case MyVarCase 1MsgBox "A number is the least composite number"Case 2MsgBox "A number is the only even prime number"Case 3MsgBox "A number is the least odd prime number"Case Else MsgBox "unknown number"End SelectEnd Sub之后, 执行上面的代码, 你将获得如下输出：
The number is the least composite number让我们看一下switch语句的更多示例, 例如
例如, 你要使用switch语句创建一个自定义函数（UDF）。
可以像使用任何常规工作表功能一样使用它, 它将返回学生的成绩。
用于创建自定义公式的代码如下：
Function GetGrade(StudentMarks As Integer)Dim FinalGrade As StringSelect Case StudentMarksCase Is <
33FinalGrade = "F"Case 33 To 50FinalGrade = "E"Case 51 To 60FinalGrade = "D"Case 61 To 70FinalGrade = "C"Case 71 To 90FinalGrade = "B"Case ElseFinalGrade = "A"End SelectGetGrade = FinalGradeEnd Function【VBA switch切换语句】现在, 你可以在工作表中使用功能GetGrade, 如以下屏幕截图所示, 例如：
文章图片
