Select Case条件(表达式) [Case表达式值1 [语句块] ] [Case表达式值2 [语句块] ] …… [Case Else [语句块] ] End Select 说明: 当某个Case“表达式值”满足“条件(表达式)”的结果时,执行相应的语句块,并退出Select Case结构...
Select Case结构可以多层嵌套,但要注意每个Select Case语句要对应一条End Select语句。 在书写嵌套结果时,在代码中使用缩进排列可以使程序清晰易懂。 如果Case子句后只有一条指令,那么可以将指令与Case书写在一行上。例如,我们重写示例代码2如下: Sub NumWithSelectCase() Select Case Range(“A1”).Value Case 1, ...
Select Case语句可以嵌套。 每个嵌套的 Select Case语句都必须具有匹配的End Select语句。 示例 此示例使用Select Case语句计算变量的值。 第二个Case子句包含要计算的变量值,因此仅执行与其关联的语句。 VB复制 DimNumber Number =8' Initialize variable.SelectCaseNumber' Evaluate Number.Case1To5' Number between ...
在Select Case语句中,利用Case限制了三个条件,分别为手动录入1、2和3时的日期显示格式。但用户可能会误输入1到3范围以外的数值,使程序产生错误,那么利用Case Else语句来限制,且返回到InputBox语句处让用户重新录入,直到数值处于要求的范围内为止,这是最理想的处理方式。 实例4:Select Case嵌套应用计算时间 和IF…Th...
嵌套是指将一种控制结构放在另外一控制结构里面。你将在后面的循环结构里看到更多的嵌套的例子。 Select Case语句 为了避免难以弄清的复杂的嵌套的If语句,你可以使用Select Case语句代替。它的语法为: Select Case 测试表达式 Case 表达式1 如果表达式1匹配测试表达式的语句 ...
否则:用select case 判断, 如果小数点后有1位数,则数量、母件数量都乘以10 如果小数点后有2位数,则数量、母件数量都乘以100 如果小数点后有3位数,则数量、母件数量都乘以1000 如果小数点后有4位数,则数量、母件数量都乘以10000 按实际情况,小数点后4位数已经是极限了,如果需要,还可以再加。
今天我们聊聊Select Case语句,在这些方面可以弥补IF…Then..Else不足。 先看看Select case的语法: Select Case 测试表达式 Case 表达式列表1 语句1 Case 表达式列表2 语句2 Case 表达式列表n 语句n Case Else 语句 End Select 测试表达式:必要参...
Select Case 语句可以嵌套。 每个嵌套的Select Case语句必须具有匹配的End select语句。2 Select Case语句的实例应用 我们来举个实际例子，来讲解Select Case语句的应用，下面来看代码：我们先看下面的代码：Sub mynzC() '多条件语句的判断执行 Dim myScore As Integer, myResult As String myScore = Range("A1"...
Case Else MsgBox “请在单元格A1中输入文本:工作表” End Select End Sub 如果单元格A1中的值为文本“工作表”,就判断工作簿中的工作表数量(语句Worksheets.Count),并在消息框中显示相应的信息。 说明: Select Case结构可以多层嵌套,但要注意每个Select Case语句要对应一条End Select语句。 在书写嵌套结果时,在...